Subproceso para buscar algo en un listbox y si lo encuentra seleccionarlo
Código vb:
Ver original'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