KeyPress 事件示例

下例用 KeyPress 事件，把击键值从一个文本框复制到另一个文本框中。用户在相应标记的文本框中键入内容。

窗体包含：

• 名为 TextBox1 和 TextBox2 的两个文本框控件。

Sub UserForm_TextBox1_KeyPress(KeyAscii)
    UserForm_TextBox2.Text = UserForm_TextBox2.Text & Chr(KeyAscii)
    
    '为处理键组合（用 Shift，
     'Control，Option，Command 以及其他键），
    '或 Tab 键 或 Enter 键，用 KeyDown 或 KeyUp 事件。
End Sub

Sub UserForm_Initialize()
	UserForm.Move 0, 0, 570, 380

    UserForm_TextBox1.Move 30, 40, 220, 160
    UserForm_TextBox1.MultiLine = True
    UserForm_TextBox1.WordWrap = True
    UserForm_TextBox1.Text = "Type text here."
    UserForm_TextBox1.EnterKeyBehavior = True
    
    
    UserForm_TextBox2.Move 298, 40, 220, 160
    UserForm_TextBox2.MultiLine = True
    UserForm_TextBox2.WordWrap = True
    UserForm_TextBox2.Text = "Typed text copied here."
    UserForm_TextBox2.Locked = True
 End Sub