+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] فلترة listview مشكلة غريبة (/showthread.php?tid=17498)
فلترة listview مشكلة غريبة - Jonewickk - 30-09-16
السلام عليكم
لدي مشكلة .. وأرجو من يمكنه الحل لا يبخل علي ..
قمت بعمل مشروع استخراج id و عدد الاعضاء الخاص بالجروبات عن طريق البحث بالأسم تمام ؟
لدي مشكلة صغيرة وبقالي ايام سهران ولم اجد اي حل .. !!!
أريد أن أضيف خاصية الفلترة في الليست فيو ..
في المثال الخاص بي هناك عامودين واحد خاص بعدد الاعضاء والاخر بال id
عند عمل فلترة اريد كود يمسح جميع الجروبات التي عدد اعضائها مثلا أقل من 15.618
ارجو المساعدة واسف لو طولة عليكم ..
وربنا يبارك للي هيساعدني مقدماً ...
RE: فلترة listview مشكلة غريبة - abulayth - 30-09-16
اخي الكريم ارفق مثال لكي يتم التعديل عليه
يعطيك العافية
RE: فلترة listview مشكلة غريبة - abulayth - 30-09-16
حياك الله اخي
جرب التالي
PHP كود :
Private Sub Command1_Click()
Dim Stuff() As String
Dim Stu() As String
Dim i As Long
Stuff = Split(GetText(Text2.Text, Text6.Text, Text1.Text), vbNullChar)
Stu = Split(GetText(Text2.Text, Text8.Text, Text7.Text), vbNullChar)
For i = 0 To UBound(Stuff)
If Val(Stuff(i)) > 15.618 Then
With list1.ListItems.Add
.Text = Stu(i)
.SubItems(1) = Stuff(i)
End With
End If
Next i
End Sub