FAQ's de VB6

[culd]

Subproceso para buscar algo en un listbox y si lo encuentra seleccionarlo

Código vb:

'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