以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开指定窗口，其它的关闭  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17282)
--  作者：lpxjw_zyl
--  发布时间：2012/3/8 19:55:00
--  打开指定窗口，其它的关闭

For Each frm AS Winform.Form In Forms

    if frm.Name = "窗口1" Then

       frm.Open()

    Else

      frm.Close()

    End if

Next

打开指定窗口，其它的关闭，可是我设置的共享窗口不关闭怎么办？
--  作者：布莱克朱
--  发布时间：2012/3/8 20:12:00
--  

不明白你的意思,是不是这样?

For Each frm AS Winform.Form In Forms

if frm.Name <>  "窗口1" Then

     frm.Close()

End if

Next

 
--  作者：lpxjw_zyl
--  发布时间：2012/3/8 20:26:00
--  

我的意思是设置一个共享窗口始终打开，按共享窗口的按钮打开对应的窗口，共享窗口不关闭

 
--  作者：lpxjw_zyl
--  发布时间：2012/3/8 20:28:00
--  

For Each frm AS Winform.Form In Forms

    if frm.Name = "窗口1" Then

       Forms("共享窗口").Open()
       frm.Open()

    Else

      frm.Close()

    End if

Next

 

打开有点闪怎样让他不闪
--  作者：czy
--  发布时间：2012/3/8 20:57:00
--  

这两天我好像回复过同样的问题几次了。

 

For Each frm As Winform.Form In Forms
    If frm.Name = "窗口1" Then
        frm.Open()
    Else
        If frm.Name <> "共享窗口" Then
            frm.Close()
        End If
    End If
Next