Preciso fazer uma procura em um subitem do listview mas não quero ter que digitar toda a palavra para que ela encontre, por exemplo, no inputbox digito "Car", e ele deverá procurar no subitem a palavra "Carro" ... já fiz alguma coisa, mas ele sempre me retorna com não encontrado
vejam:
Dim vProcurar As String
Dim itmProcurar As ListItem
vProcurar = InputBox("Informe o nome do carro", "Procurar")
If vProcurar <> "" Then
Set itmProcurar = lstCarros.FindItem(vProcurar, lvwSubItem, , lvwPartial)
If itmProcurar Is Nothing Then
MsgBox "não encontrado"
Else
itmProcurar.EnsureVisible
itmProcurar.Selected = True
lstCarros.SetFocus
End If
End If
Valeu !!!
