سلام عليكم
كيف يمكنني اضافة list box للبرنامج مع وضع ثلاثة عناصر بها
والسماح للمستخدم باضافة عشرة عناصر اخري
ليصبح مجموع العناصر 13 عنصرا
يستطيع مسح وتبديل اي منها مثلما يشاء
اعرف ان اضافة عنصر تكون بهذا الكود
private sub form1.load() list1.Additem "first name" end sub
ولجل المستخدم يضيف عنصرا سأقوم بالتالي
private sub command1_click()
dim A as string
A = inputpox("أدخل اسم العنصر")
list1.Additem A
end subما لا اعرفة هو كيف احدد عدد العناصر وكيف اسمح للمستخدم بمسح اي عنصر يريد
وشكرا للافادة :)
مزعج ...
حتي إشعار آخر.
أخي el3asher تستطيع معرفة عدد العناصر في ال listbox عن طريق الخاصية listcount اما بالنسبة لمسح عنصر او إزالته استخدم الطريقة removeitem
private sub cmdcountitems_click() dim items as integer items=list1.listcount msgbox items private sub cmdremoveitem_click() list1.removeitem(list1.listindex)
*************************************************
**************************************************
مصطفى زيداني
أشكركما إخواني علي شرحكما الجميل
ولكن لم يجب احد علي سؤال
كيف يمكنني تحديد عدد العناصر في listbox بثلاثة عشر عنصر فقط
؟؟؟؟
مزعج ...
حتي إشعار آخر.
تفضل أخي الكريم
If List1.ListCount <= 12 Then
("أدخل إسم العنصر") A = InputBox
List1.AddItem A
End Ifتم تعديل هذه المشاركة بواسطة seaprince46 في 23 مارس 2005 في 12:46
منتديات كوكب الكمبيوتر
لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية
بصراحة أخذت فكرة لا بأس بها في دروس البرمجة من مواضيعكم الجميلة السلسة
شكراا العاشر على الموضوع و ننتظر لقراءة بقيته :)
روز
هذا الموضوع مغلق.