以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  独立窗体请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77381)

--  作者:ljh29206
--  发布时间:2015/11/17 14:13:00
--  独立窗体请教
我需要打开一个窗体 然后关闭其他

请教如何 在打开一个窗体的时候 

判断 名称不是这个窗体的 

其他窗体(  属性为 独立窗体 ) 的窗体 关闭?

--  作者:大红袍
--  发布时间:2015/11/17 14:56:00
--  

For Each frm As WinForm.Form In forms
    If frm.Formstyle = 2 AndAlso frm.name <> "窗口1" Then
        frm.close
    End If
next