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