如何将MDIForm中已经调起的多个MDIChild窗体一起关闭?

Question

如何将MDIForm中已经调起的多个MDIChild窗体一起关闭?

Answer 1

'fmainform:MDI父窗体
prvate sub CloseAll()
 while fmainform.activeform<>nothing
  unload fmainform.activeform
loop
end sub

Answer 2

Do While Not (Me.ActiveForm Is Nothing)
    
  Unload Me.ActiveFormLoop
可以的！

Answer 3

也可以这样
    Dim ActForm As Form
    For Each ActForm In Forms
        If ActForm.Name <> MDIForm1.Name Then
            Unload ActForm
        End If
    Next

Answer 4

stkane(左手无名指)的做法是错的，结果会把mdi窗体也卸载掉
handwolf(初学者) 是可以的
也可以
Private Sub exit_Click()
    Dim N As Form
    Set N = Me.ActiveForm
    For Each N In Forms
        If Not Me.ActiveForm Is Nothing Then
            Unload Me.ActiveForm
        End If
    Next
End Sub

Answer 5

Dim frmAll As Form    For Each frmAll In Forms
        Unload frmAll
    Next frmAll

Answer 6

didishu0807()同志没有看到这一句嘛
        If ActForm.Name <> MDIForm1.Name Then