主题：[求助]模式窗口和独立窗口的问题

模式窗口必须关闭后才能运行下一步的代码；独立窗口打开后，在窗口中操作与否不影响下一步代码的执行。

如果在程序开始运行之初设置窗口，在窗口中操作后运行下一步代码，但还不想关闭这个窗口，应该怎么办呢？

用这个方法：

 

1、先执行代码

 

While vars("标志") <> "4"
    Application.DoEvents
End While
msgbox(123)

 

2、你只有把 vars("标志") = "4" 执行以后，才会弹出123

版主的方法没法解决我的问题。我可能没有描述清楚。我的程序是先运行一个窗口，这个窗口在整个项目运行过程中是不关闭的，然后在这个窗口中点击按钮，再运行登录窗口。这种情况怎么解决？

直接做一个模式窗口或者独立窗口都可以啊

 

按钮代码，把你的登陆窗口等打开即可，如 forms("登陆").Show

以上方法没法解决我的问题。我可能没有描述清楚。我的程序是先运行一个窗口，这个窗口在整个项目运行过程中是不关闭的，然后在这个窗口中点击按钮，再运行登录窗口。这种情况怎么解决？如果把这个窗口设置成独立窗口，运行时会不等在这个窗口选择按钮，会直接运行项目；如果设置成模式窗口，必须把这个窗口关闭才行，但我还不想关闭。

弄一个独立窗口；afterOpenProject写代码

 

Forms("窗口1").Show

While vars("标志") <> "4"
    Application.DoEvents
End While
msgbox(123)

 

独立窗口按钮代码

 

vars("标志") = "4"

 

请问“有点甜”，while是什么语句，帮助文件中怎么没有？另外，如果第一个窗口中有多个按钮呢？

 

1、do while 和 for next 语句一样，都是循环执行而已。

 

2、具体一点你的问题，没看懂你到底要做什么，上传具体实例说明。

请问“有点甜”，我的第一个窗口是管理程序选择的窗口，从这个窗口中按不同的按钮，会运行不同的程序。你这一说，我的思路又感觉不对了。因为我按不同的按钮后，运行登录窗口，然后运行不同的程序，但他们都在一个项目里面，菜单都是不同的。看来这个思路不行，你觉得呢？

如果按我这个思路，能行吗？如果把第一个窗口设置成一个项目，然后按不同的按钮运行不同的项目，这个思路行吗？可以在按钮中加入运行另一个项目的代码吗？参数怎么传递？

 

不理解你什么意思。

 

直接做成多个模式窗口、独立窗口的程序，不就好了？

 

需要哪个窗口，就打开哪个窗口，哪有你认为的那么复杂。