Listview finditem

[harolda1980]

Ik probeer in mijn listview een zoekfunctie toe te voegen! Die zoekt op worden die in de tweede kolom voorkomen.


Ik wil dus zoeken op het woord "Remia"

iemand een idee hoe ik dit kan realiseren dat ik bijvoorbeeld de index van de rij terugkrijg?

Dim i As ListItem
Set i = lssnel.FindItem("Remia", lvwSubItem, , 1)
If i Is Nothing Then
 MsgBox "not found"
Else'
 MsgBox i.index
End If

 

[OctaFish]

Mijn Office kent geen ListItem, en geen FIndItem.... Leg dat eerst eens uit

 

[harolda1980]

Die kun je importeren als extra besturingselementen. aangezien die al op je pc zit. En een listview is net iets uitgebreider dan een listbox. in een view kun je namelijk net iets meer doen via google met kijken naar fotos kom je er achter'wat globaal de mogelijkheden zijn!

 

[OctaFish]

Welke versie gebruik je?

 

[harolda1980]

Van excel? Ik heb office professional 2007

 

[Warme bakkertje]

Sub FindListItem()
Dim i As Integer
    For i = 1 To lssnel.listitems.Count
        If lssnel.listitems(i).subitems(1) = "Remia" Then
            MsgBox lssnel.listitems(i).Index
            Exit For
        End If
    Next
End Sub

 

[harolda1980]

Dat is een mooie code alleen dient remia dat in de cell voor te komen maar als er remia mayonaise staat pakt hij hem niet als ik het goed heb toch?

Hoe zou je dat op lossen?

 

[Warme bakkertje]

Sub FindListItem()
Dim i As Integer
    For i = 1 To ListView1.listitems.Count
        If InStr(ListView1.listitems(i).subitems(1), "Remia") > 0 Then 'deel v/e woord
            MsgBox ListView1.listitems(i).Index
            Exit For
        End If
    Next
End Sub

 

[harolda1980]

Kijk dit werk nog eens. Nu zou ik eigenlijk willen dat de rij geselecteerd gaat worden als hij er eentje heeft gevonden. of dat je verder kunt zoeken?

 

[Warme bakkertje]

Brengt de gevonden regel in het zichtbare venster

ListView1.ListItems(i).EnsureVisible

Kleurt het gevonden woord

ListView1.ListItems(i).ListSubItems.Item(1).ForeColor = RGB(255, 0, 0)

 

[harolda1980]

Mooie code hij deed het maar nu niet meer.. vreemd! Enig idee wat en waar hij fout gaat?

Private Sub cmdsearch_Click()
    If txtzk.Value <> "" Then
        Dim i As Integer
        lstophalen.ListItems(1).EnsureVisible
        For i = 1 To lstophalen.ListItems.Count
            If InStr(lstophalen.ListItems(i).SubItems(1), txtzk.Value) > 0 Then 'deel v/e woord
                lstophalen.ListItems(i).ListSubItems.Item(1).ForeColor = RGB(255, 0, 0)
                lstophalen.ListItems(i).EnsureVisible
                Exit For
            End If
        Next
    End If
End Sub

 

[Warme bakkertje]

Bij mij werkt dit perfect zo.

Private Sub cmdsearch_Click()
    If txtzk.Value <> "" Then
        Dim i As Integer
        For i = 1 To lstophalen.listitems.Count
            If InStr(lstophalen.listitems(i).subitems(1), txtzk.Value) > 0 Then 'deel v/e woord
                lstophalen.listitems(i).EnsureVisible
                lstophalen.listitems(i).ListSubItems.Item(1).ForeColor = RGB(255, 0, 0)
                Exit For
            End If
        Next
    End If
End Sub

 

[harolda1980]

Hij doet het wel alleen kleurt hij de regel niet merk ik nu!? Hij verspringt wel netjes.

 

[Warme bakkertje]

Enkel het gevonden woord wordt gekleurd.

 

[harolda1980]

Hij doet het.... Het lag aan de manier van kleur aanroepen!

lstophalen.ListItems(i).ListSubItems.Item(1).ForeColor = &HFF&