Exemplo dos eventos Enter, Exit, da propriedade ActiveControl

O exemplo a seguir usa a propriedade ActiveControl em uma sub-rotina que rastreia os controles que um usuário visita. O evento Enter para cada controle chama a sub-rotina TraceFocus para identificar o controle que tem o foco.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Make sure that the form contains the following controls:

• Uma Barra de Rolagem chamada ScrollBar1.
• Uma ListBox chamada ListBox1.
• Dois controles OptionButton chamados OptionButton1 e OptionButton2.
• Um quadro chamado Frame1.

Dim MyControl As Control 
 
Private Sub TraceFocus() 
 ListBox1.AddItem ActiveControl.Name 
 ListBox1.List(ListBox1.ListCount - 1, 1) = _ 
 ActiveControl.TabIndex 
End Sub 
 
Private Sub UserForm_Initialize() 
 ListBox1.ColumnCount = 2 
 ListBox1.AddItem "Controls Visited" 
 ListBox1.List(0, 1) = "Control Index" 
End Sub 
 
Private Sub Frame1_Enter() 
 TraceFocus 
End Sub 
 
Private Sub ListBox1_Enter() 
 TraceFocus 
End Sub 
 
Private Sub OptionButton1_Enter() 
 TraceFocus 
End Sub 
 
Private Sub OptionButton2_Enter() 
 TraceFocus 
End Sub 
 
Private Sub ScrollBar1_Enter() 
 TraceFocus 
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.