Skip to main content

AccessTr.neT


ListView Search Hakkında

ListView Search Hakkında

#1
Kod:
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

   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.Text.ToLower().Contains(ara) = True Then
               item.Selected = True
           Else
               item.Remove()
           End If
       Next
   End Sub

Bu şekilde textboxa girilen isim ile Listview in 1. kolonunda "Parça Adı" Kolonunda arama yaptırmak, olmayanları silmek, text sıfırlanınca tüm verilerin geri gelmesini istiyorum.
Teşekkür ederim.
.rar WindowsApplication1.rar (Dosya Boyutu: 82,45 KB | İndirme Sayısı: 8)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Şu şekilde çözüm buldum.
Kod:
Sub KlasorleriListele()
       Dim satir As Integer
       Dim sarkiBaslangic, klasorBaslangic, sarkiAdiUzunlugu As Integer
       Dim sarkiAdi, klasorAdi As String

       Dim FilesInDir As String() = Directory.GetFiles(Application.StartupPath & "\REPERTUARX\", "*.txt", SearchOption.AllDirectories)
       Dim SFile As String
       ListView1.Items.Clear()

       For Each SFile In FilesInDir
           sarkiBaslangic = SFile.LastIndexOf("\") + 2
           sarkiAdi = Mid(SFile, sarkiBaslangic)
           sarkiAdiUzunlugu = Len(SFile) - sarkiBaslangic + 2

           klasorBaslangic = SFile.IndexOf("X\") + 3
           klasorAdi = Mid(SFile, klasorBaslangic, (Len(SFile) - sarkiAdiUzunlugu + 1) - klasorBaslangic)

           ListView1.Items.Add(klasorAdi)
           ListView1.Items(satir).SubItems.Add(sarkiAdi)
           satir += 1
       Next
   End Sub


   Sub Ara()
       Dim satir As Integer
       Dim sarkiAdi, klasorAdi As String
       Dim sarkiBaslangic, klasorBaslangic, sarkiAdiUzunlugu As Integer
       Dim ara As String = "*" & TextBox1.Text.Trim() & "*.txt"

       Dim FilesInDir As String() = Directory.GetFiles(Path.Combine(Application.StartupPath, "REPERTUARX"), ara, SearchOption.AllDirectories)
       Dim SFile As String
       ListView1.Items.Clear()

       For Each SFile In FilesInDir
           sarkiBaslangic = SFile.LastIndexOf("\") + 2
           sarkiAdi = Mid(SFile, sarkiBaslangic)
           sarkiAdiUzunlugu = Len(SFile) - sarkiBaslangic + 2

           klasorBaslangic = SFile.IndexOf("X\") + 3
           klasorAdi = Mid(SFile, klasorBaslangic, (Len(SFile) - sarkiAdiUzunlugu + 1) - klasorBaslangic)

           ListView1.Items.Add(klasorAdi)
           ListView1.Items(satir).SubItems.Add(sarkiAdi)
           satir += 1
       Next

   End Sub
   
   Private Sub DRm_TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       RichTextBox1.Text = ""
       Ara()

   End Sub

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task