19-07-23, 12:20 PM
ممكن تعرف متغير من نوع Boolean
Public isFormOpen As Boolean
Dim frm As New Form3
If isFormOpen Then
frm.Activate()
Else
isFormOpen = True
frm.MdiParent = Me
frm.Show()
If frm.WindowState = FormWindowState.Minimized Then frm.WindowState = FormWindowState.Normal
End If
وعند اقفال الفورم يجب انت تحول القيمه الى false
isFormOpen = False
Public isFormOpen As Boolean
Dim frm As New Form3
If isFormOpen Then
frm.Activate()
Else
isFormOpen = True
frm.MdiParent = Me
frm.Show()
If frm.WindowState = FormWindowState.Minimized Then frm.WindowState = FormWindowState.Normal
End If
وعند اقفال الفورم يجب انت تحول القيمه الى false
isFormOpen = False
