Compartir a través de

Ejemplo de propiedades de evento KeyDown, control TextBox y propiedades CurLine, CurTargetX, CurX y Text

  • Artículo

En el ejemplo siguiente se realiza un seguimiento de la configuración de las propiedades CurLine, CurTargetX y CurX en un TextBox de varias líneas. Esta configuración cambia en el evento KeyUp a medida que el usuario escribe en la propiedad Text , mueve el punto de inserción y extiende la selección mediante el teclado.

Para usar este ejemplo, siga estos pasos:

  1. Copie este código muestra en la parte de Declaraciones de un formulario.

  2. Agregue un cuadro de texto de gran tamaño con el nombre CuadroTexto1 al formulario.

  3. Agregue tres controles de cuadro de texto con los nombres CuadroTexto2, CuadroTexto3 y CuadroTexto4 en una columna.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.CurLine 
 TextBox3.Text = TextBox1.CurX 
 TextBox4.Text = TextBox1.CurTargetX 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 
 TextBox1.Text = "Type your text here. User CTRL + ENTER to start a new line." 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.