以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打开指定窗口,其它的关闭  (http://foxtable.com/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