[مصمم هاوي]

كنتُ أعانـي من مشكلة إنشاء مثيل جديد من الفــورم في كل مرة أضغط  فيه بوتن فتح الفـورم على الزر.
والذي يؤدي بدوره يؤدي إلى فتح نسخ متعددة من الفورم.

هذا الكود التي كنت أعاني منه

كود :

 Dim frm As New FormSemester1 : frm.MdiParent = Me : frm.Show() ()

ولكن  بعد نصيحـة الأستاذ الحبيب طه أردت أن أجرب المتغيرات فوجدتُ فرقاً كبيراً وسرعةً كبيرة
ومن تم استخدمت متغير عام  لتخزين مثيل الفــورم ، ثم التحقق من الفـورم إذا كان المثيل موجودًا بالفعل قبل إنشاء مثيل جديد.

مثـلاً عند فتح الفـورم  (FormDocuments)

كود :

Dim frmDocuments As FormDocuments
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If frmDocuments Is Nothing OrElse frmDocuments.IsDisposed Then
       frmDocuments = New FormDocuments
       frmDocuments.MdiParent = Me
       frmDocuments.Show()
   Else
       frmDocuments.Activate()
   End If

End Sub