Поделиться через

Пример использования события KeyDown, элемента управления TextBox и свойств CurLine, CurTargetX, CurX и Text

  • Статья

В следующем примере отслеживались параметры свойств CurLine, CurTargetX и CurX в многострочного TextBox. Эти параметры изменяются в событии KeyUp , когда пользователь вводит данные в свойство Text , перемещает точку вставки и расширяет выбор с помощью клавиатуры.

Чтобы воспользоваться этим примером, выполните следующие действия:

  1. Скопируйте этот пример кода в часть формы "Объявления".

  2. Добавьте в форму одно большое поле тестовое поле с именем TextBox1.

  3. Добавьте в столбец три элемента управления тестовое поле с именами 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 и обратная связь.