如何获得MDI主窗体的所有子窗体？

Question

我想或得MDI主窗体的所有子窗体，有没有枚举的办法？

Answer 1

Dim frm As Form
    Dim I As Integer
    For Each frm In Forms
        If frm.Name <> Me.Name Then
            Debug.Print frm.Name
            I = I + 1
        End If
    Next
    MsgBox "窗体个数为：" & I

Answer 2

dim i as integer
    Dim Frm
    For Each Frm In Forms
        
        If Frm.Name <> "frmMDI" Then 'frmMDI为mdi主窗口的窗体名
            If Frm.MDIChild Then
                i=i+1
            End If
        End If
        debug.print i
    Next