Access 2002

Расположение диалогового окна


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

О Элемент управления не позволяет задать владельца диалогового окна. Без этой возможности трудно управлять тем, что происходит, когда пользователь нажимает на клавиши Alt+Tab, пока окно находится на экране. У нашего класса CommonDlg имеется свойство hWndOwner, позволяющее вам указать, какому окну «принадлежит» открываемое вами диалоговое окно.

О Элемент управления не содержит исходного кода. Ни модифицировать его, ни дополнить новыми функциями вы не сможете. Что касается нашего класса, то он весь в вашем полном распоряжении.

Какое бы из диалоговых окон вам ни потребовалось, процедура его открытия

одна и та же.

1.   Убедитесь, что ваш проект содержит класс CommonDlg. (Если вы хотите использовать описанную ниже функцию с обратным вызовом, импортируйте в свой проект также модули basCommonDlg и basCommon.)

2.   Объявите в своем приложении переменную типа CommonDlg:

Dim cdl As ComnonDlg

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

Set cdl – New CommonDlg

4.   Настройте свойства объекта CommonDlg. Хотя это и не обязательно, обычно перед открытием окна с помощью свойств OpenFlags, ColorFlags или Font FI ags устанавливается несколько опций. Различные опции комбинируются с помощью оператора Ог. Вот пример:

5.   Вызовите нужный вам метод объекта CommonDlg для вывода одного из его диалоговых окон (ShowColor, ShowFont, ShowOpen или ShowSave). Выполнение вашего кода будет приостановлено до закрытия диалогового окна.

cdl.ShowOpen

Комментарии закрыты