[احمد خطاب]

السلام عليكم 
ازاى عندما اضيف بيان فى الكومبو بوكس يرتبط هذا البيان بعدة بياناتات اخرى فى كمبو بوكس اخر مثلا عندما اضيف اسم مدرسة مثلا فى كمبوبوكس1 يظهر اسماء المدرسين فى هذه المدرسة فى كمبوبوكس2وعندما اضيف اسم مدرسة اخرى فى كمبوبوكس1 يظهر اسماء المدرسين بهذه المدرسة فى كمبوبوكس 2 وهكذا وشكراااا

[3booody]

اسهل طريقة بدون قواعد بيانات هي

كود :

Public Class Form1

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       ComboBox2.Items.Clear()
       Select Case ComboBox1.Text
           Case "العراق"
               ComboBox2.Items.AddRange(Ist.ToArray)
           Case "مصر"
               ComboBox2.Items.AddRange(Est.ToArray)
           Case "السعودية"
               ComboBox2.Items.AddRange(Sst.ToArray)
           Case "سوريا"
               ComboBox2.Items.AddRange(SE.ToArray)
       End Select
       ComboBox2.Text = ComboBox2.Items(0).ToString
   End Sub
   Dim st() As String = {"العراق", "مصر", "السعودية", "سوريا"}
   Dim Ist() As String = {"بغداد", "البصرة", "موصل"}
   Dim Est() As String = {"القاهرة", "الاسكندرية", "الجيزة"}
   Dim Sst() As String = {"الرياض", "جده", "مكه"}
   Dim SE() As String = {"دمشق", "حلب", "حمص"}
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load      
       ComboBox1.Items.AddRange(st.ToArray)
       ComboBox1.Text = ComboBox1.Items(0).ToString
   End Sub
End Class

[احمد خطاب]

السلام عليكم اولا انا شاكر جداااااااااااااا لحضرتك لكن ازاى اضع البيانات داخل الكومبو بوكس من داخل البرنامج اثناء التشغيل وليس قبله وبذات الطلبات السابقة

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

مادام عملية مدارس و مدرسين .. إضافة و تعديل و حذف و حركة تنقلية دائمة و مستمرة و متغيرة

يلزم أن تكون الكومبوبوكسات مرتبطة بقاعدة بيانات أحسن و أفضل بل من الضروري

تحياتي

[3booody]

لنفرض لديك زر بوتون وتكست بوكس تستخدم هذا الكود

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ComboBox1.Items.Add(TextBox1.Text)
   End Sub

او اذا تريد تضيف كثير من الخيارات في نفس الوقت مثلا كان في التكست بوكس عدة كلمات مفصولة بسطر جديد مثل
مصر
السعودي
سوريا
العراق
تستخدم هذا الكود

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ComboBox1.Items.AddRange(TextBox1.Text.Split(vbNewLine).ToArray)
   End Sub

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

للتنويع بالأمثلة .. جهزت هذا المثال البسيط و به ما تكرم به الأخ الكريم 3booody

بالكومبو 1 و 2 و كذلك طريقة التعامل مع قاعدة البيانات بالكومبو 3 و 4

تحياتي

ملاحظة : تمّ تغيير المشروع بالمرفقات لأن الملف الذي أرفقته كان شخصي به بعض الإضافات و الآن الملف الجديد بإذن الله سيناسب فكرتك

[احمد خطاب]

لحضرتك منى جزيل الشكر والتقدير والعرفان بالجميل جزاك الله كل الخير

[al9atl]

(27-10-19, 12:01 AM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

للتنويع بالأمثلة .. جهزت هذا المثال البسيط و به ما تكرم به الأخ الكريم 3booody

بالكومبو 1 و 2 و كذلك طريقة التعامل مع قاعدة البيانات بالكومبو 3 و 4

تحياتي

ملاحظة : تمّ تغيير المشروع بالمرفقات لأن الملف الذي أرفقته كان شخصي به بعض الإضافات و الآن الملف الجديد بإذن الله سيناسب فكرتك

لدي سؤال اخي
انا عندي عدت اسماء في combobx 
كيف خلي Select Case يظهر رسالة اد كان الاختيار احمد او محمد خالد

Select Case
Case "احمد" or "محمد or "خالد"
Msgbox("msg")

بدون استخدام تكرار case

[3booody]

كود :

Select Case ComboBox1.Text
           Case "احمد", "محمد", "خالد"
               MsgBox("msg")
       End Select

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

شوف أخي الكريم ..

يمكن أن تجد الإجابة الأفضل إن شاء الله

كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       With ComboBox5
           .Items.Add("محمد")
           .Items.Add("أحمد")
           .Items.Add("علي")
           .Items.Add("سمير")
           .Items.Add("خالد")
       End With
   End Sub
   Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
       Dim Name As String = ComboBox5.Text
       MsgBox(Name.ToString())
   End Sub

تحياتي