Funcion para Buscar en un ListView el primer elemento con relacion de la busqueda y Dejarlo SELECCIONADO. (la idea es poder elegir la columna a buscar)
Código:
'--------- Ejemplo Para Buscar en un ListView indicando la Columna ----------
'--------- Programado por CULD, para ForosDelWeb y Psico ----------
'NOTA: Pueden darle otras opciones para que la palabra a buscar este
'comprendida en alguna parte y no solamente desde izquierda a derecha
Public Sub ListView_Busqueda(ListView As Object, Buscar As String, Columna As Integer)
Dim X As Long
For X = 1 To ListView.ListItems.Count
If UCase(Left(ListView.ListItems(X).SubItems(Columna), Len(Buscar))) = UCase(Buscar) Then
ListView.SelectedItem = ListView.ListItems(X)
ListView.SetFocus
Exit Sub
End If
Next X
End Sub