+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] how to use listview.items.addrange ? (/showthread.php?tid=28924)
how to use listview.items.addrange ? - الماجيك مسعد - 10-03-19
السلام عليكم
Dim items As List(Of ListViewItem) = Array.ConvertAll((From n In companyName Select n.Text).ToArray(), Function(s) New ListViewItem(s)).ToList
Dim items1 As List(Of ListViewItem) = Array.ConvertAll((From n In phones Select n.Text).ToArray(), Function(s) New ListViewItem(s)).ToList
Dim items2 As List(Of ListViewItem) = Array.ConvertAll((From n In adress Select n.Text).ToArray(), Function(s) New ListViewItem(s)).ToList
glist.Items.AddRange(items.ToArray)
items1
items2
ازاي اضيفهم الي SubItems
ولكن عبر AddRange
كيف يمكن ذلك
RE: how to use listview.items.addrange ? - 5000 - 10-03-19
جرب هذه الطريقة
Dim items As New List(Of ListViewItem)
For i = 0 To CompanyName.Count - 1
items.Add(New ListViewItem(New String() {CompanyName(i).Text, phones(i).Text, adress(i).Text}))
Next
glist.Items.AddRange(items.ToArray)
RE: how to use listview.items.addrange ? - الماجيك مسعد - 10-03-19
(10-03-19, 04:48 PM)5000 كتب : جرب هذه الطريقة
Dim items As New List(Of ListViewItem)
For i = 0 To CompanyName.Count - 1
items.Add(New ListViewItem(New String() {CompanyName(i).Text, phones(i).Text, adress(i).Text}))
Next
glist.Items.AddRange(items.ToArray)
شكرا جزيلا
ولكن انا اريد الابتعاد عن حلقة الدوران لازيد من سرعة البرنامج
بما ان CompanyName عبارة عن مصفوفة فاريد اضافتها مصفوفة مباشرة لسرعة الوقت
وبالفعل لما عملتها بانت انها اسرع بكثير من حلقة الدوران ولكن بقت المشكلة في subitems
لذا ابحث عن حل لذلك
RE: how to use listview.items.addrange ? - 5000 - 10-03-19
ولكن الكود الذي وضعته لك يضيف address وphones في subitems
RE: how to use listview.items.addrange ? - الماجيك مسعد - 10-03-19
(10-03-19, 05:15 PM)5000 كتب : ولكن الكود الذي وضعته لك يضيف address وphones في subitems
نعم اعلم
ولكن داخل حلقة دوران انا لا اريد استخدم حلقة دوران خالص
انا قدرت اضيف اول شيء كمصفوفة بدون اخطاء ولكن لم اعرف كيف ذلك مع subitems
واكيد ليها طريقة
RE: how to use listview.items.addrange ? - 5000 - 10-03-19
جرب هذا الكود
Dim items As List(Of ListViewItem) = (From n In Enumerable.Range(0, CompanyName.Count - 1) Select New ListViewItem(New String() {CompanyName(n).Text, phones(n).Text, adress(n).Text})).ToList
glist.Items.AddRange(items.ToArray)
RE: how to use listview.items.addrange ? - الماجيك مسعد - 10-03-19
(10-03-19, 05:33 PM)5000 كتب : جرب هذا الكود
Dim items As List(Of ListViewItem) = (From n In Enumerable.Range(0, CompanyName.Count - 1) Select New ListViewItem(New String() {CompanyName(n).Text, phones(n).Text, adress(n).Text})).ToList
glist.Items.AddRange(items.ToArray)
الله ينور عليك والله
تسلم ايدك اشتغل تمام
بس تفتكر كدا اسرع من حلقة الدوران ولا نفس الوقت؟
RE: how to use listview.items.addrange ? - 5000 - 10-03-19
يتضح عند استخدام بيانات كثيرة،
للأسف ليس لدي مشروع به بيانات كثيرة لتجربة سرعة هذا الكود ومعرفة الفرق
RE: how to use listview.items.addrange ? - الماجيك مسعد - 10-03-19
(10-03-19, 06:22 PM)5000 كتب : يتضح عند استخدام بيانات كثيرة،
للأسف ليس لدي مشروع به بيانات كثيرة لتجربة سرعة هذا الكود ومعرفة الفرق
تمام يا غالي
اشكرك جدا وتسلم ايدك بجد
ويريت لو لديك وقت ان تري هذه المشكلة ربما تستطيع المساعدة
http://vb4arb.com/vb/showthread.php?tid=28832&pid=137967#pid137967