كيف يمكن منع نسخة حديدة من الفورم

السلام عليكم ورحمه الله وبركاته

في اثناء تجولي في ارشيف المنتدى وجدت موضوع بعنوان ""فتح الفورم مرة واحدة""

/index.ph...opic=58694&st=0

ولقد استفدت من تجارب الاخوان جزاهم الله خيرا

حينها تذكرت هذا الموضوع انه تم مناقشتة في منتدى فيجوال بيسيك نت في بداية الدوت نت مع غموضها عام 2002

مع الاستاذ تركي عسيري و الاخ عبدالعضيم الغنيم

ولقد خرجنا من هذا الموضوع

اننا نعرف متغير في Module

Public IsVisible As Boolean

وعند الضغط على زر فتح الفورم الجديدة نكتب

Show()

نكتب هذا الاجراء

Overloads Sub Show()
        If IsVisible = True Then
            MsgBox("already opend")
        Else
            Dim form2 As New Form2
            Form2.Show()
        End If
        IsVisible = True
    End Sub

وفي الشاشة الاخرى لا ننسى عندما نغلق الفورم نضع الفورم IsVisible = False

Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        IsVisible = False
    End Sub

اتمنا مناقشة الموضوع اذا كانت هذه الطريقة فيها عيوب او تأخذ مساحة كبيرة من ال Ram

وفقكم الله