Свойство Screen.ActiveControl (Access)

Используйте свойство ActiveControl вместе с объектом Screen для идентификации элемента управления с фокусом или ссылки на него. Объект Control , доступный только для чтения.

Синтаксис

expression. ActiveControl

выражение Переменная, представляющая объект Screen .

Замечания

Этот параметр свойства содержит ссылку на объект Control , который имеет фокус во время выполнения.

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

Dim ctlCurrentControl As Control 
Dim strControlName As String 
Set ctlCurrentControl = Screen.ActiveControl 
strControlName = ctlCurrentControl.Name

Если элемент управления не имеет фокуса при использовании свойства ActiveControl или если все элементы управления активной формы скрыты или отключены, возникает ошибка.

Пример

В следующем примере активный элемент управления назначается переменной ctlCurrentControl , а затем выполняются различные действия в зависимости от значения свойства Name элемента управления.

Dim ctlCurrentControl As Control 
 
Set ctlCurrentControl = Screen.ActiveControl 
If ctlCurrentControl.Name = "txtCustomerID" Then 
 . 
 . ' Do something here. 
 . 
ElseIf ctlCurrentControl.Name = "btnCustomerDetails" Then 
 . 
 . ' Do something here. 
 . 
End If

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

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