Tengo la siguiente plantilla de ejemplo:
Y luego tengo el siguiente codigo:
Código:
Private Sub Text1_Change()
Dim item As ListItem
Set item = ListView1.FindItem(Text1.Text, lvwSubItem, , lvwPartial)
'item.EnsureVisible
'ListView1.HideSelection = False
'item.Selected = True
If Not item Is Nothing Then
MsgBox ("encontrado")
Else
MsgBox ("no encontrado")
End If
End Sub
El problema es que aunque utilice la constante lvwPartial solo encuentra la cadena entera, de manera que si pongo solo "sony" me dice no encontrado, alguien me puede dar una mano? gracias
Edit: solucionado, si alguien necesita la solucion avise y con gusto la posteo.