以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]批量关闭窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71906)

--  作者:新航程小何
--  发布时间:2015/7/20 12:01:00
--  [求助]批量关闭窗口
各位老师,我想实现一个功能就是,在我打开窗口一个的时候,可以通过代码控制使其他窗口都被关闭?不知道这个功能能不能实现
--  作者:大红袍
--  发布时间:2015/7/20 12:03:00
--  

For Each f As WinForm.Form In Forms
    If f.Opened Then
        f.Close
    End If
Next

Forms("窗口1").open

 


--  作者:新航程小何
--  发布时间:2015/7/20 12:13:00
--  
谢谢老师
--  作者:machle
--  发布时间:2015/12/13 17:02:00
--  回复:(大红袍)For Each f As WinForm.Form In Form...
我还有个导航窗口,并不想把导航窗口关掉。用这个方法的话,窗口又关闭,再打开,屏幕会闪。

我该如何解决呢?

--  作者:大红袍
--  发布时间:2015/12/13 17:06:00
--  

For Each f As WinForm.Form In Forms
    If f.Opened AndAlso f.Name <> "导航" Then
        f.Close
    End If
Next

Forms("窗口1").open