主题：[求助]切换页面隐藏独立窗口

新增new出来的窗口，用全局变量或者public变量存放起来，如

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (5).table

不需要处理关闭吧，直接判断key是否为nothing就好了。

 

If key is nothing Then

    msgbox("窗口已关闭")

End If

 

如果确实要关闭的时候处理，那绑定clocing事件。

哦，我理解错了

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim tpage As WinForm.TabPage = tab.SelectedPage
For Each key As object In vars("窗口").keys
    If key.isDisposed = False Then
        If vars("窗口")(key) <> tpage.text Then
            key.Visible=False
        Else
            key.Visible=True
        End If
    End If
Next

参考

 

http://www.foxtable.com/webhelp/scr/2374.htm

 

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.form_events(v=vs.80).aspx

 

AddHandler frm.Closing, AddressOf frm_Closing

全局代码，参考这里的事件处理

 

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.form_events(v=vs.80).aspx

 

 

 

可以，add的时候，把basecontrol加进去即可，如

 

frm.controls.add(控件.basecontrol)

systemIdle 或者做个计划，写代码

 

static flag As Boolean = False
If system.windows.Forms.Form.activeform Is Nothing OrElse basemainform.windowstate = 1 Then
    For Each key As object In vars("窗口").keys
        If key.isDisposed = False Then
            key.Visible=False
        End If
    Next
    flag = True
ElseIf flag = True Then
    For Each key As object In vars("窗口").keys
        If key.isDisposed = False Then
            key.Visible=True
        End If
    Next
    flag = False
End If

1、你生成窗口的时候，那就不要设置成【置顶】

 

frm.Topmost = True '这句代码删除

 

2、或者你在21楼事件里面动态控制【置顶】

不想关闭，就删除这句代码 system.windows.Forms.Form.activeform Is Nothing