[al9atl]

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

كود :

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

شكرا لك اخيه هو المطلوب
ممكن عدبك بسؤال اخر
لو اضيف للكود اداة اخرة لشرط مثل اد كان
textbox1.text = "1"
و تم اختيار احمد من combobox تظهر الرسالة نعم 
Msgbox("نعم"(
و اد كانت textbox.text = "2" 
تظهر رسالة لا
Msgbox("لا"(
هل يمكن دمجها مع 

Case

جربت 

Case "احمد" and textbox1.text = "1"

لكن لم تعمل 

[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

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

[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

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

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

[3booody]

لا اخي لا يمكنك التصريح عن شرطين من قيمتين مختلفتين عن طريق Select Case لكن عن طريق If ممكن

[al9atl]

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

مثل هده مثل لكن لم يشتغل

كود :

Select Case ComboBox1.SelectedItem
           Case "احمد", "محمد" And TextBox1.Text = "احمد"
               MsgBox("yes")

       End Select

[3booody]

Select Case تتحقق لقيمة واحدة وعند التصريحة بعدها ComboBox1.SelectedItem
بمعنى ان التحقق فقط للعنصر المحدد في الكومبوبوكس وليس له علاقة ب تكست بوكس

[احمد خطاب]

الف مليون شكر