12/12/2009, 16:07
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 9 meses Puntos: 29 | |
| Respuesta: Un Reto: Mensaje de texto rotativo
Solo tienes que usar el evento change que puse como ejemplo, cambiando RT1 por el nombre de tu RichTextBox:
Private Sub RT1_Change()
Dim Pos As Long
With RT1
.Visible = False
Pos = .SelStart
CambiaColores RT1
.SelStart = Pos
.Visible = True
.SetFocus
End With
End Sub
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |