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


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

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

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
الشكر: 42
تم شكره 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



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

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

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
الشكر: 42
تم شكره 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




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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تكست بوكس EMADW 3 451 09-05-25, 05:09 PM
آخر رد: princelovelorn
  كود لتغير لون الخط فى التكست بوكس خالد كامل1 1 339 31-01-25, 06:22 PM
آخر رد: أبو خالد الشكري
  [كود] كود تغيير حجم النص في التكست بوكس hassan 8 8,787 30-01-25, 02:33 AM
آخر رد: خالد كامل1
  مساعدة في استيراد البيانات من الليست بوكس fireswored1 4 464 22-01-25, 08:43 PM
آخر رد: fireswored1
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 6 4,098 23-12-24, 03:59 PM
آخر رد: aljzazy
  [VB.NET] جيك بوكس muaamar 3 380 23-11-24, 09:00 PM
آخر رد: rdxdz
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 555 07-11-24, 09:15 PM
آخر رد: modymody300894
  كيفيه التعامل مع ملفات الدروب بوكس عن طريق api ackore 3 453 22-08-24, 06:13 AM
آخر رد: ackore
  [VB.NET] تجاهل التشكيل من الأسماء عند البحث في التيكست بوكس Khalil chiha 3 528 01-08-24, 10:28 PM
آخر رد: Khalil chiha
  [سؤال] بخصوص الفلترة كومبو بوكس في الفيجوال ستوديو؟ Mena Sabet 2 559 06-05-24, 02:22 AM
آخر رد: Mena Sabet

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


يقوم بقرائة الموضوع: