Вход


Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Объекты Microsoft Access >> Свойства объекта Screen

Переход на главную страницу

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail :
kadan@grsu.grodno.by


[Назад]    [Содержание ]    [Вперед]

  


Свойства объекта Screen


Свойства объекта 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



[Назад]    [Содержание ]    [Вперед]

  



Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке,
Microsoft Corporation, 1997
c Русский перевод,
Microsoft Corporation, 1997

  
За содержание страницы отвечает Гончарова М.Н.
©
Кафедра СПиКБ, 2002-2017