[سعود الشامان]

مرحباً أخي


إفتح مشروع جديد و من صندوق الأدوات قم بإضافة :

 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