Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: [eklvin] en 24 Abril 2006, 05:42 am



Título: Rich Text Box con color vb
Publicado por: [eklvin] en 24 Abril 2006, 05:42 am
hay alguna forma de ponerle diferentes colores a un Rich text box
Juan dice: klk men
Luis dice: na tranki ;D
algo mas o menos asi, es para el chat que estoy haciendo quiero k los mensajes de cada usuario se vean de un color diferente

saludos ::)


Título: Re: Rich Text Box con color vb
Publicado por: NYlOn en 24 Abril 2006, 21:48 pm
Usa las propiedades
-SelStart
-SelLength
-SelColor


Saludos.-


Título: Re: Rich Text Box con color vb
Publicado por: [eklvin] en 25 Abril 2006, 04:52 am
men me podrias dar una manito por que la verdad no veo donde usar esas propiedades :huh:
salu2


Título: Re: Rich Text Box con color vb
Publicado por: xXnewbieXx en 25 Abril 2006, 16:04 pm
son las propiedades del richtextbox.

x ejemplo:
RichTextBox1.SelColor = RGB(255, 0, 0)


Título: Re: Rich Text Box con color vb
Publicado por: WarGhost en 25 Abril 2006, 17:37 pm
y existe un RichTextBox1 que se pueda poner al estilo xp¿?



;D Salu2, WarGhost


Título: Re: Rich Text Box con color vb
Publicado por: [eklvin] en 27 Abril 2006, 04:40 am
ok si pero tengo un problema  :P cuando recibo los mensajes no hacen efectos las propiedades del Rich Text Box que yo les pongo si no que se queda con las propiedades inicales osea normal
tengo esto
Citar
Private Sub wcliente_DataArrival(ByVal bytesTotal As Long)
Dim recibido As String
wcliente.GetData recibido
txtconversacion.SelColor=RGB(0,0,250)
txtconversacion.Text = txtconversacion.Text + Chr(13) + recibido
End Sub

 :huh:


Título: Re: Rich Text Box con color vb
Publicado por: Gangrel en 27 Abril 2006, 05:40 am
Esque no es asi tan facil como lo tratas de hacer.
Primero tienes que seleccionar el texto que quieres formatear y despues ya le aplicas el formato.

Código:
txtconversacion.SelStart = 0  'Pocicionamos el caret (el cursor parpadeante que aparece en los cuadros de texto) en la pocicion 0 (entes de la primer letra)

txtconversacion.SelLength = len(txtconversacion) 'Seleccionamos desde la pocion actual del caret (0) hasta el ultimo caracter de txtconversacion

txtconversacion.SelColor=RGB(0,0,250) 'Ahora si aplicamos el formato al texto seleccionado.

txtconversacion.SelStart = len(txtconversacion) 'Quitamos la seleccion y ponemos el caret en la ultima pocicion.

Si quieres aplicar formato solo a algunas partes del texto tendras que ingeniartelas para lograrlo.


Título: Re: Rich Text Box con color vb
Publicado por: xXnewbieXx en 27 Abril 2006, 18:02 pm
y como seria si fuese seleccionanda 1 palabra o 1 frase? :huh:... pq en el code coge dsd una posicion hasta el final del texto.

saludos! ;)


Título: Re: Rich Text Box con color vb
Publicado por: Gangrel en 27 Abril 2006, 21:18 pm
Pues para eso ya se las tienen que ingeniar ustedes, dependiendo de lo que esten haciendo  :P

por ejemplo en este caso:
Citar
Private Sub wcliente_DataArrival(ByVal bytesTotal As Long)
Dim recibido As String
wcliente.GetData recibido
txtconversacion.SelColor=RGB(0,0,250)
txtconversacion.Text = txtconversacion.Text + Chr(13) + recibido
End Sub

se podria hacer los siguiente:
Código:
Private Sub wcliente_DataArrival(ByVal bytesTotal As Long)
Dim recibido As String
wcliente.GetData recibido
txtconversacion.Text = txtconversacion.Text + Chr(13) + recibido
txtconversacion.SelStart = len(txtconversacion) - bytesTotal
txtconversacion.SelLength = bytesTotal
txtconversacion.SelColor=RGB(0,0,250)
End Sub

Con el codigo anterior se le aplica el formato solo a la cadena que llego por el Winsock.