如何判别MDIForm中的子窗体个数？ 在线等待

Question

如何判别MDIForm中的子窗体个数？

Answer 1

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

Answer 2

所有：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 3

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