كيفيه ربط 2 compo box ببعض
يعنى لو الكومبو بوكس الاول اختارت الدوله البوكس التانى يطلع فيه المحافظات انا بعمل الموضوع ده على الاكسيل بس عاوز اعرف الطريقه على برنامج الفيجوال
مرحباً أخي
إفتح مشروع جديد و من صندوق الأدوات قم بإضافة :
ComboBox1 = أسماء الدول
ComboBox2 = أسماء المناطق
إذا أردت إضافة أو تعديل أسماء الدول :
اضغط ع الكو مبو بوكس 1 تحصل مثلث صغير
اضغط عليه تطلع خيارات قم بإختيار ( dit Items... ) وضع الدولة اللتي تريد , ولا تنسى بأن تضع الإسم في الكود
كود المشروع بالكامل :
كود :
Public Class Form1
Dim saud As String ' متغير نصي لنضع بداخله القيم
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
saud = ComboBox1.SelectedIndex ' المتغير يساوي قيم الكومبو بوكس 1
Select Case ComboBox1.Text
Case "السعودية" ' اذا تم تحديد السعودية
ComboBox2.Items.Clear() ' نظف الكومبو بوكس 2
ComboBox2.Items.Add("الرياض") ' اضف هذا العنصر للكومبو بوكس 2
ComboBox2.Items.Add("الدمام") ' اضف هذا العنصر للكومبو بوكس 2
ComboBox2.Items.Add("مكة المكرمة") ' اضف هذا العنصر للكومبو بوكس 2
ComboBox2.Items.Add("المدينة المنورة") ' اضف هذا العنصر للكومبو بوكس 2
ComboBox2.Items.Add("تبــوك") ' اضف هذا العنصر للكومبو بوكس 2
ComboBox2.SelectedIndex = 1 ' لإظهار أول عنصر في الكومبو بوكس 2
Case "مصر"
ComboBox2.Items.Clear()
ComboBox2.Items.Add("القاهرة")
ComboBox2.Items.Add("الإسكندرية")
ComboBox2.Items.Add("شرما الشيخ")
ComboBox2.Items.Add("الغردقة")
ComboBox2.Items.Add("طابا")
ComboBox2.SelectedIndex = 1
Case "الأردن"
ComboBox2.Items.Clear()
ComboBox2.Items.Add("عمان")
ComboBox2.Items.Add("الزرقاء")
ComboBox2.Items.Add("الحسينية")
ComboBox2.Items.Add("الجفر")
ComboBox2.Items.Add("معان")
ComboBox2.SelectedIndex = 1
End Select
' //////////////// جميع الحقوق محفوظة لفيجوال بيسك لكل العرب
End Sub
End Class
المثال في المرفقات
مكتوب بالفيجوال بيسك 2017
شكرا اخى الفاضل على المجهود جزاك الله كل خير