الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية الإختيار المتعدد في الListbox

مغلق
بدأه ahmedsaid في 13 مارس 2003 · 1 رد · 613 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

أصدقائي الأعزاء

السلام عليكم و رحمة الله و بركاته و بعد

عندي برنامج أعمل فيه و يتطلب هذا البرنامج في بعض أجزاءه أن يدعم الإختيار المتعدد من ال List box و ذلك لإضافة القيم التي أختيرت لقاعدة البيانات و قد قمت بتفعيل خاصية ال multiselect الخاصه بالlistbox و أصبحت الأن قادرا علي الإختيار المتعدد من ال listbox و لكني وجدت أن القيم المتعدده المختارة من ال Listbox لم يتم إضافتها كلها إلي قاعدة البيانات و لكن تم إضافة قيمه واحده فقط.

مثال:

إذا كان هناك listbox و بها هذه القيمRed,Green, Yellow و قام المستخدم بإختيار الأول و الأخير فإن الذي يتم إدخاله لقاعدة البيانات هو الأحمر إذا كان الأحمر هو الذي يستحوذ علي ال Focus أي كان هو الإختيار الأخير الذي تم الضغط عليه بالفاره قبل الضغط علي زر الأمر Submit علي سبيل المثال.

فماذا أفعل لجعل كل الإختيارات تضاف لقاعدة البيانات.

أرجو أن يكون السؤال واضح.

أرجو مساعدتي.و شكرا لكم

#2

الاضافة يجب ان تتم بالكود وليس تلقائيا .. بمعنى انه يجب ان تتفحص محتويات اللست بوكس واحد تلو الاخر و تحدد ان كان تم اختياره قمت انت باضافته والا تجاهلته و فحصت التالي..

و هذا مثال يمكن تعديله حسب احتياجك..

Dim str, x

For x = 0 To List1.ListCount - 1

    If List1.Selected(x) Then

        str = str & " " & List1.List(x)

    End If

Next

MsgBox str

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…