Exemplo da propriedade TabStop

O exemplo a seguir usa a propriedade TabStop para controlar se um usuário pode pressionar Tab para mover o foco para um controle específico. O usuário pressiona Tab para mover o foco entre os controles no formulário e, em seguida, clica no ToggleButton para alterar TabStop para CommandButton1. Quando TabStop for False, CommandButton1 não receberá o foco usando Tab.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• A CommandButton named CommandButton1.
• Um ToggleButton denominado ToggleButton1.
• Um ou dois outros controles, como um OptionButton ou 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.