还是多文档窗体问题：如何一下关闭全部所有的子窗体？

Question

有什么方法，能详细一点具例最好。

Answer 1

for each fm in forms
if fm.name<>主窗体 then unload fm
next

Answer 2

Private Sub ccc_Click()
Do While Not Me.ActiveForm Is Nothing
    Unload Me.ActiveForm
Loop
End Sub

Answer 3

Private Sub CloseAllForms()
Dim f As Form
For Each f In Forms
    If f.MDIChild = True Then Unload f
Next
End Sub

Answer 4

同意leolan(史留香) 的

Answer 5

Dim frmChild As Form
  
  For Each frmChild In Forms
    If Not (TypeOf frmChild Is MDIForm) Then
      Unload frmChild
    End If
  Next