23/05/2015, 11:51
(21/05/2015, 10:08)alpeki99 yazdı: [ -> ]Normalde bir konuda birden fazla soru olduğu zaman cevap vermem ancak sizi az çok bilip suistimal etmeyeceğinizi düşünerek cevaplıyorum.
Private Shared Sub Arama_Yap_Olmayanlari_Sil(ByVal ListView_Adi As ListView, ByVal Aranacak_TextBox As String)
ListView_Adi.Items.Clear()
Dim ara As String = Aranacak_TextBox.ToLower()
For Each item As ListViewItem In ListView_Adi.Items
If item.SubItems(1).Text.ToLower().Contains(ara) = True Then
item.Selected = True
Else
item.Remove()
End If
Next
End Sub
Private Sub DRm_TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
RichTextBox1.Text = ""
Arama_Yap_Olmayanlari_Sil(ListView1, TextBox1.Text)
End Sub
Bu sorum için ek yapmak istiyorum, sakıncası yoksa
Bu şekilde listvievde arama yaptırıp olanları listeliyorum. Fakat senin yazdığında bu çalışmadı. Kodu nasıl revize edebilirim. Diyecektim.