以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何代码去判断当前窗口中是否有共有窗口？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74409)
--  作者：liuxianjie1980
--  发布时间：2015/9/10 11:33:00
--  [求助]如何代码去判断当前窗口中是否有共有窗口？
如题，谢谢！
--  作者：大红袍
--  发布时间：2015/9/10 11:37:00
--  

 

For Each frm As Winform.Form In Forms
    output.show(frm.FormStyle & " " & frm.Name)
Next
--  作者：liuxianjie1980
--  发布时间：2015/9/10 15:12:00
--  

红袍兄：引伸一下，因为在界面中有两个共用窗口，一个要一直显示，另一个则是有条件打开或关闭。

 

如果存在名为“左侧窗口”的共用窗口，则返回

否则

     打开名为“左侧窗口”的共用窗口

    关闭除“顶部窗口”以外的共有窗口
--  作者：大红袍
--  发布时间：2015/9/10 15:20:00
--  

If Forms("左侧窗口").Opened = False Then
    For Each frm As Winform.Form In Forms
        If frm.FormStyle = 4 AndAlso frm.Name <> "顶部窗口" Then
            frm.Close
        End If
    Next
    Forms("左侧窗口").Open
End If