(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"
لكن لم تعمل
نعم اخي هي حسب الشرط طبعآ تستطيع تغيير الكود حسب ماتحب
كود :
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, 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
يمكن شويا عقدت عليك المسألة اعتذر لكن الهدف ايصال الفكرة لحضرتك
انا اعرف هده الطرق لكن استفسر اد توجد طريقة مثل التي دكرة حتى اختصر في الكود لانه طويل
هل يمكن
لا اخي لا يمكنك التصريح عن شرطين من قيمتين مختلفتين عن طريق Select Case لكن عن طريق If ممكن
Select Case تتحقق لقيمة واحدة وعند التصريحة بعدها ComboBox1.SelectedItem
بمعنى ان التحقق فقط للعنصر المحدد في الكومبوبوكس وليس له علاقة ب تكست بوكس