Buenas, estoy haciendo una aplicación en la que quiero que después de un nombre, tenga una parte coloreada tal que así:
Pepe dice:
HolaPepa dice:
HolaLo separo en dos vectores, uno para el nombre y uno para el mensaje. El que quiero ver coloreado es el del mensaje.
Hago ésto pero solo se colorea la primera vez, y segun recibe mensajes los colores se cambian de sitio:
Pepe dice:
HolaPepa dice: Hola
If Mid(datos, 1, 3) = "MSG" Then 'Cuando recibo es MSGmensaje
mensaje = Split(Mid(datos, 4, Len(datos)), ":")
Text1.Text = Text1.Text & mensaje(0) & ":" & mensaje(1) & vbNewLine 'nombre dice: mensaje
lennombre = Len(mensaje(0)) 'tamano del nombre
lenmensaje = Len(mensaje(1)) 'tamano del mensaje
With Text1 'creo que falla aqui
.SelStart = lennombre 'selecciono desde donde acaba el nombre
.SelLength = lenmensaje 'hasta que acaba el mensaje
.SelColor = vbBlue 'se supone que tiene que colorearlo todas las veces que quiera
.SelBold = True
End With
End If
¿Sugerencias?
Saludos.