Imprimir Página - Como buscar un texto en un TextBox?

Título: Como buscar un texto en un TextBox?
Publicado por: kuki06 en 28 Abril 2006, 00:29 am

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

Título: Re: Como buscar un texto en un TextBox?
Publicado por: NYlOn en 28 Abril 2006, 02:59 am

Espero que esto te sirva:

Código:

    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.-

Título: Re: Como buscar un texto en un TextBox?
Publicado por: kuki06 en 28 Abril 2006, 04:35 am

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kuki06 en 28 Abril 2006, 00:29 am