以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  要做到 打开一个并列窗口 ，就要把前一个并列窗口自动关闭？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96633)
--  作者：jswjyjf
--  发布时间：2017/2/24 16:36:00
--  要做到 打开一个并列窗口 ，就要把前一个并列窗口自动关闭？
要做到 打开一个并列窗口 ，就要把前一个并列窗口自动关闭？ 也就是确保界面只有一个并列窗口是打开的 代码如何写
--  作者：有点色
--  发布时间：2017/2/24 16:46:00
--  

AfterLoad事件

 

Dim tab = e.form.panel.parent.parent
For Each p As object In tab.tabpages
    Dim fname As String = p.controls(0).name
    If fname <> e.form.name AndAlso forms.contains(fname) Then
        forms(fname).close
    End If
Next
--  作者：jswjyjf
--  发布时间：2017/2/24 16:58:00
--  
可以了 谢谢