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

Пример использования элемента управления TextBox, метода SetFocus и свойств EnterFieldBehavior, HideSelection, MultiLine и Value

  • Статья

В следующем примере демонстрируется свойство HideSelection в контексте одной формы или нескольких форм.

Пользователь может выделить текст в текстовом поле и вкладке для других элементов управления в форме, а также перенести фокус на вторую форму. В этом примере кода также используется метод SetFocus и свойства EnterFieldBehavior, MultiLine и Value .

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

  1. Скопируйте данный пример кода (кроме последней подпрограммы события) в раздел Declarations формы, содержащий объявления.

  2. Добавьте большой элемент TextBox с именем TextBox1, toggleButton с именем ToggleButton1 и CommandButton с именем CommandButton1.

  3. Вставьте в этот проект вторую форму с именем UserForm2.

  4. Вставьте последнюю подпрограмму события этого листинга в раздел Declarations формы UserForm2.

  5. В этой форме добавьте элемент CommandButton с именем CommandButton1.

  6. Запустите UserForm1.

' ***** Code for UserForm1 ***** 
Private Sub CommandButton1_Click() 
 TextBox1.SetFocus 
 UserForm2.Show 'Bring up the second form. 
End Sub

Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 TextBox1.HideSelection = False 
 ToggleButton1.Caption = "Selection Visible" 
 Else 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 End If 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection 
 
'Fill the TextBox 
 TextBox1.Text = "SelText indicates the starting " _ 
 & "point of selected text, or the insertion " _ 
 & point if no text is selected." & Chr$(10) _ 
 & Chr$(13) & "The SelStart property is " _ 
 & "always valid, even when the control does " _ 
 & "not have focus. Setting SelStart to a " _ 
 & "value less than zero creates an error. " _ 
 & Chr$(10) & Chr$(13) & "Changing the value " _ 
 & "of SelStart cancels any existing " _ 
 & "selection in the control, places " _ 
 & "an insertion point in the text, and sets " _ 
 & "the SelLength property to zero." 
 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 ToggleButton1.Value = False 

End Sub

'
' ***** Code for UserForm2 *****

Private Sub CommandButton1_Click() 
 UserForm2.Hide 
End Sub

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

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