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

Пример использования свойства TabStop

  • Статья

В следующем примере свойство TabStop используется для управления тем, может ли пользователь нажать клавишу TAB для перемещения фокуса на определенный элемент управления. Пользователь нажимает клавишу TAB, чтобы переместить фокус между элементами управления в форме, а затем щелкает элемент ToggleButton , чтобы изменить tabStop для CommandButton1. Если tabStop имеет значение False, CommandButton1 не получит фокус с помощью tab.

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

  • Объект CommandButton с именем CommandButton1.
  • Элемент ToggleButton с именем ToggleButton1.
  • Один или два других элемента управления, например OptionButton или ListBox.
Private Sub CommandButton1_Click() 
 MsgBox "Clicked CommandButton1." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TabStop On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
End Sub

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

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