15/12/2009, 12:27
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 9 meses Puntos: 29 | |
| Respuesta: RichTextBox: Actualizar texto seleccionado
Es fácil 
Código vb:
Ver originalPrivate Sub RichTextBox1_Click() Text1.Text = RichTextBox1.SelText End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim SelSt As Long SelSt = RichTextBox1.SelStart RichTextBox1.SelText = Text1.Text RichTextBox1.SelStart = SelSt RichTextBox1.SelLength = Len(Text1.Text) End Sub
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |