منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اضافة جميع item list فى subitem - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اضافة جميع item list فى subitem (/showthread.php?tid=19599)

كيف اضافة جميع item list فى subitem - Mohamed20 - 11-03-17

كيف اضافة جميع item list فى listview subitem

كود :
       Dim Newlist As New ListViewItem
       Newlist.text = ""
       For Each effect In listofint
           Newlist.SubItems.Add(effect)
       Next
       ListView1.Items.Add(Newlist)
هذا الكود يتم اضافة اخر item فقط

RE: كيف اضافة جميع item list فى subitem - مساعدة - 11-03-17

السلام عليكم

المطلوب غير مفهوم. ضع مثال

RE: كيف اضافة جميع item list فى subitem - Mohamed20 - 11-03-17

(11-03-17, 01:18 AM)مساعدة كتب : السلام عليكم

المطلوب غير مفهوم. ضع مثال

شكرآ تم الحل الحمد الله
كود :
Dim List As String = String.Join(",", listofint.Select(Function(itemID) itemID.ToString()).ToArray())
كونت مثلآ عندى listbox فيها items 1,2,3,4,5 كونت اريد اضافة هذه items الى listview subitem

RE: كيف اضافة جميع item list فى subitem - مساعدة - 11-03-17

لم توضع تركيبة ListView كيف هي،
ول تقصد أن توزع عناصر listbox على اعمدة السطر الواحد، يعني (item(1 تضعه في (subitem(1 و(item(2 تضعه في (subitem(2 وهكذا

ولو تضع صورة تشبيه بالرسام يكون أفضل
جرب هذا التعديل لوضعها على عدة أسطر
كود :
For Each effect In listofint
   Dim Newlist As New ListViewItem
   Newlist.SubItems.Add(effect)
   ListView1.Items.Add(Newlist)
Next
أو هذا الكود للتوزيع على أعمدة subitem لنفس السطر
كود :
Dim Newlist As New ListViewItem
For Each effect In listofint
   Newlist.SubItems.Add(effect)
Next
ListView1.Items.Add(Newlist)