'**************************************************

    '*过程名称：ShowForm

    '*参数说明：MDIChildForm ——需创建实例的窗体

    '*功能说明：创建窗体实例

    '**************************************************

 

    Private Sub ShowForm(ByVal MDIChildForm As Form)

        Dim MDIChildFrm As Form = MDIChildForm

        MDIChildFrm.MdiParent = Me ' 定义MDI子窗体

        MDIChildFrm.Show() '打开窗体

    End Sub

 

    '********************************************************************************

    '*过程名称：CheckForm

    '*参数说明：MDIChildForm——需检测的窗体；MDIChildFormName ——检测窗体的名字

    '*功能说明：首先检测是否有MDI子窗体，如果没有，则创该MDI子窗体的窗体实例

    '*          如果有，则检测当中有没有其窗体实例，有则激活；没有则创建其窗体实例

    '*********************************************************************************

    Private Sub CheckForm(ByVal MDIChildForm As Form, ByVal MDIChildFormName As String)

        If Me.MdiChildren.Length < 1 Then

            '如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例

            ShowForm(MDIChildForm)

            Exit Sub

        Else

            Dim x As Integer

            Dim frmyn As Boolean

            For x = 0 To (Me.MdiChildren.Length) - 1

                Dim tempChild As Form = CType(Me.MdiChildren(x), Form)

                If tempChild.Name = MDIChildFormName Then

                    frmyn = True

                    '检测到有该MDI子窗体，设为TRUE 并退出循环

                    Exit For

                Else

                    frmyn = False

                End If

            Next

            If frmyn = False Then

                '在打开的窗体中没检测到则新建

                ShowForm(MDIChildForm)

            Else

                '在打开的窗体中检测到则激活

                Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form)

                MDIChildFrm.Activate()  '使子窗体激活

            End If

        End If

    End Sub

 

   Private Sub 测试窗口1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 测试窗口1ToolStripMenuItem.Click

        Dim frmtest1 As New FormTEST1

        CheckForm(frmtest1, "FormTEST1")

    End Sub

 

————————————————

版权声明：本文为CSDN博主「无忧当当」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/zz46123838/article/details/107008560