[al9atl]

(27-10-19, 06:50 PM)3booody كتب : نعم اخي هي حسب الشرط طبعآ تستطيع تغيير الكود حسب ماتحب

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text = "1" Then
           check()
       ElseIf TextBox1.Text = "2" Then

           Select Case ComboBox1.Text
               Case "محمد", "يوسف"
                   'شرط اخر
           End Select
       ElseIf TextBox1.Text = "12" Then
           check()
       Else
           'اذا لم يتحقق أي شرط
       End If
   End Sub
   Sub check()
       Select Case ComboBox1.Text
           Case "احمد", "علي"
               MsgBox("نعم")
       End Select
   End Sub

او

كود :

Select Case TextBox1.Text
           Case "1"
               Select Case ComboBox1.Text
                   Case "احمد", "علي", "محمد"
                       'نفذ
                   Case "ايمن", "ابراهيم"
                       'نفذ
               End Select
           Case "2"
               '
       End Select

يمكن شويا عقدت عليك المسألة اعتذر لكن الهدف ايصال الفكرة لحضرتك

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