如何实现卸载除mdi主窗体外的所有窗体呢？（主窗体不能卸载）

Question

如何实现卸载除mdi主窗体外的所有窗体呢？（主窗体不能卸载）
我的程序是一个mdi主窗体，然后是很多的mdi子窗体，我想实现，unload所有的mdi子窗体，但是主窗体不关闭，
如何实现呢？

Answer 1

   While Not FrmMain.ActiveForm Is Nothing
      Unload FrmMain.ActiveForm
   Wend

Answer 2

'父窗体里：
Private Sub mnuFileClose_Click()
    Dim ifrm As Form
    For Each ifrm In Forms
       If ifrm.Name <> Me.Name Then
          Unload ifrm
       End If
    Next
End Sub

Answer 3

Dim i As Integer
For i = Forms.Count - 1 To 1 Step -1
    Unload Forms(i)
Next

Answer 4

对MDIForm的子对象使用For循环，把所有的窗体子对象都设置为Nothing 

Answer 5

在MDIForm程序里，由于MDIForm是主窗体，所以在forms集合里forms(0)就是它，可以不判断窗体名。

Answer 6

我记得在主窗体unload事件中写如下语句
cancel=true即可全部退出子窗体同时主窗体不退出。

Answer 7

While Not FrmMain.ActiveForm Is Nothing
Unload FrmMain.ActiveForm
Wend