Truco Truco 2... Seleccionar una Fila en Listview mediante Codigo en Vis Basic

[turbo]

Las propiedades del listvew No tener activada la miltiseccion de filas

Me.ListView.FullRowSelect = True
Me.ListView.GridLines = True
Me.ListView.HideSelection = False
Me.ListView.MultiSelect = False

simplemente buscamos con algun metodo de busqueda el que use fue el binarios y le damos la posicion de la fila y listo
Listview.Items(Pos).Selected = True
Listview.Items(Pos).EnsureVisible()
Listview.Focus()

El Metodo de busqueda Binaria seria

Valor Es el texto a buscar, PosBusq la columna en la que buscara

SeerchPosLista("alejandro",1,Listview)


Public Sub SeerchPosLista(ByVal Valor As String, ByVal PosBusq As Int16, ByVal ParamArray objeto() As Object)
Dim Inicio, Fin, Pos As Integer, Cad As String, obj As Object
If TypeOf obj Is ListView Then
Inicio = 0 : Fin = obj.Items.Count - 1 : Valor = LCase(Valor)
While (Inicio <= Fin)
Pos = Int((Inicio + Fin) / 2)
Cad = LCase(obj.Items.Item(Pos).SubItems(PosBusq).Text)
If Valor < Cad Then
Fin = Pos - 1
ElseIf Valor > Cad Then
Inicio = Pos + 1
Else 'Encontrado
obj.Items(Pos).Selected = True
obj.Items(Pos).EnsureVisible()
obj.Focus()
Exit Sub
End If
End While
Pos = -1
End If
End Sub

El Numero de preguntas que me tomo en 8000 filas fue de trece hasta encontrar en nombre

Eso es todo espero que les sirva y ASUNTO SELLADO.

Saludossssssssss.