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

Указание поддержки вкладок для элемента управления

  • Статья

В следующем примере свойство TabStop используется для управления наличием у пользователя возможности нажать клавишу TAB, чтобы переместить фокус на определенный элемент управления. Свойство TabIndex — это свойство Microsoft Forms 2.0, которое применяется ко всем элементам управления, поддерживающим табуляция. Пользователь нажимает клавишу TAB, чтобы переместить фокус между элементами управления в форме, а затем щелкает элемент ToggleButton , чтобы изменить tabStop для CommandButton1. Когда TabStop имеет значение False, CommandButton1 не получает фокус с помощью клавиши TAB.

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

  • Объект CommandButton с именем CommandButton1.

  • Элемент ToggleButton с именем ToggleButton1.

  • Один или два других элемента управления, например OptionButton или ListBox.

Sub CommandButton1_Click() 
 MsgBox "Clicked CommandButton1." 
End Sub 
 
Sub ToggleButton1_Click() 
 Dim CommandButton1 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop Off" 
 End If 
End Sub 
 
Sub Item_Open() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TabStop On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
End Sub

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

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