السلام عليكم ورحمة الله وبركاته
اريد من اخوتي الكرام كود لحذف الاسطر التي لا تحتوي على كلمات معينة في listbox
اكون شاكر لكم بافادتي
السلام عليكم ورحمة الله وبركاته
اخي انشئ فورم وضع فيه
ListBox -Button- TextBox
وفي حدث كليك البوتون اختر احد الكودين التاليين :
اكتب في مربع النص الكلمة التي تريد ان يتم حذف العنصر الذي يحتويها
الكود الاول:
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If ListBox1.Items.Count > 0 Then
For i As Integer = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i).Contains(TextBox1.Text) Then
ListBox1.Items.Remove(ListBox1.Items(i))
End If
Next
End If
End Sub
الكود الثاني طريقة اخرى
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ListBox1.Items.Count > 0 Then
Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة من عناصر الليست بوكس
ListBox1.Items.CopyTo(strItems, 0) ' نسخ عناصر الليست الى المصفوفة
ListBox1.Items.Clear() ' افراغ الليس بوكس
' التحقق من كل عنصر في المصفوفة اذا كان لايحتوي على ماهو موجود في التكست بوكس سيتم اضافته الى الليست بوكس
For i As Integer = 0 To strItems.Length - 1
If Not strItems(i).Trim().Contains(TextBox1.Text) Then
ListBox1.Items.Add(strItems(i))
End If
Next
End If
End Sub
مشكور اخي بس انا عايز احذف الاسطر التي لا تحتوي على العنصر الي في textbox وليس العكس
السلام عليكم اخي الكريم
غير هذا السطر من الكود الاول
من
كود :
If ListBox1.Items(i).Contains(TextBox1.Text) Then
الى
كود :
If Not ListBox1.Items(i).Contains(TextBox1.Text) Then
وفي الكود الثاني
من
كود :
If Not strItems(i).Trim().Contains(TextBox1.Text) Then
الى
كود :
If strItems(i).Trim().Contains(TextBox1.Text) Then