1ава 14. Примеры пользовательских форм |
445 |
времени. Однако предварительно определена задержка в пять секунд с момента
возникновения события A c t iv a t e . Процедура K |
i l l The Form просто выгружает |
диалоговое окно U se rF o rm из памяти. |
|
7. В качестве необязательного действия можно |
добавить элемент управления |
C om m andB utton с именем Cane e l B u t to n , установить его свойство C a n c e l равным T ru e и добавить представленную ниже процедуру обработки события в модуль кода формы U serF orm .
P riv a te Sub C a n c e lB u tto n _ C lic k ()
K illT h e F o rm
End Sub
Таким образом, пользователь сможет закрыть заставку, прежде чем пройдет ука занное время задержки. Окно будет закрыто также в результате нажатия клавиши <Esc>. Эту небольшую кнопку можно разместить за другим объектом, чтобы она не была видна.
Jfflb Предупреждение
Мм Помните о том, что заставка не будет отображаться, если рабочая книга загружена не полностью. Другими словами, если нужно отобразить заставку только для того, чтобы пользователь не скучал во время загрузки рабочей книги, описанная выше методика не годится.
£ПЬ Совет
ЬД Для того чтобы выполнить VBA-процедуру при открытии документа, нужно так отобразить пользовательское диалоговое окно в немодальном режиме, чтобы код продолжал выполняться. Для этого измените процедуру Work-
book Open следующим образом.
P riv a te Sub W orkbook_Open() U se rF o rm l. Show vbM odeless ' другой код
End Sub
Отключение кнопки закрытия пользовательского диалогового окна
Если пользовательское диалоговое окно уже отображено на экране, щелчок на кнопке Закрыть (Close) (в правом верхнем углу) приведет к выгрузке формы U se rF o rm из па мяти. Иногда этого допускать нельзя. Например, иногда требуется, чтобы диалоговое окно U serForm закрывалось только после щелчка на специальной кнопке Command Button. Несмотря на то что реально отключить кнопку Закрыть невозможно, вы впра ве предотвратить закрытие диалогового окна, вызванное щелчком на этой кнопке. Для этого воспользуйтесь обработчиком события Q u e ry C lo s e .
Следующая процедура, которая расположена в модуле кода диалогового окна U se r Form, выполняется перед закрытием формы (т.е. в момент возникновения события QueryClose).
Private |
Sub |
UserForm _QueryClose |
_ |
(Cancel |
As In te g e r, CloseMode |
As In te g e r) |
|
I f |
CloseMode = vbForm ControlM enu Then |
||
446 Часть IV. Пользовательские формы
MsgBox "Щелкните на кнопке ОК для закрытия формы." Cancel = True
End I f End Sub
Процедура U s e rF o rm _ Q u e ry C lo s e использует два аргумента. Аргумент C lose Mode содержит значение, которое указывает на причину возникновения события Query - C lo se . Если значение аргумента C loseM ode равно vb F o rm C o n tro lM e n u (встроенная константа), значит, пользователь щелкнул на кнопке Закрыть. В таком случае будет отобра жено сообщение; аргумент C a n ce l устанавливается равным T ru e , и форма не закрывается.
Компакт-диск
Рассматриваемый в этом разделе пример можно найти на прилагаемом к книге компакт-диске в файле q u e ry c lo s e demo. xlsm .
Примечание
Имейте в виду, что пользователь может нажать клавиши <Ctrl+Break>, пре кратив тем самым выполнение макроса. В рассматриваемом примере нажа тие клавиш <Ctrl+Break> во время отображения формы UserForm на экране приведет к тому, что пользовательское диалоговое окно будет закрыто. Во избежание этого выполните следующий оператор до отображения пользо вательского диалогового окна:
A p p lic a tio n . EnableC ancelKey = x lD is a b le d
Прежде чем добавить этот оператор, удостоверьтесь, что в приложении нет ошибок. В противном случае возникает опасность формирования бесконеч ного цикла.
Изменение размера диалогового окна
Во многих приложениях используются окна, которые могут изменять собственные размеры. Например, высота диалогового окна Excel Найти и заменить (Find and Replace), которое отображается после выбора команды Главная^Редактирование^ Найти и выделить1^Заменить (Home^Editing^Find & Select^Replace), увеличивается после щелчка на кнопке Параметры (Options).
В рассматриваемом в этом разделе примере демонстрируется предоставление пользо вательскому диалоговому окну возможности динамически изменять свой размер. Изме нение размера диалогового окна осуществляется путем изменения значений свойств
W id th и H e ig h t объекта U serF orm .
Перекрестная ссылка
Обратитесь к главе 15, в которой рассматривается пример формы User Form, размер которой изменяется путем перетаскивания нижнего правого угла окна.
На рис. 14.5 показано первоначальное диалоговое окно, а на рис. 14.6 показано это же окно после щелчка на кнопке Параметры (Options). Обратите внимание на то, что над пись на кнопке изменяется в зависимости от размера диалогового окна.
