很简单 Dim frm As Form For Each frm In Forms If frm.Name <> "Form1" Then Unload frm ' 当窗口的Name不为Form1时关闭窗口 Next将上面的Form1改成登录窗口的名字,防止登录窗口也被关闭,然后放在合适的过程里,这样就可以解决了
什么叫菜单的主窗体?我那个代码的意思是关闭所有Form
另外,你把If frm.Name <> "Form1" Then Unload frm 前面的删了,直接只保留Unload frm就可以关闭所有的窗口,一个不留了…
注意应该先弹出新窗口再关闭最后那个窗口,否则关闭了全部窗口就没法弹出新的了。还有,load新窗口后别忘了show()一下
For Each frm In Forms
If frm.Name <> "Form1" Then Unload frm ' 当窗口的Name不为Form1时关闭窗口
Next将上面的Form1改成登录窗口的名字,防止登录窗口也被关闭,然后放在合适的过程里,这样就可以解决了
If frm.Name <> "Form1" ThenUnload frm 前面的删了,直接只保留Unload frm就可以关闭所有的窗口,一个不留了…