以文本方式查看主题

-  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=17148)

--  作者:老柴
--  发布时间:2012/3/5 10:12:00
--  求代码:怎样实现只显现导航的当前窗口

小弟初用FOXTABLE,请各位老大指点一点,怎样实现只显现导航的当前窗口,其它的无关窗口自动关闭。

如附图:


图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看


--  作者:狐狸爸爸
--  发布时间:2012/3/5 10:41:00
--  

例如你单击某个按钮,希望打开窗口2,其他窗口自动关闭:

 

For Each frm AS Winform.Form In Forms

    if frm.Name = "窗口1" Then

       frm.Open()

    Else

      frm.Close()

    End if

Next

 


--  作者:老柴
--  发布时间:2012/3/5 11:12:00
--  
谢谢老大!
--  作者:gzdw
--  发布时间:2012/3/7 22:27:00
--  
在老大给的代码中,会不会半关闭本身的“导航”窗口啊?
--  作者:czy
--  发布时间:2012/3/7 23:05: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