Файл: Программирование на VBA.pdf

Для этого:

ü выберите команду Insert/UserForm (Вставка/UserForm).

Редактор VB добавляет к текущему проекту новую форму, присваивая ей по умолчанию имя UserFormN и используя ту же систему нумерации, что и для модулей. Редактор VB выводит новую форму в режиме разработки (рис. 23). В режиме разработки вы можете добавлять (или удалять) элементы управления к форме, устанавливать свойства формы или ее элементов управления и выполнять другие манипуляции с внешним видом формы в интерактивном режиме. Когда форма выведена и используется как часть выполняющейся программы, она находится в режиме выполнения.

Рис. 23

Обратите внимание на сетку из точек на поверхности формы и панель элементов (Toolbox). Сетка из точек помогает выравнивать и контролировать размеры элементов управления, помещаемых на форму, и появляется только в режиме разработки. Панель элементов является «палитрой», с помощью которой вы можете выбирать элементы управления и добавлять их к форме. Панель, как правило, появляется только в том случае, если выбрана форма и ни один из ее элементов управления.

Вы можете переименовать объект UserForm так же, как стандартный модуль или модуль класса. Для этого отредактируйте в Properties Window (окно свойств) свойство Name этого объекта. Не оставляйте вновь созданной форме имя, присвоенное ей по умолчанию, например UserForm1 или UserForm2. Напротив, переименовывайте новую форму сразу, как только ее создали.

106

Упражнение 1

Переименуйте созданную форму заданием 1, дав ей имя NewForm8_21. Когда форма выводится на экран в режиме разработки, вы можете

протестировать ее поведение, используя команду Run/ (Запуск/Запуск подпрограммы/UserForm). После этого Редактор VB выведет форму в режиме выполнения и все ее элементы управления будут активными. Однако следует помнить, что любой код, используемый формой, хранящийся не в модуле класса формы, не может быть инициализирован. При запуске формы инициализируется только код, находящийся в модуле класса формы. Переменные в стандартных модулях необязательно будут инициализироваться. В результате этого, если форма не является полностью независимой, некоторые из программ, связанных с ней, могут не выполняться, выдавая сообщения о различных runtime- ошибках.

Форма как объект имеет некоторые встроенные свойства, и вы можете устанавливать эти свойства или программным образом, или в Properties Window (окне свойств) Редактора VB. Строго говоря, данные способы изменения свойств форм не являются эквивалентными. Некоторые из свойств могут быть установлены только посредством Properties Window Программным способом свойства форм устанавливаются таким же образом, как и свойства других объектов: путем присвоения свойству нового значения (в табл. 22 перечислены свойства UserForm, на которые вам, скорее всего, придется ссылаться или изменять их).

Таблица 22 – Наиболее часто используемые свойства объектов UserForm

107

Всякий раз создавая в проекте новый объект UserForm, вы создаете новый подкласс объекта UserForm. Любые процедуры или функции, написанные вами в разделе General (общий) модуля класса, относящегося к форме, становятся дополнительными методами для отдельного подкласса объекта. Вы также можете создать для формы новые свойства, добавив в ее модуль класса процедуры Property Get и Property Let. Вы можете создавать экземпляры подкласса вашей UserForm с помощью оператора Dim и ключевого слова New.

Однако чаще всего вы будете манипулировать объектом формы при помощи стандартных методов и свойств класса UserForm и при помощи

собственных процедур обработки событий для определенной вами формы и ее элементов управления.

В этой части при написании примеров процедур обработки событий нам понадобится метод Show. Поэтому рассмотрим его подробнее. Синтаксис метода

Show:

FormName.Show

в данной синтаксической конструкции FormName может быть любым объектом UserForm текущего проекта. FormName – имя формы в том виде, как оно отображается в Project Explorer. Если форма в данный момент не загружена в память, метод Show загрузит ее и выведет на экран. Если форма уже загружена, метод Show просто выведет ее на экран. В любом случае метод Show выводит форму и затем передает ей управление. Форма будет оставаться на экране до тех пор, пока или не будет выполнен метод Hide (скрывает форму, не выгружая ее из памяти) объекта UserForm, или форма не будет выгружена при помощи оператора

Unload.

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

Когда VBA выполняет метод Show для отображения формы диалогового окна, процедура, содержащая вызов метода Show, приостанавливается до тех пор, пока выведенная форма не будет закрыта пользователем. Однако VBA будет выполнять программу для любых событийных процедур в модуле класса формы.

События и событийные процедуры

Событие (event) – это что-то, что может произойти с диалоговым окном или элементом управления диалогового окна. Типичные примеры событий: щелчок на кнопке, переключателе и т.д. Другие примеры событий: изменение содержимого окна редактирования или выбор элемента списка. Щелчок мышью, нажатие клавиши и действия внутренние для вашего компьютера, – все они запускают или, иными словами, влекут за собой события.

Использование событий позволяет создавать действительно диалоговые приложения. В таких приложениях все действия пользователя приводят к

108

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

Такие объекты как формы и элементы управления приводят в действие, то есть делают доступными некоторые события. Вы можете написать собственные VBA-процедуры, реагирующие на события. Такие процедуры называются

событийными процедурами (event procedures) или процедурами обработки событий.

Событийные процедуры следует записывать в модуль класса, который является частью UserForm. При этом такие процедуры должны иметь имена в виде ObjectName_EventName, где ObjectName – имя формы или элемента управления, a EventName – имя события, с которым вы хотите работать. Такой формат имени позволяет VBA сопоставлять заданному событию требуемую процедуру.

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

Таблица 22 – События объектов UserForm

109

В дополнение к методам, свойствам и событиям, встроенным в объект UserForm, VBA предоставляет два оператора, которые особенно полезны при работе с объектами форм: Load и Unload. Вы можете использовать эти операторы для того, чтобы или загрузить форму в память, или же удалить ее оттуда.

Синтаксические конструкции для использования операторов Load и Unload выглядят следующим образом:

Load Object

Unload Object

здесь Object представляет любую допустимую ссылку на объект UserForm. Оператор Load загружает в память объект UserForm и запускает метод формы Initialize, но не выводит форму на экран. Когда форма загружена, вы можете использовать написанную на VBA программу для работы с объектом UserForm. Оператор Unload удаляет из памяти UserForm, а также все переменные формы. После того как форма выгружена, она перестает быть доступной для VBA-кода.

Рассмотрим несколько простых примеров использования свойств и методов формы с помощью процедур обработки событий.

Задание 2. Создайте форму, выводящую сообщения на события Click, Activate, Terminate.

Для этого:

üвыберите команду Insert/UserForm (Вставка/UserForm);

üдважды щелкните на форме в режиме разработки, и вам будет предоставлен шаблон процедуры в виде:

1Private Sub UserForm_Click()

3End Sub

üзапишите после заголовка процедуры следующий оператор

2MsgBox("Событие: Click")

üзапустите форму на выполнение командой Run/Run Sub/UserForm. После появления формы на экране щелкните на ней мышью, на экране появится сообщение (рис. 24);

110