فتح فورم عند كتابة اسم الفورم فى صندوق نص او اختيار اسم الفورم من كومبو بوكس
ارجو المساعدة
فتح فورم عند كتابة اسم الفورم فى صندوق نص
السلام عليكم
اخي الكريم الكود التالي لينفذ طلبك
فتح الفورم عند كتابة اسم الفورم
dim f as new system.windows.forms,form f.text = textbox1.text f.show()
هنا عرفنا متغير مع استخدام دالة system.windows.forms,form وذلك ليأخذ هذا المتغير صفات جميع النماذج
بعدها قمنا بتعيين اسم النموذج من خلال صندوق النص
ثم نقوم بأظهار النموذج المطلوب
وهنا على عملية الاختيار combobox
dim f as new system.windows.forms,form f.text = combobox1.text f.show()
وهنا نفس الكود السابق
وهذا مثال يوضح
بالتوفيق
بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم
Ahmed_shabban كتب:فتح فورم عند كتابة اسم الفورم فى صندوق نص او اختيار اسم الفورم من كومبو بوكس
ارجو المساعدة
أهلاً أخي الكريم،
هل تقصد بفتح (عرض أم إنشاء) نموذج؟
إذا كان عرض، فيمكنك اعتماد جملة مقارنة لذلك:
Select Case TextBox1.Text Case "Form1" Form1.Show() Case "Form2" Form2.Show() End Select
أما إذا كان المطلوب إنشاء نموذج جديد معنون بنص الـTextBox:
Dim NewForm As New Form NewForm.Text = TextBox1.Text NewForm.Name = "Form_" & TextBox1.Text
بالنسبة لحدث الإجراء فهذا يعتمد على ماتريد، والأفضل أن تجعل الإجراء ضمن حدث النقر (Click) على زر (Button):
Private Sub Button1_Click(Byval Sender As Object, Byval E As EventArgs) Handles Button1.Click Select Case TextBox1.Text Case "Form1" Form1.Show() Case "Form2" Form2.Show() End Select End Sub
بالتوفيق.
Ahmed_shabban كتب:فتح فورم عند كتابة اسم الفورم فى صندوق نص او اختيار اسم الفورم من كومبو بوكس
ارجو المساعدة
أهلاً أخي الكريم،
هل تقصد بفتح (عرض أم إنشاء) نموذج؟
إذا كان عرض، فيمكنك اعتماد جملة مقارنة لذلك:
Select Case TextBox1.Text Case "Form1" Form1.Show() Case "Form2" Form2.Show() End Select
أما إذا كان المطلوب إنشاء نموذج جديد معنون بنص الـTextBox:
Dim NewForm As New Form NewForm.Text = TextBox1.Text NewForm.Name = "Form_" & TextBox1.Text
بالنسبة لحدث الإجراء فهذا يعتمد على ماتريد، والأفضل أن تجعل الإجراء ضمن حدث النقر (Click) على زر (Button):
Private Sub Button1_Click(Byval Sender As Object, Byval E As EventArgs) Handles Button1.Click Select Case TextBox1.Text Case "Form1" Form1.Show() Case "Form2" Form2.Show() End Select End Sub
بالتوفيق.
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
السلام عليكم ورحمه الله وبركاته
اخي جرب الكود التالي
Dim frm As New Form
Dim formName As String = txtForm.Text
formName = Assembly.GetEntryAssembly.GetName.Name & "." & formName
frm = DirectCast(Assembly.GetEntryAssembly.CreateInstance(formName), Form)
frm.Show()
قم بوضع مربع نص اسمه txtForm ولاتنسى استيراد فضاء الاسماء System.Reflection
.:: Wish to become better and better ::.