منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

كود :

       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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

emamtron2014

عبدالله الدوسري

emamtron2014