[mervandzz]

                            السلام عليكم ورحمة الله وبركاته


اريد من اخوتي الكرام كود لحذف الاسطر التي لا تحتوي على كلمات معينة في 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

[mervandzz]

مشكور اخي بس انا عايز احذف الاسطر التي لا تحتوي على العنصر الي في 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

[mervandzz]

مشكور اخي وجزاك الله خير

[ابراهيم ايبو]

الحمد لله والشكر لله 

ولك اخي ميرفان