以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]有没有简单的代码，实现关闭当前表之外的所有窗口？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38005)
--  作者：浙江仔
--  发布时间：2013/7/17 12:28:00
--  [求助]有没有简单的代码，实现关闭当前表之外的所有窗口？

如题，很多时候设置了不同的窗口，但是当前表和当前窗口切换时，其他表格的窗体没有自动关闭，怎么可以实现这个功能呢？

望指点
--  作者：浙江仔
--  发布时间：2013/7/17 13:22:00
--  

有没有办法？
--  作者：lsy
--  发布时间：2013/7/17 13:35:00
--  

设置一个菜单按钮：

For Each frm As WinForm.Form In Forms
    If Forms.ActiveForm IsNot Nothing Then
        If frm.Name <> Forms.ActiveForm.Name Then
            If frm.Opened Then
                frm.Close()
            End If
        End If
    End If
Next
--  作者：狐狸爸爸
--  发布时间：2013/7/17 16:07:00
--  

楼主要的应该是这个：

 

For Each frm As WinForm.Form In Forms
    If frm.Opened AndAlso frm.TableName <> MainTable.Name Then
        frm.Close()
    End If
Next
--  作者：lsy
--  发布时间：2013/7/17 16:10:00
--  
以下是引用狐狸爸爸在2013-7-17 16:07:00的发言：

楼主要的应该是这个：

 

For Each frm As WinForm.Form In Forms
    If frm.Opened AndAlso frm.TableName <> MainTable.Name Then
        frm.Close()
    End If
Next

我用窗口不喜欢绑定表，所以只想到，活动的不关，其他都关。
--  作者：浙江仔
--  发布时间：2013/7/24 22:14:00
--  
以下是引用狐狸爸爸在2013-7-17 16:07:00的发言：

楼主要的应该是这个：

 

For Each frm As WinForm.Form In Forms
    If frm.Opened AndAlso frm.TableName <> MainTable.Name Then
        frm.Close()
    End If
Next

老大就是老大，谢谢

前几天发了帖子，一直没空上来看，今天看了，果真有惊喜，谢谢啦