(27-10-19, 01:49 AM)3booody كتب :

كود :

Select Case ComboBox1.Text
           Case "احمد", "محمد", "خالد"
               MsgBox("msg")
       End Select

(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

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

(27-10-19, 07:44 PM)3booody كتب : لا اخي لا يمكنك التصريح عن شرطين من قيمتين مختلفتين عن طريق Select Case لكن عن طريق If ممكن