[VB6] RichTextBox.

[coqui90]

Buenas gente, recurro otra vez a ustedes ya que no he podido solucionar un inconveniene que tengo... Ya que estamos, les hago dos consultas:

1. ¿Es posible unir dos RichTexBox, manteniendo su respectivo formato? En caso de ser posible, me gustaría saber como hacerlo, ya que no he podido lograrlo ni encontrar una forma en la web...

2. Tengo otro problema con este componente. Verán, estoy intentando realizar un programa de Chat, donde quiero distinguir a cada usuario con un respectivo color.

Ahora bien, en principio a la hora de cambiar a otro color, me modifica la primera nueva linea ingresada correctamente... pero luego, a medida que voy ingresando más lineas, solamente me mantiene el color correcto en la última ingresada, asignandole al resto de las lineas el formato de la primer linea, perdiendo por completo el objetivo del programa ^^

Si ya sé, habrá quedado medio confuso :P Así que les dejo la parte del programa modificado para que lo puedan ver por ustedes mismos. Con él, cambio el formato a cada linea de texto, a medida que la voy ingresando:

El formulario es muy simple y consta de los siguientes componentes:

1 TextBox ==> Nombre: TextoAEnviar
1 RichTextBox ==> Nombre: T
1 CommandButton ==> Nombre: CommandButton
1 ComboBox ==> Nombre: Combo1

Código VB:

Private Sub Form_Load()
With Combo1
    .List(0) = "Verde"
    .ItemData(0) = 1
    .List(1) = "Rojo"
    .ItemData(1) = 2
    .List(2) = "Amarillo"
    .ItemData(2) = 3
End With
Command1.Caption = "Enviar"
End Sub
 
Private Sub Command1_Click()
T.Text = T.Text & TextoAEnviar.Text & vbCrLf
Call Color Combo1.ItemData(Combo1.ListIndex), Len(TextoAEnviar.Text & vbCrLf)
End Sub
 
Private Sub Color(From As Integer, LenDato As Integer)
 
T.SelStart = Len(T.Text) - LenDato
T.SelLength = LenDato
 
Select Case From
Case 1
    T.SelColor = vbGreen
Case 2
    T.SelColor = vbRed
Case 3
    T.SelColor = vbYellow
End Select
T.SelLength=0
End Sub
 

He intentado de varias formas, pero no he conseguido una solución que me sea eficiente. Si alguno puede darme una mano, les agradecería mucho.

Si no logran conseguir hacer que funcione mi codigo, y tienen alguna mejor idea por donde encarar la solución, sean bienvenidos ^^ Si no tienen ganas de escribir un codigo, pueden comentarmela simplemente y yo veré de examinarlo por mi propia cuenta... Ya que lo que más valoro es la idea ^^

Saludos!

[servantsoftware]

Esto te puede ayudar mucho: http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/chat.htm

[coqui90]

Uh, me mataste con eso jaja... El único chat que usa el formato de RichTextBox ahí, lo realiza aplicando directamente la codificación del formato RTF, es decir por ejemplo escribiendo algo así:

"{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fmoder n\fprq1\fcharset0 Lucida Console;}{\f1\fnil\fcharset0 MS Sans Serif;}}"

Me va a llevar un tiempito comprender la codificación, y para lo que quiero hacer, no sé si vale la pena el esfuerzo ^^ Pero bueno, hasta ahora no pude dar con la solución, así que voy a probar ir trabajando un poco con la codificación del RTF, seguramente logre poder manejarlo, aunque sea basicamente ^^ Thanks...

De todas formas, obviamente sigue siendo bienvenida y agradecida cualquier idea que puedan dar sobre el asunto...

Saludos!

[coqui90]

Buenas otra vez gente! Les comento que ya pude solucionarlo, lo logré respondiendo a la primera de mis preguntas, luego de ponerme a probar por cuenta propia algunas propiedades del componente ^^ La solución fue relativamente simple, y me implico solamente el crear un segundo RichTextBox (El cual permanece invisible durante la ejecución del programa), al cual lo utilizo para modificar el formato de la nueva linea a ingresar, y luego copiarlo al RichTetxtBox original.

Para unir un RichTextBox con otro, simplemente pongo el puntero al final del primer RTB y selecciono el texto del segundo. Luego utilizando simplemente la propiedad .selRTF, realizo la siguiente igualdad RTB1.selRTF=RTB2.SelRTF.

Para que lo puedan ver en acción, por si alguno llega a tener la misma inquietud que yo, modifiqué el codigo anterior (El nombre del nuevo RichTextBox es "T2"):

Código VB:

Private Sub Form_Load()
With Combo1
    .List(0) = "Verde"
    .ItemData(0) = 1
    .List(1) = "Rojo"
    .ItemData(1) = 2
    .List(2) = "Amarillo"
    .ItemData(2) = 3
End With
BEnviar.Caption = "Enviar"
T2.Visible = False
End Sub
 
Private Sub BEnviar_Click()
T2.Text = TextoAEnviar.Text
Color Combo1.ItemData(Combo1.ListIndex), Len(TextoAEnviar.Text & vbCrLf)
T.SelStart = Len(T.Text)
T.SelRTF = T2.TextRTF
End Sub
 
Private Sub Color(From As Integer, LenDato As Integer)
 
T2.SelStart = 0
T2.SelLength = LenDato
Select Case From
Case 1
    T2.SelColor = vbGreen
Case 2
    T2.SelColor = vbRed
Case 3
    T2.SelColor = vbYellow
End Select
End Sub
 

Saludos!