一个MDI的问题

Question

关闭子窗体可用:
While Not Me.ActiveForm Is Nothing
   Me.ActiveForm.Hide
Wend

Answer 1

试试这个函数
Public Sub CloseForms(Optional FormName As String)
    Dim myForm As Form
    
    If Forms.count - 1 < 0 Then Exit Sub
    For Each myForm In Forms
        If myForm.name <> "MDIMainWindow" And myForm.name <> FormName Then
            Unload myForm
        End If
    Next
End Sub