Cita:
Iniciado por seba123neo
Tanto quilombo para algo tan simple????
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Te arme un subproceso que le mandas dos parametros... El ListBox que queres buscar y lo que deseas buscar... Si lo encuentra lo selecciona
Código:
'Programador por ..::][CULD][::.. a pedido de gerardo_goh
'-----------------------------------------------------------------------
'Este subproceso busca una palabra en un ListBox y si la encuentra
'la selecciona
'-----------------------------------------------------------------------
Public Sub ListBox_buscarYseleccionar(List As ListBox, Buscar As String)
Dim X As Integer
For X = 0 To List.ListCount - 1
If UCase(List.List(X)) = UCase(Buscar) Then
List.ListIndex = X
Exit Sub
End If
Next X
End Sub