怎样实现在mdi窗口菜单中关闭所有子窗口？

Question

给详细的代码好吗？谢谢了

Answer 1

Dim frm As Form
For Each frm In Forms
    If frm.Name <> Me.Name Then
       Unload frm
    End If
Next

Answer 2

你定义一个全局变量，假如为i，每次new一个子窗体时i+1
关闭时
on error resume next
do until i=0
if activeform.mdichild=true then
 unload activeform
i=i-1
end ifloop

Answer 3

Private Sub mnuCloseAllMDIChild_Click()
    If Me.ActiveForm Is Nothing Then Exit Sub
    
    Do While Not Me.ActiveForm Is Nothing
        Unload Me.ActiveForm
    Loop
End Sub

Answer 4

支持: lihonggen0(李洪根,用.NET，标准答案来了)

Answer 5

if Not Me.ActiveForm Is Nothing then
     unload Me.ActiveForm 
end if