Compartir a través de

Ejemplo de eventos Enter y Exit, y propiedad ActiveControl

  • Artículo

En el ejemplo siguiente se usa la propiedad ActiveControl en una subrutina que realiza un seguimiento de los controles que visita un usuario. El evento Enter de cada control llama a la subrutina TraceFocus para identificar el control que tiene el foco.

Para usar este ejemplo, copie esta muestra de código en la parte de las declaraciones de un formulario. Asegúrese de que el formulario contiene los controles siguientes:

  • Un control ScrollBar denominado ScrollBar1.
  • Un control ListBox denominado ListBox1.
  • Dos controles OptionButton denominados OptionButton1 y OptionButton2.
  • Un marco denominado 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.