Объект Screen

Объект Screen (экран) представляет отдельную форму, отчет или элемент управления, которые в текущий момент имеют фокус.

Объект Screen и его свойства используются в программах Visual Basic или в выражениях для ссылок на форму, отчет или элемент управления, которые имеют фокус. Например, объект Screen вместе со свойством ActiveForm позволяет сослаться на форму, находящуюся в активном окне, когда имя формы неизвестно. Следующая инструкция позволяет вывести имя формы, находящейся в активном окне:

MsgBox Screen.ActiveForm.Name

Ссылка на объект Screen не делает форму, отчет или элемент управления активными. Для того, чтобы активизировать форму, отчет или элемент управления, следует вызвать метод SelectObject объекта DoCmd.

Если ссылка на объект Screen делается в тот момент, когда нет активной формы, отчета или элемента управления, Microsoft Access возвращает ошибку выполнения. Например, если активным является окно стандартного модуля, то пример программы, приведенный выше в данном разделе, возвращает ошибку.

Объект Screen, пример

В данном примере с помощью объекта Screen выводится имя формы, находящейся в активном окне, и имя активного элемента управления в этой форме.

Sub ActiveObjects()

Dim frm As Form, ctl As Control

' Возвращает объект Form, указывающий на активную форму.

Set frm = Screen.ActiveForm

MsgBox frm.Name & " имя активной формы."

' Возвращает объект Control, указывающий на

' активный элемент управления.

Set ctl = Screen.ActiveControl

MsgBox ctl.Name & " имя активного элемента " _

& "управления."

End Sub

15