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


الملفات المرفقة صورة/صور
       

.rar   combobox.rar (الحجم : 48.06 ك ب / التحميلات : 22)
الرد }}
تم الشكر بواسطة:
#2
عند الاختيار من الكومبو بوكس 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
الرد }}
تم الشكر بواسطة: moniam
#3
(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



جزاك الله خيرا و نفع بك الامة الاسلامية
 اشتغل الكود بنجاح وكان الاختصار افضل
الرد }}
تم الشكر بواسطة:
#4
امسح محتويات الكومبو الثاني عند تغيير القيمة المختارة في الكومبو الاول

الرد }}
تم الشكر بواسطة: moniam
#5
ايضاً هذا اختصار كالتالي :

كود :
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
الرد }}
تم الشكر بواسطة: عبد العزيز البسكري , moniam , sendbad100
#6
(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




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

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

جزاكم الله خيرا كثيرا
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نقل نص البوتن إلى التيكست بوكس حماده ممدوح البحيرى 3 262 24-05-22, 02:51 AM
آخر رد: Codack
  تفريق الحروف فى التكست بوكس saidhamed 3 465 06-04-22, 06:45 PM
آخر رد: saidhamed
  كيف أربط الموبايل بالفيجوال بيسك وقراءة الباركود بالكاميرا ونقله للتكست بوكس جيولوجي مبتدئ 2 726 23-03-22, 03:32 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] طريقة جعل التكست بوكس يغير اللون لتنبيه المستخدم محمد بوقزاحة 2 596 30-01-22, 02:18 PM
آخر رد: محمد بوقزاحة
  [VB.NET] كيف اجعل داتا جريد فيو ينتقل مع تاكست بوكس bilgacim 1 588 28-01-22, 04:30 AM
آخر رد: سعود
  [VB.NET] اختيار نص معين من تكست بوكس ميدو الفنان 2 1,049 28-01-22, 04:26 AM
آخر رد: ميدو الفنان
  [VB.NET] تكست بوكس EMADSS 2 510 21-01-22, 03:13 PM
آخر رد: ابراهيم ايبو
  [سؤال] كيفيه تعطيل خاصيه اللصق فقط في تكست بوكس حسن الجلب 1 537 14-01-22, 11:50 PM
آخر رد: معاند الحظ
  ليست بوكس remonmary 1 528 24-12-21, 11:53 PM
آخر رد: ابو انس
  تعريب عناصر جدول في الريتش بوكس _ مرفق _( كود _ مثال _صورة ) zinom 5 798 28-11-21, 09:52 PM
آخر رد: zinom

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


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