VB 关闭其它窗口

最新推荐文章于 2018-08-31 08:52:56 发布

SImonJ07

最新推荐文章于 2018-08-31 08:52:56 发布

阅读量981

点赞数

分类专栏：技术文章标签： vb

本文链接：https://blog.csdn.net/SImonJ07/article/details/3131853

版权

技术专栏收录该内容

8 篇文章 0 订阅

订阅专栏

 
 Option Explicit
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim f1 As Form
Select Case Button.Index
Case 1
    Set f1 = New Form1
'    Form1.Show 
'    unloadother Form1.hWnd 
Case 2
    Set f1 = New Form2
'    Form2.Show 
'    unloadother Form2.hWnd 
End Select
f1.Show
unloadother f1.hWnd
End Sub
Private Sub unloadother(ht As Long)
Dim f As Form
For Each f In Forms
    If f.hWnd <> ht And f.hWnd <> MDIForm1.hWnd Then Unload f
Next
End Sub
 