在父窗体内打开多个子窗体，为了避免同一个子窗体多次打开，需要判断该子窗体是否打开

1、在父窗体的菜单中加入“窗口”菜单，其 MdiList 属性设为 True。这样，每打开一个子窗体，将在其下拉菜单中增加子窗体名。
2、判断子窗体是否存在，是则将其设置焦点，否则将其打开。

如何判断子窗体已经存在呢？

   For x = 0 To (Me.MdiChildren.Length) - 1
                tempChild = CType(Me.MdiChildren(x), Form)
                If tempChild.Name = MDIChildFormName Then
                    frmyn = True
                    '检测到有该MDI子窗体，设为TRUE 并退出循环
                    Exit For
                Else
                    frmyn = False
                End If
            Next

获得父窗体的子窗体列表，foreach循环子窗体，再比较子窗体的type是不是想比较的那个子窗体的type
C#里面是这样的

' 获得子窗体数量，判断是否有要打开的子窗体
    Private Function GetInstanceState(ByVal Name As String) As Boolean
        Dim i As Integer = Me.MdiChildren.Length
        For i = 0 To Me.MdiChildren.Length - 1     '循环判断是否有名为name的子窗体
            If Me.MdiChildren(i).Name = Name Then  '存在名为name的子窗体
                Me.MdiChildren(i).Focus()          '子窗体获得焦点并返回True
                Return True
            End If
        Next
        Return False                       '不存在名为Name的子窗体返回False
    End Function

    Private Sub .......    '调用子窗体的事件
        If GetInstanceState(子窗体名) Then
            Exit Sub
        End If
        Dim ChildFrm As Form
        ChildFrm = New 子窗体名
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

谢谢版主

谢谢sywzs