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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24173)



مساعده في فتح الفورم - emamtron2014 - 14-03-18

السلام عليكم
عندي برنامج وبه عدد كبير من الفورم
واريد ان افتح الفورم علي حسب النص الموجود في تكست بوكس
بمعني انه في الفورم الرئيسي يوجد تكست بوكس.وعندما يكتب المستخدم في التكست بوكس مثلا Form1  يقوم البرنامج بفتح هذا الفورم
وجزاكم الله خيرا.


RE: مساعده في فتح الفورم - عبدالله الدوسري - 14-03-18

وعليكم السلام

كود :
       Select Case TextBox1.Text.Trim.ToLower
           Case "Form1".ToLower
               Dim Form1 As New Form1
               Form1.Show()
           Case "Form2".ToLower
               Dim Form2 As New Form2
               Form2.Show()
           Case "Form3".ToLower
               Dim Form3 As New Form3
               Form3.Show()
           Case "Form4".ToLower
               Dim Form4 As New Form4
               Form4.Show()
           Case "Form5".ToLower
               Dim Form5 As New Form5
               Form5.Show()
           Case Else
               MsgBox("لا توجد نافذة بنفس الاسم")
       End Select



RE: مساعده في فتح الفورم - emamtron2014 - 14-03-18

جزاك الله خير الجزاء  يا اخي وجعله في ميزان حسناتك ان شاء الله