Table of contents
TOC
Inhaltsverzeichnis reduzieren
Inhaltsverzeichnis erweitern

Enter, Exit Events, ActiveControl Property ExampleEnter, Exit Events, ActiveControl Property Example

office 365 dev account|Zuletzt aktualisiert: 06.03.2018
|
2 Mitarbeiter

Im folgenden Beispiel wird die ActiveControl -Eigenschaft verwendet, in eine Unterroutine, die die Steuerelemente, die ein Benutzer besucht, nachverfolgt werden.The following example uses the ActiveControl property in a subroutine that tracks the controls a user visits.Das Enter -Ereignis für jedes Steuerelement ruft die TraceFocus-Subroutine, um das Steuerelement zu identifizieren, das den Fokus hat.The Enter event for each control calls the TraceFocus subroutine to identify the control that has the focus.

Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Deklarationsteil eines Formulars. Stellen Sie sicher, dass das Formular die folgenden Steuerelemente enthält:To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains the following controls:

  • Ein ScrollBar-Steuerelement mit der Bezeichnung "ScrollBar1".A ScrollBar named ScrollBar1.

  • Ein ListBox-Steuerelement mit der Bezeichnung "ListBox1".A ListBox named ListBox1.

  • Zwei OptionButton -Steuerelemente mit der Bezeichnung "OptionButton1" und "OptionButton2".Two OptionButton controls named OptionButton1 and OptionButton2.

  • Einen Frame mit der Bezeichnung "Frame1".A Frame named 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
© 2018 Microsoft