Диалоговые окна пользователя

Представленные диалоговые окна позволяют реализовать лишь относительно небольшой объем информации. В то же время мы можем предположить, что возможности Excel в части диалоговых панелей гораздо шире. Для этого у нас есть все основания - мы знаем о существовании "форм" (Данные/Форма). Мы уже частично знакомились с диалоговыми окнами пользователя (п. 2.10.2). Здесь более подробно представлена специфика работы с окнами и кнопками. В MS office - 97 имеется два практически равноценных варианта окна пользователя - "Окно диалога Excel-5.0" и "UserForm".

Рис. 4.6 UserForm. Элементы управления

В первом случае окно вызывается при нажатии ПК мыши в поле листов и выборе команды " Добавить/Окно диалога Excel-5.0 ". Во втором случае окно вызывается из среды VB командой " Вставка / UserForm " или кнопкой " Вставить UserForm ". Мы будем ориентироваться на второй, более современный способ. В результате появляется новый, чистый бланк (рис. 4.6), куда можно выводить окна и кнопки пользователя. Набор элементов управления (кнопки и окна) расположен рядом с полем, но его можно передвинуть куда угодно.

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

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

Элементы управления

Элементы управления позволяют предложить пользователю выбор параметров или дать возможность запуска макросов для автоматизации задач.

Назначение элементов управления представлено в табл. 4.7, рис. 4.6

 

 

Таблица 4.7

Название элемента	Описание
1-й ряд
Выбор объектов	По аналогии с объектами рисунков
Надпись	Текстовая, нередактируемая метка
Поле	Редактируемое текстовое окно
Поле со списком	Выпадающее окно списка
Список	Окно списка
2-й ряд
Флажок	Контрольный индикатор
Переключатель	Кнопка выбора с заголовком для исключающего выбора
Выключатель	Кнопка - индикатор состояния
Рамка	Группировка элементов
Кнопка	Командная кнопка
3-й ряд
Набор вкладок	Аналог вкладок меню
Набор страниц	Выбор страницы
Полоса прокрутки	Вертикальная или горизонтальная линейка прокрутки
Счетчик	Линейка прокрутки с индикацией состояния
Рисунок	Включение объекта-рисунка

 

Чтобы наполнить диалоговое окно необходимыми элементами, выберите в пиктографическом меню нужный объект, переместите его в бланк путем нажатия ЛК мыши в нужном месте или создания габаритного прямоугольника (по аналогии с рисунком). Габариты объекта можно менять после его создания. Правой клавишей мыши можно вызвать окно свойств и изменить некоторые из них. Название объекта лучше всего изменять на самом объекте.

Если объект связан с выполнением некоторой процедуры, ее можно подключить, выбирая в контекстном меню (ПК мыши) " Программу", в результате чего будет сформирована первая и последняя строки программы (sub) с именем объекта. Здесь можно создать собственную программу или включить в тело программы вызов иной процедуры, например процедуры хх():

Private Sub CommandButton1_Click()

xx

End Sub

Среди свойств объекта имеются свойства Default и Cancel. Если установлены эти свойства (True), то объект активизируется при нажатии соответственно кнопок Enter или Esc. Только один объект на панели должен обладать свойством Default или Cancel.

Для того чтобы получить доступ к объектам диалогового окна, необходимо знать имя каждого объекта. VB присваивает имена объектам при их создании (свойство Name), однако это свойство (имя) можно изменить.

Командная кнопка (CommandButton)

Аналоги - кнопки () - ОК, Cancel, Да, Нет и др. Основное назначение - при нажатии вызвать на исполнение некоторую процедуру.

Самостоятельная работа

· Создайте командную кнопку с названием "Да! Да! Да!".

· Вызовите панель свойств. Найдите свойства " Name" и "Caption". Чем отличаются эти свойства? Найдите свойство " Font" и замените стиль символов на Arial - 14 - курсив - подчеркнутый. Опробуйте действие кнопки (запустите диалоговую панель на выполнение).

· Измените размер кнопки и найдите свойство, которое при этом изменилось.

· Найдите свойство, которое отвечает за цвет кнопки, и сделайте кнопку голубой.

· Подключите к кнопке процедуру хх(), изменяющую формат ячейки "А1" (см. выше).

· Создайте еще одну командную кнопку. Как различить эти кнопки в программе?

Надпись (Label)

Надпись (кнопка ) - это строка текста, которая не может редактироваться пользователем. Аналог - функция MsgBox(). Обычно надпись используется для посылки сообщения пользователю или дополнительной информации о других кнопках и окнах бланка.

Для изменения текста программным путем необходимо изменить свойство Caption, например:

Public Sub bbb()

UserForm3.Label2.Caption = "Доброе утро!"

End Sub
Следует заметить, что автономное выполнение этой процедуры не приведет к желаемому результату. Необходимо, чтобы она активизировалась в режиме диалога, например, через другую процедуру, подключенную к какой-либо кнопке:

Private Sub CommandButton1_Click()

bbb

End Sub

Самостоятельная работа

· Создайте на вашей панели 2 наклейки. Назовите вторую " Привет". Вызовите свойства метки и поменяйте что-либо по своему желанию.

· Активизируйте диалог. При активном диалоге попробуйте поменять текст метки. Вряд ли у вас что-нибудь получится.

· Выполните отладку описанной выше процедуры замены второй метки программным путем.