MDI窗体方式打开（仅打开一次）（VB.NET)

MDI窗体方式打开（仅打开一次）（VB.NET)

学习心得

    Function MDIFrmActive(MdiFrmName As String) As Boolean
        For Each fr As Form In Me.MdiChildren
            If fr.Name = MdiFrmName Then
                fr.Activate()
                fr.WindowState = FormWindowState.Maximized
                MDIFrmActive = True
                Exit Function
            End If
        Next
        MDIFrmActive = False
    End Function
    
    Private Sub TsmXXWH_TblYGXX_Click(sender As Object, e As EventArgs) Handles TsmXXWH_TblYGXX.Click
        If MDIFrmActive("TblYGXX") = True Then Exit Sub
        Dim tblYgXX As New TblYGXX
        tblYgXX.MdiParent = Me
        tblYgXX.WindowState = FormWindowState.Maximized
        tblYgXX.Show()
    End Sub