تقييم الموضوع :
  • 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 ك ب / التحميلات : 43)
الرد }}}
تم الشكر بواسطة: العيدروس
#3
شكرا اخى الفاضل على المجهود جزاك الله كل خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 3 1,714 19-04-23, 10:28 PM
آخر رد: Taha Okla
  [سؤال] كيفيه عمل خطوط واشكال هندسيه في فيجوال بيسك حسن الجلب 1 347 12-01-23, 03:22 AM
آخر رد: Taha Okla
  [سؤال] كيفيه البحث بالصوره في قاعدة بيانات اكسس حسن الجلب 3 972 12-09-22, 01:53 AM
آخر رد: حسن الجلب
  [سؤال] كيفيه حفظ ملف الي مسار محدد في الكمبيوتر حسن الجلب 2 680 09-09-22, 03:37 AM
آخر رد: asmarsou
  [سؤال] كيفيه ازاله line من سلسه نصيه حسن الجلب 10 1,018 25-08-22, 03:59 AM
آخر رد: سعود
  [سؤال] كيفيه التعامل مع الاسكي كود حسن الجلب 5 903 16-08-22, 09:01 AM
آخر رد: سعود
  [سؤال] كيفيه ارسال رساله الي الواتساب حسن الجلب 3 814 12-08-22, 01:28 AM
آخر رد: asmarsou
  [سؤال] كيفيه استخراج الحروف العربيه حسن الجلب 1 652 08-08-22, 02:15 AM
آخر رد: سعود
  [سؤال] كيفيه ربط المشروع بتطبيق علي الاندرويد حسن الجلب 0 618 06-08-22, 01:31 AM
آخر رد: حسن الجلب
  [مثال] كيفيه التحقق من البريد الالكتروني حسن الجلب 7 971 05-08-22, 11:36 PM
آخر رد: سعود

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


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