Como buscar un texto en un TextBox?

Iniciado por kuki06, 28 Abril 2006, 00:29 AM

0 Miembros y 1 Visitante están viendo este tema.

kuki06

Hola gente, estoy buscando un code para hacer mas o menos, que
busque en el Text1 la palabra de un inputbox osea..

Private Sub Command1_Click()
Buscar = InputBox("Que quieres buscar?","Buscar")

Split(Text1.text,Buscar)

end sub

y ademas de buscarlo, si se encuentra, que lo marque..

espero sus respuestas! salu2

NYlOn

Espero que esto te sirva:

    Palabra = InputBox("Palabra a buscar", "Buscar")
    For i = 1 To Len(Text1)
        If LCase(Mid(Text1, i, Len(Palabra))) = LCase(Palabra) Then
            Text1.SetFocus
            Text1.SelStart = i - 1
            Text1.SelLength = Len(Palabra)
            Exit For
        End If
    Next i


NOTA: Cuando encuentra la palabra buscada, va a terminar la busqueda, por lo que si queda otra palabra igual mas adelante no se va a marcar. Para arreglarlo sacale el Exit For y te recomiendo ir poniendo el valor de i en una variable para despues ir buscandola. Espero que se entienda ;D
Saludos.-

kuki06

perfecto anda 10 pts
pero no tenes algun code para que busque otro? osea.. buscar siguiente