Compartilhar via


Exemplo da propriedade TakeFocusOnClick

O exemplo a seguir usa a propriedade TakeFocusOnClick para controlar se um CommandButton recebe o foco quando o usuário clica nela.

O usuário clica em um controle diferente de CommandButton1 e clica em CommandButton1. Se TakeFocusOnClick for True, o CommandButton1 receberá o foco depois de ser clicado. O usuário pode alterar o valor de TakeFocusOnClick clicando no ToggleButton.

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:

  • Um CommandButton denominado CommandButton1.
  • Um ToggleButton denominado ToggleButton1.
  • Um ou dois outros controles, como um OptionButton ou ListBox.
Private Sub CommandButton1_Click() 
 MsgBox "Watch CommandButton1 to see if it " _ 
 & "takes the focus." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TakeFocusOnClick = True 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 Else 
 CommandButton1.TakeFocusOnClick = False 
 ToggleButton1.Caption = "TakeFocusOnClick Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TakeFocusOnClick 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.