Enter-Ereignis, Exit-Ereignis, ActiveControl-Eigenschaft (Beispiel)

Im folgenden Beispiel wird die ActiveControl-Eigenschaft in einer Unterroutine verwendet, die die Steuerelemente nachverfolgt, die ein Benutzer besucht. Das Enter-Ereignis für jedes Steuerelement ruft die TraceFocus-Unterroutine auf, um das Steuerelement zu identifizieren, das den Fokus hat.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

• Ein Bildlaufleisten -Steuerelement (ScrollBar) mit der Bezeichnung "ScrollBar1".
• Ein Listenfeld-Steuerelement ( ListBox ) mit der Bezeichnung "ListBox1".
• Zwei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" und "OptionButton2".
• Ein Frame mit dem Namen 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.