Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ricardovinzo en 9 Junio 2008, 19:42 pm



Título: duda con un richtextbox
Publicado por: ricardovinzo en 9 Junio 2008, 19:42 pm
hola señores, bueno estuve leyendo un tutorial en RecursosVisualBasic sobre el richbox, tratando de encontrar la manera de poner en negrita la palabras de carlos, maria osea

tengo mi richbox y este contiene esto:

habia una vez una niña
llamada maria que vivia
con su primo carlos, ellos
vivian en venezuela juntos
se divertian mucho! maria tiene
18 años y carlos 14


lo que no se es como hacer para que busque todos los maria y carlos y los ponga en negrita, se poner las letras en negrita, pero no se como hacerlo de esa manera!

Gracias!


Título: Re: duda con un richtextbox
Publicado por: cassiani en 9 Junio 2008, 20:03 pm
Este tema ya se trato un par de veces y no hace mucho, busca entre los post de LAS páginas anteriores, de seguro lo encuentras...  ;)



Título: Re: duda con un richtextbox
Publicado por: ricardovinzo en 9 Junio 2008, 20:40 pm
hola cassiani, bueno man disculpa la molestia de nuevo, pero busque manualmente hasta la 5 pagina y nada! :S y use el boton buscar y no encontre lo que yo quiero hacer! :S..


Título: Re: duda con un richtextbox
Publicado por: CeLaYa en 9 Junio 2008, 21:39 pm
que tal ricardovinzo como lo dice cΔssiΔnі  ese tema ya se ha tratado aqui varias veces, pero igual hay va una vez más jejeje



lo que puedes hacer es usar la función instr ejemplo

dim pos as long
pos = 1
do
    pos = instr(pos, "Carlos", texto)   ' Localica donde empieza la palabra Carlos
    if pos = 0 then exit do
    RichTextBox1.SelStart = pos    ' seleccionamos la parte del texto
    RichTextBox1.SelLength = 6     ' y la ponemos en negrita
    RichTextBox1.SelBold = True
loop while pos <> 0 ' Repetimos el bucle hasta que no encuentre más parabras



tambien puedes crear un array de palabras a buscar y hacer bucles anidados para que te ahorres codgo,




espero te sirva este pequeño ejemplo......
saludos....