منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] فتح الفورم بحسب اسم الفورم الموجود في مربع النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] فتح الفورم بحسب اسم الفورم الموجود في مربع النص (/showthread.php?tid=33964)

فتح الفورم بحسب اسم الفورم الموجود في مربع النص - بسام هزاع - 24-03-20

يا شباب طالبكم طلب  بالله لا تخيبو ضني فيكم 
اول شي انا سويت فورم  يوجد به شجرة  Terry  مرتبطة بجدول يحتوي علي الا قسام والنوافذ الموجودة بالنظام كفكرة بديلة للقوائم 

المهم الجدول يحتوي علي الاسم الظاهر للمستخدم   و اسم الفورم  برمجيا

اريد عند الضغط علي الشجرة  يتم اخذ اسم الفورم من الجدول وفتح الفورم  المحدد

ادري انة الموضوع عندكم سهل وتافه 
بس عندي  الموضوع جبل  جبل

RE: فتح الفورم بحسب اسم الفورم الموجود في مربع النص - سعود - 24-03-20

سبحان الله
هذا الشيء اذكر انه سهل لكن الان استغربت اني لم اتمكن من تطبيقه.
هل الانسان ينسى؟!
جاري المحاولة....مع الانتظار لاي مساعدة ممن يعرف.
PHP كود :
Private Sub ShowFormbyName(ByVal strForm As String)
        System.Reflection.Assembly.GetExecutingAssembly().CreateInstance(ProductName & "." & strForm).show()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ShowFormbyName(TextBox1.Text)
    End Sub 


RE: فتح الفورم بحسب اسم الفورم الموجود في مربع النص - kiki - 24-03-20

اضافة لما قدمه سعود
يمكنك استخدام هذا الـ Function بوضعه باى مكان تريده
كود :
   Public Function openForm(ByVal FormName As String, Optional GetForm As Form = Nothing)
       Try
           FormName = Application.ProductName & "." & FormName
           Dim FormInstanceType As Type = Type.GetType(FormName, True, True)
           GetForm = CType(Activator.CreateInstance(FormInstanceType), Form)
           GetForm.Show()
       Catch ex As Exception
           MessageBox.Show("Sorry, the form you want to open does not exist", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Warning)
       End Try

       Return False
   End Function

ومن ثم استخدام هذا السطر فى اى حدق تريده
كود :
openForm(TextBox1.Text)

طبعاً استبدل TextBox1.Text باى نص تريد استخدامه
بهذا الكود اذا كان اسم الفروم غير صحيح سيتجنب الاخطاء ويظهر رسالة يمكنك تحريرها كما تشاء
بالتوفيق