كيف يمكن إنشاء فورم فى الـ Run Time ؟

[ahmedelsayed]

الأخوة الأعزاء ..
أقوم حاليا بكتابة كلاس للتعامل مع الأخطاء باستخدام فيجوال بيسك 6 .. ويلزمنى إنشاء فورم فى وقت التشغيل لأعرض بها النتائج
كيف يمكن إنشاء فورم فى وقت التشغيل بحيث يمكن استخدامها كالتالى من داخل الكلاس:
Dim Frm as MyCreatedForm
Frm.Property1 = Value1
Frm.Property2 = Value2
Frm.Show
برجاء الإفادة
وجزاكم الله كل الخير

[UUNUU]

لم افهم جيدا ماذا تقصد بــ Run time ؟

لاكن على حسب مافهمت من الامر الذي وضعته هو انك تريد ان يكون الفروم نشط كي يستقبل الاوامر من الكلاس ويعرضها مباشره ، فإذا كان هذا هو قصدك فالحل بسيط

تقوم بإضافة اداة Timer في الفورم ، فالنفرض مثلا انك ستسميها Timer1

فقط ضع هذا الامر في الجنرال (General)

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Dim Frm As MyCreatedForm
Frm.Property1 = Value1
Frm.Property2 = Value2
Frm.Show
End Sub

إذا كان لم يكن هذا ماتقصده ارجو ان تخبرني برساله خاصه و سأجيبك إن استطعت

[ahmedelsayed]

شكرا للرد.. لكن ليس هذا ما أقصدة

أريد إنشاء كلاس
بها مثلا
Methode
وليكن اسمها
ShowMsg
ما هو الكود المطلوب كتابته داخل هذه الـ
Methode
حتى يتم إنشاء فورم خالية وظهورها فى وقت التشغيل وليس وقت التصميم
(هذا هو المقصود بـ Run Time)
_______________________
لكل من يعمل على
VB.NET
انظر الى الكود التالى
Sub ShowMsg
Dim frm as New Form
frm.show
End Sub
ما هو الكود المقابل فى الفيجوال بيسك 6؟

[رنجوجيت]

أخى جرب هذا الكود
قم بعمل Sub جديد فى Module
-----------------------------------------------------------------------
Public Sub LoadNewMsg()
Dim frmM As frmMsg
Set frmM = New frmMsg
frmM.Show
End Sub
-----------------------------------------------------------------------
كلما تريد إنشاء فورم جديد فى Run Time قم بإستدعاء هذا Sub
-----------------------------------------------------------------------
Private Sub Command1_Click()
LoadNewMsg
End Sub
-----------------------------------------------------------------------