KeyDown 事件、TextBox 控件、CurLine、CurTargetX、CurX 和 Text 属性示例

以下示例跟踪多行 TextBox 中的 CurLine、CurTargetX 和 CurX 属性设置。 当用户键入 Text 属性、移动插入点并使用键盘扩展所选内容时，KeyUp 事件中的这些设置会更改。

若要使用此示例，请按照下列步骤操作：

1. 将此示例代码复制到窗体的声明部分。

2. 向窗体中添加一个名为 TextBox1 的大型 TextBox。

3. 在一个列中添加三个 TextBox 控件，分别名为 TextBox2、TextBox3 和 TextBox4。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。