如何卸载MdiForm的所有子窗体（仅指子窗体）

Question

如何卸载MdiForm的所有子窗体（仅指子窗体）
多谢多谢

Answer 1

求求各位了
我送电影给各位了
http://film.hdt.net.cn/index.htm

Answer 2

如果子窗体的MDICHILD属性为TRUE，主窗口关闭的是时候，子窗口回自动关闭

Answer 3

如果mdi窗口是main form
子窗口是form1的话
点mdi窗口内就关掉子窗口
Private Sub MDIForm_Click()
    Unload Form1
End Sub

Answer 4

这样行不？Dim i As Form
For Each i In Forms
If i.hWnd <> Me.hWnd Then Unload i
Next

Answer 5

Do While Not (ActiveForm Is Nothing)
    Unload ActiveForm
Loop

Answer 6

on error goto Err
Dim mForm As Form
For Each mForm In Forms
    If mForm.MDIChild  Then
       Unload mForm
    End If
    Err:
Next

Answer 7

Dim Form As Form  '申明窗体对象变量For Each Form In Forms '迭代所有窗体
    If Form.Name<>"XXX" Then  '判断当前窗体是否为想要卸载的窗体
      Unload Form  '卸载该窗体
      Set Form = Nothing 
    End If
Next Form其中"XXX"就是你不想关闭的主窗体的名称了。
以上这段程序可以卸载除主窗体外所有的窗体,而不局限与MDI子窗体。
此段程序可写在任意模块、过程中。

Answer 8

For i = 1 To Frms.Count
        If TypeName(Frms(i)) =窗体名 Then
            Frms.Remove i
        End If
    Next

Answer 9

Dim tmpForm As Form
    For Each tmpForm In Forms
        If tmpForm.Name <> "frmmain" And tmpForm.Name <> "Frmtreeview" Then
            Unload tmpForm
        End If
    Next