怎样把MID窗口内打开的所有子窗口一次全部关闭?

Question

Dim frm As Form
For Each frm In Forms
    If frm.MDIChild = True Then
       Unload frm
    End If
Next

Answer 1

do while mdiforms.forms>1 
unload mdiforms.activeformloop

Answer 2

Dim of As FormFor Each of In Forms
        If Not (TypeOf of Is MDIForm) Then
            If of.MDIChild = True Then Unload of
        End If
    Next

Answer 3

Do While Not (MDIForm1.ActiveForm Is Nothing)
        Unload MDIForm1.ActiveForm
    Loop

Answer 4

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

Answer 5

绝对好用
Dim frm As Form
    For Each frm In Forms
        If frm.hWnd <> MDIForm1.hWnd Then
            Unload frm
        End If
    Next

Answer 6

Dim frm As Form
Do while mdiforms.forms>1
   set frm=mdiforms.activeform 
   unload frm
Loop