VB关闭其它子窗口

就像图片那样点出一下就可以关闭其它的子窗口，但当前的活动窗口（ActiveForm）不关闭。我是用

Dim F1 As New Form1
F1.Show
i = i + 1
F1.Caption = "New " & i

增加的子窗口

我现在的机器没有VB
先给你一点提示吧实在不行,等我回家再告诉你

MDIForm1.activeform '得到MDI窗体中活动子窗体名称

For Each tempControl In MDIForm1
If (tempControl.Name <> MDIForm1.activeform) And (tempControl.Name <> MDIForm1.Name) Then
tempControl.close()

End If
Next

你 要实现这样的话事件只能放在子窗体上

Dim Tempcontrol As Form

For Each Tempcontrol In Forms If (Tempcontrol.Name <> me.name) And (Tempcontrol.Name <> MDIForm1.Name) Then

Unload Tempcontrol End If Next End Sub

你试试这个吧