Table of contents
TOC
Collapse the table of content
Expand the table of content

KeyDown Event, TextBox Control, CurLine, CurTargetX, CurX, Text Properties Example

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

The following example tracks the CurLine, CurTargetX, and CurX property settings in a multiline TextBox. These settings change in the KeyUp event as the user types into the Text property, moves the insertion point, and extends the selection using the keyboard.

To use this example, follow these steps:

  1. Copy this sample code to the Declarations portion of a form.

  2. Add one large TextBox named TextBox1 to the form.

  3. Add three TextBox controls named TextBox2, TextBox3, and TextBox4 in a column.

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
© 2018 Microsoft