Справочное руководство по TDMS 7.0 API
FormBeforeShow Событие
Смотри также  Пример  Отправить замечание
pForm
Форма ввода, которая будет выведена на экран.
pObject
Объект, которому принадлежит форма ввода. Параметр может иметь значение Nothing в случае, если форма была открыта программно (напр., методом TDMSInputForm.Show Метод), а не в окне свойств объекта.
TDMSApplication Объект : FormBeforeShow Событие

Glossary Item Box

Описание

Генерируется в момент открытия формы ввода, но перед показом ее на экране.

Опеделение

Visual Basic
Public Event FormBeforeShow( _
   ByVal pForm As TDMSInputForm, _
   ByVal pObject As TDMSObject _
)

Параметры

pForm
Форма ввода, которая будет выведена на экран.
pObject
Объект, которому принадлежит форма ввода. Параметр может иметь значение Nothing в случае, если форма была открыта программно (напр., методом TDMSInputForm.Show Метод), а не в окне свойств объекта.

Заметки

1. Событие нельзя отменить.

2. Обработчик может быть размещен в скриптах формы ввода, профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:

  • скрипт формы;
  • скрипт профиля пользователя;
  • общесистемный скрипт.

3. Схему последовательности генерации событий при редактировании атрибутов объекта в окне свойств см. на рисунке:

4. При открытии формы "вручную" событие генерируется независимо от того, где будет показана форма - в диалоговом окне или на Панели свойств главного окна приложения.

5. Для того, чтобы событие генерировалось при работе через API (вызове метода TDMSInputForm.Show Метод), должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).

Пример

VB Script (Visual Basic)Скопировать код
'======================================================================
'Текст обработчика может быть размещен в скрипте формы, профиля или
'общесистемном скрипте.

Sub Form_BeforeShow(Form, Obj)
    'Вывести информацию об открываемой форме
    If Not(Obj Is Nothing) Then
            MsgBox "Сейчас на экран будет выведена форма """ & Form.Description &_
            """," & Chr(13) & " принадлежащая объекту """ & Obj.Description & """.",_
            vbInformation, "Информация"
     Else
                 MsgBox "Сейчас на экран будет выведена форма """ _
                 & Form.Description & """.", vbInformation, "Информация"
     End If
End Sub
'======================================================================

Смотри также

© 2023 CSoft Development. Все права защищены.