+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : if listview (/showthread.php?tid=30310)
if listview - dasktop - 16-07-19
انا لدي مشروع ويحتوي على اداة listview وتحتوي الاداة على 3 اعمدة
والمعروف ان العمود الاول رقمه 0 والثاني 1
كتبت في العمود الثاني شرط اذا يوجد في رقم مثلا 5 يضع في العمود الاول صوره
والشرط لم يتحقق ماهي المشكلة
كود :
If ListView1.SelectedIndices.Count > 1 = "225" Then
listview.items.add(3)
Else
MsgBox("no")
End IfRE: if listview - ابراهيم ايبو - 16-07-19
السلام عليكم اخي الكريم Dasktop
للتعامل مع الليست فيو يجب ان نفرق بين الـ Items وال SubItems
العمود الاول هو Items الرقم 0 والاعمدة البقية هي SubItems وارقامها 1-2-3-4وهكذا
بالنسبة لك انطر الى هذا الكود مع جملة For قلت له اذا كان الايتم (i) والصب ايتم رقم 2 التابع له يحمل القيمة 45
اظهر لي اسم الايتم
كود :
For i As Integer = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).SubItems(2).Text = 45 Then
MsgBox(ListView1.Items(i).Text)
End If
NextRE: if listview - dasktop - 16-07-19
(16-07-19, 05:56 PM)ابراهيم ايبو كتب :السلام عليكم اخي الكريم Dasktopللتعامل مع الليست فيو يجب ان نفرق بين الـ Items وال SubItemsالعمود الاول هو Items الرقم 0 والاعمدة البقية هي SubItems وارقامها 1-2-3-4وهكذابالنسبة لك انطر الى هذا الكود مع جملة For قلت له اذا كان الايتم (i) والصب ايتم رقم 2 التابع له يحمل القيمة 45اظهر لي اسم الايتمكود :
For i As Integer = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).SubItems(2).Text = 45 Then
MsgBox(ListView1.Items(i).Text)
End If
Next
اخي ابراهيم الكود لا يعمل
واكتشفت طريقة اسهل بدل من ان نستخدم for
انا لدي في imagelist صور باارقام محدده
وفي العمود الثاني ارقام مثلا اريد اذا العمود الثاني فيه 11 يضع في العمود الاول الصوره
نجح معي الكود واستخدمت الكود التالي
list.imageindex = 11
المطلوب كيف يكون ال imageindex يساوي ارقام العمود الثاني
مثلا
list.imageindex = listview.items(2).text
RE: if listview - الحازمي - 16-07-19
شكراً أخي ابراهيم
إذا أردت أن يتم اختيار الصورة أثناء الإضافة مثل
PHP كود :
Dim s As String = 5 '-- الرقم الذي تريد إضافته --'
Dim i As Integer = Val(s) '-- تحديد رقم الصورة --'
ListView1.Items.Add(New ListViewItem(s, i))
إذا فعلت الخاصية LabelEdit ثم قمت بتغيير قيمة الخلية من خلال النقر الثلاثي على الخلية
فهذا الكود في الحدث AfterLabelEdit يغير الصور حسب القيمة الجديدة
PHP كود :
Private Sub ListView1_AfterLabelEdit(sender As Object, e As LabelEditEventArgs) Handles ListView1.AfterLabelEdit
Dim i As Integer = Val(e.Label)
ListView1.Items(e.Item).ImageIndex = i
End Sub
أخي ابراهيم
إذا كان هنا استفسار في هذا الكود فأخبرني
RE: if listview - ابراهيم ايبو - 16-07-19
نعم اخي الحازمي بارك الله فيك