السلام عليكم ورحمه الله وبركاته
هل تريد انشاء قائمه مثل التي في الصوره ؟
اذن اليك الحل
والطريقه لن تكون باستخدام ListBox ولكنها ستكون باستخدام ListView ولكنها ستعطي نفس النتيجه التي في الصوره ولكن بصوره افضل
واليك خطوات العمل
1- اضف اداه ListView جديده الى النافذه
2 - غير كل من الخواص الاتيه في نافذه الخصائص :
أ / FullRowSelect : القيمه الاصليه لها False غيرها انت الى True
ب/ View : القيمه الاصليه LargeIcon غيرها انت الى Details
3 - قم بانشائ اعمده عن طريق الخطوات التاليه :
أ/ ابحث عن الخاصيه Columns من نفذه الخصائص واضغط على الزر (...)
ب/ ستظهر لك نافذه جديده اضغط منها على Add لاضافه عمود جديده
ج/ اضف العدد الذي تريده من الاعمده ويمكنك تغيير اسم العمود من الخاصيه Text
والان لقد انتهيت من انشاء القائمه متتعدده الاعمده
والان كيف نقوم بملئها
سنستخدم في ذلك متغيرا من النوع ListViewItem
ويمكنك تعريفه كالاتي
Dim L As ListViewItem
والان لاضافه عنصر جديد قم بكتابه الكود التالي
L = ListView1.Items.Add("")"" : اكتب فيها من تريد
هذا هو العنصر الذي سيضاف الى العمود الاساسي (الاول)
اما بقيه الاعمده فتضيف لها العنصر بهذا الكود :
L.SubItems.Add("")فمثلا لو كان عندك اربعه اعمده واحد منها رئيسي
سيكون هذا هو الكود
Dim L As ListViewItem
L = ListView1.Items.Add("")
L.SubItems.Add("")
L.SubItems.Add("")
L.SubItems.Add("")ملاحظه : الفيجوال بيسك سيقوم تلقائيا بتعبئه القوائم افرعيه حسب ترتيبها لانك ستلاحظ ان الثلااث اسطر الاخيره متشابعه تماما ولكنك انت من يحدد القيم التي تحتويها والفيجوال سيضيفها تلقائيا حسب ترتيب الاعمده
والان اظنك عرفت كيف ستقوم بالتعامل مع العناصر
وهي بانك ستعرف متغيرا من النوع ListViewItem ثم تساويه بالعنصر الذي تريد
مثل
L = Listview1.Items.Item(0)
او
L = Listview1.Items.Item("hello")او
ثم تتعامل مع العنصر من خلال هذا المتغير
مثل
L.remove : لحذف العنصر
او
L.Selected = True : لاختيار العنصر
L.Text : لمعرفه النص الذي في العنصر العود الرئيسي
او
L.SubItems("").Text : وهذا الكود لمعرفه النص المكتوب في عمود معين وتذكر ان تكتب اسم العمود او رقمه بدلا من ""
وتذكر دائما ان الفيجوال بيسك يتعمال مع الصف الواحد على انه عنصر واحد ولا يغرك ان هناك اعمده كثيره
بل في الواقع هم عنصر واحد
اتمنى ان يكون الدرس مفيدا واعتذر على الاطاله
واي استفسار انا في الخدمه
والسلام عليكم ورحمه الله وبركاته
--------
قمت بإضافة علامات code للتوضيح
(walcom)
