Пример использования свойств Enabled, EnterFieldBehavior, SelLength, SelStart и SelText

В следующем примере отслеживаются свойства, связанные с выбором (SelLength, SelStart и SelText), которые изменяются при перемещении пользователем точки вставки и расширении выделения с помощью клавиатуры.

В этом примере также используются свойства Enabled и EnterFieldBehavior .

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

• Один большой элемент TextBox с именем TextBox1.
• Три элемента управления TextBox в столбце с именами от TextBox2 до TextBox4.

Private Sub TextBox1_KeyUp(ByVal KeyCode As _ 
 MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.SelStart 
 TextBox3.Text = TextBox1.SelLength 
 TextBox4.Text = TextBox1.SelText 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox1.Text = "Type your text here. Use " _ 
 & "CTRL+ENTER to start a new line." 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.