Ejemplo de evento KeyPress

En el ejemplo siguiente se usa el evento KeyPress para copiar las pulsaciones de tecla de un TextBox a un segundo TextBox. El usuario escribe en el elemento TextBox marcado adecuadamente.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Dos controles TextBox denominados TextBox1 y TextBox2.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As _ 
 MSForms.ReturnInteger) 
 TextBox2.Text = TextBox2.Text & Chr(KeyAscii) 
 
 'To handle keyboard combinations (using SHIFT, 
 'CONTROL, OPTION, COMMAND, and another key), 
 'or TAB or ENTER, use the KeyDown or KeyUp event. 
End Sub 
 
Private Sub UserForm_Initialize() 
 Move 0, 0, 570, 380 
 
 TextBox1.Move 30, 40, 220, 160 
 TextBox1.MultiLine = True 
 TextBox1.WordWrap = True 
 TextBox1.Text = "Type text here." 
 TextBox1.EnterKeyBehavior = True 
 
 
 TextBox2.Move 298, 40, 220, 160 
 TextBox2.MultiLine = True 
 TextBox2.WordWrap = True 
 TextBox2.Text = "Typed text copied here." 
 TextBox2.Locked = True 
 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.