Visual basic buscar cadena en listas

Bueno hoy les traigo más código, muchas veces cuando hago búsquedas en MSDN me desespero por el tiempo que tarda en mostrar los resultado, aunque este trozo de código no funciona igual de efectivo, me resulta mas sencillo hacer búsquedas en las listas, les cuento que me desperté a las 6:00 am y sentí un gran ocio, así que encendí mi laptop y me puse a escribir una pequeña rutina para hacer una busca de texto sobre una lista (listbox), es algo muy sencillo y creo que hasta cutre, lo sient tendrá que soportarlo así que lo dejo para que lo copien y pegue o incrusten en un modulo, con una función que reciba, la lista y el cuadro de texto jajaja o haber que se les ocurre.

Primero necesitamos obviamente un formulario (jajaja) un textbox y un listbox, me quedo mas o menos así

Luego añadimos los ingredientes en el código:

Private Sub Form_Load()
'Lleno mi lista
    lista_nombres.AddItem "Qwerty"
    lista_nombres.AddItem "Dvorak"
    lista_nombres.AddItem "Bixho"
    lista_nombres.AddItem "Bugcillo"
    lista_nombres.AddItem "Fzagato"
    lista_nombres.AddItem "Adairstarkey.wordpress.com"
    lista_nombres.AddItem "José Luis"
    lista_nombres.AddItem "AlbertDeath"
    lista_nombres.AddItem "Kike Santiago"
    lista_nombres.AddItem "CLAU M."
    lista_nombres.AddItem "GPretorian"
    lista_nombres.AddItem "Areyce"
    lista_nombres.AddItem "Canito"
    lista_nombres.AddItem "León"
    lista_nombres.AddItem "Dwiki"
    lista_nombres.AddItem "Mono"
    lista_nombres.AddItem "Varv"
End Sub

Private Sub txt_busca_Change()
'La mini-rutina
 For i = 0 To lista_nombres.ListCount
        If StrComp(Mid(lista_nombres.List(i), 1, Len(txt_busca)), txt_busca, vbTextCompare) = 0 Then
            lista_nombres.Selected(i) = True
        Exit For
       End If
   Next
End Sub

Y Listo!!!!!
Que pasen buen día,
HOY ES SÁBADO voy a descansar jejeje.

Possibly related posts: (automatically generated)

This entry was posted on Saturday, March 1st, 2008 at 9:30 am and is filed under Aplicaciones, codigo, programas. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

3 Responses to “Visual basic buscar cadena en listas”

  1. rodrigo Says:
    October 17, 2008 at 11:37 am | Reply

    Muy buena la rutina me sirve de bastante, gracias.

  2. Jose Daniel Canchila Says:
    November 10, 2008 at 12:40 pm | Reply

    Private Sub txt_busca_Change()
    For x = 0 To (List1.ListCount – 1)
    List1.ListIndex = x
    If InStrRev(lista_nombres.Text,txt_busca.Text) Then
    Exit For
    End If
    Next x
    End Sub

    De esta forma busca y compara en cualquier parte del string…
    si buscas la palabra “wiki” encontrata a “Dwiki”

  3. Maxell Says:
    October 11, 2009 at 9:16 pm | Reply

    Buena CARCAMAN, pero en serio esas funciones de Jose Daniel y del Autor estan un poco arcaicas(antiguas), es mejor usar otros metodos …
    Bye

Leave a Reply