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:
Ver originalPrivate 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!