KeyDown 事件、文本框控件、CurLine、CurTargetX、CurX 和 Text 属性示例

下例跟踪多行文本框中的 CurLine、CurTarget 和 CurX 属性设置。当用户使用键盘键入 Text 属性、移动插入点和扩展选择时，这些设置在 KeyUp 事件中改变。

若要使用该示例，请执行如下操作步骤：

将该示例代码复制到某窗体的声明变量部分。

• 在窗体中添加名为 TextBox1 的大文本框。
• 名为 TextBox2、TextBox3 和 TextBox4 的三个文本框控件添加到一个列中。

Sub UserForm_Initialize()
    UserForm_TextBox1.MultiLine = True
    UserForm_TextBox1.Text = "输入"
End Sub

Sub UserForm_TextBox1_KeyUp(KeyCode, Shift)
	UserForm_TextBox2.Text = UserForm_TextBox1.CurLine
    UserForm_TextBox3.Text = UserForm_TextBox1.CurX
    UserForm_TextBox4.Text = UserForm_TextBox1.CurTargetX
    MsgBox "sdd"
End Sub