+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : استخدام متغير عام لتخزين مثيل الفــورم (/showthread.php?tid=53127)
استخدام متغير عام لتخزين مثيل الفــورم - مصمم هاوي - 13-05-25
كنتُ أعانـي من مشكلة إنشاء مثيل جديد من الفــورم في كل مرة أضغط فيه بوتن فتح الفـورم على الزر.
والذي يؤدي بدوره يؤدي إلى فتح نسخ متعددة من الفورم.
هذا الكود التي كنت أعاني منه
كود :
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