Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

listview durchsuchen
Autor: Thunderstorm
Datum: 30.08.07 14:25
hallo zusammen, ich habe mal nach einem code gesucht wo man das listview control durchsuchen kann und auch gefunden.aber da stimmt so einiges nicht.kann mir da jemand weiterhelfen. mfg thunderstorm Public Sub SearchListView(ByRef lvwView As ListView, ByVal sSearchText As String, _ Optional ByVal bMatchCase As Boolean = False) On Error GoTo Error_ErrHandler Dim x As Long = 0 Dim Columns As Byte = lvwView.Columns.Count - 1 Dim Column As Byte = 0 Dim Item As ListViewItem If Len(sSearchText) = 0 Then Exit Sub With lvwView .BeginUpdate() .FullRowSelect = True .MultiSelect = True For Each Item In .SelectedItems Item.Selected = False Next For x = 0 To .Items.Count - 1 If bMatchCase = True Then If .Items(x).Text Like sSearchText _ And Len(.Items(x).Text) = Len(sSearchText) Then .Items(x).Selected = True .Items(x).EnsureVisible() Else For Column = 0 To Columns If .Items(x).SubItems(Column).Text Like sSearchText _ And Len(.Items(x).SubItems(Column).Text) = Len(sSearchText) Then .Items(x).Selected = True .Items(x).EnsureVisible() End If Next End If ElseIf bMatchCase = False Then If .Items(x).Text.ToLower Like sSearchText.ToLower _ And Len(.Items(x).Text) = Len(sSearchText) Then .Items(x).Selected = True .Items(x).EnsureVisible() Else For Column = 1 To Columns If .Items(x).SubItems(Column).Text.ToLower Like sSearchText.ToLower _ And Len(.Items(x).SubItems(Column).Text) = Len(sSearchText) Then .Items(x).Selected = True .Items(x).EnsureVisible() End If Next End If End If Next .Focus() .EndUpdate() End With Exit Sub Error_ErrHandler: End Sub

listview durchsuchen	861	Thunderstorm	30.08.07 14:25
Re: listview durchsuchen	452	FZelle	30.08.07 15:24
Re: listview durchsuchen	496	Thunderstorm	30.08.07 16:25
Re: listview durchsuchen	556	Thunderstorm	30.08.07 21:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen