- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]如何关闭当前打开的所有窗口（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2231)
-- 发布时间：2009/3/29 13:32:00
-- [讨论]如何关闭当前打开的所有窗口（已解决）
如何关闭当前打开的所有窗口，如下图更换用户后，已打开的窗口还是打开的，这样就不正确了。
[此贴子已经被作者于2009-3-29 14:02:36编辑过]
-- 发布时间：2009/3/29 13:40:00
--
看不到图片。
你试试
For Each frm As WinForm.Form In Forms
frm.Close
Next
-- 发布时间：2009/3/29 13:57:00
--
如果想更换用户后，窗口不是打开的，要把窗口的自动打开属性设为False
-- 发布时间：2009/3/29 14:01:00
--
lxl兄2楼的正解，我用的是自定义登录，我把lxl兄发的代码稍修改了一下就搞定了。多谢帮忙！
For Each frm As WinForm.Form In Forms
if frm.name <> "用户登录窗口" then
frm.Close
end if
Next
[此贴子已经被作者于2009-3-29 14:02:02编辑过]