منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم و رحمة الله و بركاته
عندي سؤال عن الكومبو بكس 
عملت 2 كومبو بوكس الاول يرسل قائمة للثاني 
عند الاختيار من الاول يرسل قائمة اختيارات للثاني
بس عند اختيار اكثر من خيار في الاول تجد الاختيارات مكدسة في الثاني و لا يمسح الاختيار الذي قبله كما في الصورة
و ما اريده هو عند اختيار مثلا قسم اللغة العربية اجد فقط في الكومبو بوكس الثاني فقط الفصول من الاول للسادس
و عند اختيار تقنية المعلومات اجد في الكومبوبوكس الثاني الفصول من الاول للثامن
و المثال في الملحقات و لكم مني جزيل الشكر و العرفان

عند الاختيار من الكومبو بوكس 12 في اول صف ضع هذا السطر :



قبل هذا السطر :

---

ايضاً يمكنك اختصار الكود بشكل افضل كالتالي :

(03-06-18, 12:25 AM)حريف برمجة كتب : [ -> ]عند الاختيار من الكومبو بوكس 12 في اول صف ضع هذا السطر :

كود :

ComboBox13.Items.Clear()

قبل هذا السطر :

كود :

        If ComboBox12.SelectedIndex = 0 Then

---

ايضاً يمكنك اختصار الكود بشكل افضل كالتالي :

كود :

Private Sub ComboBox12_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox12.SelectedIndexChanged
        ComboBox13.Items.Clear()

        If ComboBox12.SelectedIndex = 0 Or ComboBox12.SelectedIndex = 1 Or ComboBox12.SelectedIndex = 2 Or ComboBox12.SelectedIndex = 3 Then
            ComboBox13.Items.Add("الأول")
            ComboBox13.Items.Add("الثاني")
            ComboBox13.Items.Add("الثالث")
            ComboBox13.Items.Add("الرابع")
            ComboBox13.Items.Add("الخامس")
            ComboBox13.Items.Add("السادس")
        Else
            ComboBox13.Items.Add("الأول")
            ComboBox13.Items.Add("الثاني")
            ComboBox13.Items.Add("الثالث")
            ComboBox13.Items.Add("الرابع")
            ComboBox13.Items.Add("الخامس")
            ComboBox13.Items.Add("السادس")
            ComboBox13.Items.Add("السابع")
            ComboBox13.Items.Add("الثامن")
        End If

امسح محتويات الكومبو الثاني عند تغيير القيمة المختارة في الكومبو الاول

ايضاً هذا اختصار كالتالي :

(03-06-18, 02:32 AM)حريف برمجة كتب : [ -> ]ايضاً هذا اختصار كالتالي :

كود :

Private Sub ComboBox12_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox12.SelectedIndexChanged
        ComboBox13.Items.Clear()

        ComboBox13.Items.Add("الأول")
        ComboBox13.Items.Add("الثاني")
        ComboBox13.Items.Add("الثالث")
        ComboBox13.Items.Add("الرابع")
        ComboBox13.Items.Add("الخامس")
        ComboBox13.Items.Add("السادس")

        If ComboBox12.SelectedIndex = 4 Or ComboBox12.SelectedIndex = 5 Or ComboBox12.SelectedIndex = 6 Then
            ComboBox13.Items.Add("السابع")
            ComboBox13.Items.Add("الثامن")
        End If
    End Sub