Пример использования событий Enter и Exit и свойства ActiveControl

В следующем примере свойство ActiveControl используется в подпрограмме, которая отслеживает элементы управления, которые пользователь посещает. Событие Ввод для каждого элемента управления вызывает подпрограмму TraceFocus для идентификации элемента управления, на который установлен фокус.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит следующие элементы управления:

• ScrollBar с именем ScrollBar1.
• Объект ListBox с именем ListBox1.
• Два элемента управления OptionButton с именами OptionButton1 и OptionButton2.
• Кадр с именем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.