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

لا تضع الكود الذي ينسخ الفورم داخل الحدث للزر مثلا و ضعه الجزء العام بعد تعريف الكلاس مباشرا

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

هذا الموضوع من زمان وهو في بالي ولا عرفت احله

بس ممكن لو تكرمت ان تنفعنا ببرنامج صغير لكي تكون الصورة واضحة

وشكرااااااااااااااااااااا

بافتراض ان لدينا عدد 2 فورم Form1 و From2

ويوجد زر عند الضغط عليه في الفورم الاول نريد اظهار الفورم الثاني

الكود التالي تسبب في اظهار نسخة من الفورم الثاني في كل مرة عند الضغط عليه

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim MyForm As New Form2()

        MyForm.Show()



    End Sub

اما الكود التالي يمنع ظهور اكثر من نسخة من الفورم الثاني لان عملية النسخة تتم خارج حدث الضغط علي الزر

Dim MyForm As New Form2()



  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        MyForm.Show()



    End Sub

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

اخي العزيز todo حاولت اطبق البرنامج ولكنه لايعمل...

وهذا هو البرنامج مرفق ... تأكدلي من البرنامج يمكن يوجد خطأ ولا ادري عنه ...................................

وشكراااااا لاتعاونك معي..

2forms.zip

:(السلام عليكم

عليك جعل الفورم يختفي و لايقفل و هي حيلة بتنفيذ التالي

dim Frm1 as new form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Frm1.Visible = False Then

Frm1.Show()

Else

Frm1.Close()

End If

end sub

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

Me.Hide()

e.Cancel = True

End Sub

و أرغب بإجابة أفضل

من الممكن ان نعرف المتغير فى موديول وبالتالي لا تفتح الفورم اكثر من مرة

public myform as new form2

وفى الزرار نكتب

myform.show

وفى حدث غلق الفورم نكتب

e.cancel=true

me.hide

حتي لا تغلق الفورم ولكنها تختفي ونستطيع فتحها مرة اخري

اذا كان هناك خطأ رجاء اخبرني

ياخوانى لقد قام الاعضاء هنا بشرح طريقة تسمى Simulator بكل سهولة ضع الكود الاتى فى الفورم المراد فتحة مرة واحدة

    Private Shared FormSimulator As FORM2 
    Private Shared InitializingSimulator As Boolean

    Public Shared Property Simulator() As FORM2 
        Get
            If FormSimulator Is Nothing OrElse FormSimulator.IsDisposed Then
                InitializingSimulator = True
                FormSimulator = New FORM2 
                InitializingSimulator = False
            End If
            Simulator = FormSimulator
        End Get
        Set(ByVal Value As FORM2 )
            FormSimulator = Value
        End Set
    End Property

وتعمد هذه الطريقة على الوراثة خصائص جديدة للفورم

ثانيا ضع الكود التالى فى الزر الذى يتم منة فتح النموذج

   FORM2.Simulator.MdiParent = Me  ' فى حالة الابن 
      FORM2.Simulator.Visible = True ' فى حالة الفورم مباشرة

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