منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [سؤال] عن الكومبو بوكس
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] عن الكومبو بوكس
moniam غير متصل
عضو فعال
*
المشاركات : 39
المواضيع 5
الإنتساب : Apr 2018
السمعة : 0
الشكر: 45
تم شكره 11 مرات في 9 مشاركات
#1
02-06-18, 11:56 PM
السلام عليكم و رحمة الله و بركاته
عندي سؤال عن الكومبو بكس 
عملت 2 كومبو بوكس الاول يرسل قائمة للثاني 
عند الاختيار من الاول يرسل قائمة اختيارات للثاني
بس عند اختيار اكثر من خيار في الاول تجد الاختيارات مكدسة في الثاني و لا يمسح الاختيار الذي قبله كما في الصورة
و ما اريده هو عند اختيار مثلا قسم اللغة العربية اجد فقط في الكومبو بوكس الثاني فقط الفصول من الاول للسادس
و عند اختيار تقنية المعلومات اجد في الكومبوبوكس الثاني الفصول من الاول للثامن
و المثال في الملحقات و لكم مني جزيل الشكر و العرفان


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

.rar   combobox.rar (الحجم : 48.06 ك ب / التحميلات : 22)
البحث
الرد }}}
تم الشكر بواسطة:
حريف برمجة غير متصل
مشرف عام
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة : 253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات

mem0
#2
03-06-18, 12:25 AM (آخر تعديل لهذه المشاركة : 03-06-18, 12:32 AM {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
moniam غير متصل
عضو فعال
*
المشاركات : 39
المواضيع 5
الإنتساب : Apr 2018
السمعة : 0
الشكر: 45
تم شكره 11 مرات في 9 مشاركات
#3
03-06-18, 12:37 AM (آخر تعديل لهذه المشاركة : 03-06-18, 12:51 AM {2} بواسطة moniam.)
(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



جزاك الله خيرا و نفع بك الامة الاسلامية
 اشتغل الكود بنجاح وكان الاختصار افضل
البحث
الرد }}}
تم الشكر بواسطة:
محمد كريّم غير متصل
المتميزون
*
المشاركات : 847
المواضيع 9
الإنتساب : Oct 2015
السمعة : 131
الشكر: 2219
تم شكره 1685 مرات في 745 مشاركات
#4
03-06-18, 12:52 AM
امسح محتويات الكومبو الثاني عند تغيير القيمة المختارة في الكومبو الاول

الموقع البحث
الرد }}}
تم الشكر بواسطة: moniam
حريف برمجة غير متصل
مشرف عام
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة : 253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات

mem0
#5
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
البحث
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , moniam , sendbad100
moniam غير متصل
عضو فعال
*
المشاركات : 39
المواضيع 5
الإنتساب : Apr 2018
السمعة : 0
الشكر: 45
تم شكره 11 مرات في 9 مشاركات
#6
03-06-18, 11:15 AM
(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




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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 159 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 476 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 345 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 728 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 962 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,629 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 739 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 845 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 576 14-03-23, 06:40 PM
آخر رد: عضو جديد
  [VB.NET] راديو بوتن & شيك بوكس الزويي 2 501 19-01-23, 05:25 PM
آخر رد: الزويي

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


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