منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عن الكومبو بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عن الكومبو بوكس (/showthread.php?tid=25208)

عن الكومبو بوكس - moniam - 02-06-18

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

RE: عن الكومبو بوكس - حريف برمجة - 03-06-18

عند الاختيار من الكومبو بوكس 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


RE: عن الكومبو بوكس - moniam - 03-06-18

(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



جزاك الله خيرا و نفع بك الامة الاسلامية
 اشتغل الكود بنجاح وكان الاختصار افضل


RE: عن الكومبو بوكس - محمد كريّم - 03-06-18

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

RE: عن الكومبو بوكس - حريف برمجة - 03-06-18

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

كود :
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


RE: عن الكومبو بوكس - moniam - 03-06-18

(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




مشكوريين جدا ها قد تحصلت علي عدة افكار رائعة لاختصار الكودات و التعامل بحرفية مع طباعة الكود

انه اضافة رائعة لي و للمبتدئين مثلي

جزاكم الله خيرا كثيرا