كيفيه ربط 2 compo box ببعض

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفيه ربط 2 compo box ببعض
#1
كيفيه ربط 2 compo box ببعض 
يعنى لو الكومبو بوكس الاول اختارت الدوله البوكس التانى يطلع فيه المحافظات انا بعمل الموضوع ده على الاكسيل بس عاوز اعرف الطريقه على برنامج الفيجوال
الرد
تم الشكر بواسطة:
#2
مرحباً أخي


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

 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


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 181.41 ك ب / التحميلات : 39)
الرد
تم الشكر بواسطة: العيدروس
#3
شكرا اخى الفاضل على المجهود جزاك الله كل خير
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] كيفيه عمل Random Text للفورم YousefOkasha 5 144 21-06-18, 02:32 PM
آخر رد: YousefOkasha
Exclamation [VB.NET] كيفيه منع ظهور للمستخدم رسالة الخطأ البرمجي YousefOkasha 6 175 02-06-18, 12:22 AM
آخر رد: YousefOkasha
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 1 231 23-08-17, 02:23 AM
آخر رد: zinom
  [VB.NET] كيفيه استيراد مستند نصي من ريسوريس الي تكس بوكس e-coder 1 240 07-06-17, 05:35 PM
آخر رد: alma2
  [VB.NET] طلب شرح كيفيه ارفاق الملفات داخل البرنامج والاتصال بها دون ان يراها احد MOSTAFA.KAMEL 8 537 13-03-17, 11:24 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] كيفيه تقطيع النصوص من text box or rich box engmedomed@gmail.com 4 469 27-12-16, 08:28 PM
آخر رد: مساعدة
  كيفيه تسطيب برنامج بال VB ddemed 2 468 17-12-16, 03:56 PM
آخر رد: ddemed
  ممكن اعرف ازاي اربط بروجيكتين ببعض medoddd 1 397 19-09-16, 02:18 PM
آخر رد: ممدوح
  [VB.NET] ممكن كيفيه عمل save and restore لملف الmspr medoddd 2 488 25-08-16, 07:49 PM
آخر رد: medoddd
  كيفيه عمل sub program Mahmoud_Darwish062 4 467 26-05-16, 12:12 AM
آخر رد: الوادي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم