Объект Screen для пользователей Visual Basic 6.0

Основные свойства и методы объектов Screen. Примеры

Свойства объекта Screen описаны в таблице:

Свойство	Описание
ActiveControl	Возвращает ссылку на элемент управления, находящийся в фокусе
ActiveDatasheet	Возвращает ссылку на таблицу, находящуюся в фокусе.
ActiveForm	Возвращает ссылку на форму, находящуюся в фокусе.
ActiveReport	Возвращает ссылку на отчет, находящийся в фокусе.
Application	Возвращает ссылку на объектApplication.
MousePointer	Устанавливает или возвращает значение, которое определяет тип курсора мыши, отображаемого в данный момент
Parent	Возвращает ссылку на объект, содержащий объектScreen.
PreviousControl	Возвращает ссылку на предыдущий находившийся в фокусе элемент управления.

При использовании объекта Screen целесообразно реализовать обработку ошибок, так как при выполнении Вашего кода в фокусе может оказаться не тот объект. Вероятно, лучше сначала применить метод SetFocus формы, отчета или элемента управления для установки фокуса? тогда Вы будете уверены, что в фокусе находится именно тот объект, который Вам нужен. Кроме того, старайтесь не использовать объект Screen с методом OutputTo объекта DoCmd.

Свойства ActiveForm и Me не обязательно возвращают ссылку на одну и ту же форму. Свойство Me представляет форму, чей код выполняется в данный момент, а свойство ActiveForm возвращает ссылку на форму, активную на экране, и это не всегда та форма, чей код сейчас выполняется. Допустим для примера, что в неактивной форме произошло событие Timer. Тогда свойство Me позволит сделать ссылку на форму, в которой произошло событие Timer, а свойство ActiveForm? на форму, которая активна на экране в момент возникновения (и обработки) этого события.

В следующем примере событие Timer используется для обновления данных на активной форме через регулярные интервалы. Форма, в которой происходит событие Timer, может быть (а может и не быть) активной.

Private Sub Form_Load()
═════Me.Timer-Interval = 30000
End Sub

Private Sub Form_Timer()
═════Const conFormNotActive As Integer =2475
═════Const conFormInDesignView As Integer = 2478

═════On Error GoTo Error_Timer
═════? периодически запрашиваем источник записей "в интересах" активной формы
═════Screen.Active Form. Requery

═════Exit_Timer;
Exit Sub

Error_Timer:
═════If Err = conFormNotActive Or Err = conFormInDesignView Then
══════════Resume Exit_Timer
═════Else
══════════MsgBox Err & ": " & Err. Description
═════End If
End Sub

В Visual Basic 6.0 объект Screen предоставляет доступ к активной форме и элементу управления приложения, предоставляет сведения об области экрана, в которой отображается приложение, и позволяет изменять внешний вид курсора.

Дата добавления: 2014-12-23