2.5 Пользовательская форма UserForm

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

Семейство UserForms является семейством, компоненты которого представляют все загруженные формы UserForm в приложении. Как и все семейства, UserForms имеет свойства Count (возвращает число компонентов в семействе) и Item (возвращает определенный компонент семейства), а также метод Add (добавляет к семейству новый компонент).

Приведем основные свойства, методы и события пользовательской формы.

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

Name	Возвращает имя пользовательской формы
Caption	Возвращает текст, отображаемый в строке заголовка формы
BackColor	Возвращает цвет фона формы
BorderStyle	Устанавливает тип границы
Picture	Указывает рисунок, отображаемый как фон формы
Left И Top	Возвращают местоположение верхнего левого угла формы в пунктах
Height и Width	Возвращают высоту и ширину формы в пунктах
StartUpPosition	Возвращает значение, определяющее положение формы при ее первом отображении на экране. Допустимые значения: – Manual (начальное значение не устанавливается), – СenterOwner (выравнивание по центру объекта, к которому принадлежит форма), – CenterScreen (выравнивание по центру экрана), – Windows Default (положение верхнего левого угла экрана)

Наиболее часто используемые методы объекта UserForm

Show	Отображает форму на экране
Hide	Закрывает форму
Move	Изменяет положение и размер формы
PrintForm	Печатает изображение формы

Основные события объекта UserForm.

Initilize	Происходит при отображении формы на экране
Terminate	Происходит при закрытии формы

2.5.1 Семейство Controls

Доступ к семейству всех элементов управления, расположенных в пользовательской форме UserForm, осуществляется с помощью семейства Controls. Например, чтобы скрыть все элементы управления формы UserForm, можно использовать код, в котором свойству Visible элемента управления, определяющему, отображается ли этот элемент на экране или нет, устанавливается значение False:

For Each Элемент in UserFormI.Controls

Элемент.Visible = False

Next Control

2.5.2 Создание пользовательской формы

Обсудим процесс создания пользовательской формы на примере конструирования простейшего диалогового окна.

Шаг 1 Выберите команду Сервис, Макрос, Редактор Visual Basic (Tools, Macro, Visual Basic) для того, чтобы перейти в редактор Visual Basic.

Шаг 2 Выберите команду Вставить User Form (Insert UserForm). В редакторе Visual Basic появятся: – Окно с пользовательской формой; – Панель инструментов Панель элементов (Toolbox) (рис. 2.6).

Шаг З Используя диалоговое окно Свойства (Properties), отображаемое нажатием кнопки и Панель элементов (Toolbox), создайте из пользовательской формы диалоговое окно, показанное на рисунке 2.7. Это окно состоит из трех кнопок и одного поля. Свойство Caption пользовательской формы определите равным Песнь о воробушке и бабочке, а кнопок – равными Первый акт, Второй акт и Третий акт.

Шаг 4 Для того чтобы написать процедуру обработки события нажатия кнопки Первый акт, дважды щелкните ее. Активизируется модуль UserForm1, в который введите процедуру: Private Sub CommandButton1_Click () TextBox1.Text = "Воробышек за бабочкой прыг-прыг-прыг" End Sub

Рисунок 2.6 Окно редактора Visual Basic с пользовательской формой и панелью элементов

Для обработки событий нажатий кнопок Второй акт и Третий акт в модуле UserForm1 введите следующие две процедуры:

Private Sub ConmmandButton2_Click ()

TextBoxl.Text = "Воробышек за бабочкой скок-скок-скок"

End Sub

Private Sub CommandButton3 Click()

TextBoxl.Text = "Воробышек бабочку ням-ням-ням"

End Sub

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

Рисунок 2.7 Редактор Visual Basic с преобразованной пользовательской формой для создаваемого приложения