6.2.4. Создание вкладок в диалоговых окнах

Элемент MultiPage (набор вкладок) позволяет создавать вкладки с разными элементами управления, а элемент TabStrip (полоса вкладок) создает вкладки с одинаковыми наборами элементов управления. Чтобы создать новый набор вкладок, нужно перетащить на форму элемент MultiPage. Вначале будут созданы две вкладки, которым можно дать нужные заголовки, сделав их значениями свойства Caption в списке свойств. На рис. 6.16 эти вкладки получили имена Ссуды и Ренты.

Для того, чтобы добавить следующую вкладку, надо щелкнуть правой кнопкой мыши правее имени последней вкладки и в появившемся контекстном меню выбрать команду New Page. Это меню позволяет также переименовывать, перемещать и удалять вкладки. Повторив операцию создания вкладки несколько раз, можно разместить в окне необходимое число вкладок. Затем на каждую из них нужно перетащить элементы управления.

Аналогично создаются вкладки элементом TabStrip. Отличие в том, что каждый помещаемый на одну вкладку элемент управления одновременно попадает на все вкладки набора.

Рис. 6.16. Создание вкладок

6.2.5. Добавление дополнительных элементов управления

На панели элементов управления находятся кнопки не всех элементов, доступных в Excel. Доступ к дополнительным элементам управления можно получить, щелкнув правой кнопкой мыши по панели элементов и выбрав в появившемся контекстном меню команду Additional Controls (Дополнительные элементы). На экране появится одноименное окно со списком Available Controls (доступных элементов управления).

В этом списке отмечены элементы, находящиеся в данный момент на панели инструментов. Кроме этих, есть более 40 дополнительных элементов управления. Отметив нужные элементы в списке и выйдя из этого окна, можно увидеть их на панели инструментов и использовать при создании своих диалоговых окон.

6.2.6. Создание диалогового окна

Создадим диалоговое окно Цветная форма, в котором будут расположены изображение (Image), поле ввода (TextBox) и командная кнопка (СоmmandButton). Для этого нужно произвести следующие действия:

1. Выполнить команду меню Insert  UserForm для создания нового диалогового окна.

2. Щелкнув правой кнопкой появившееся окно UserForm1, выбрать в контекстном меню команду Properties. Ввести новое имя ColorForm1 в правом столбце строки со свойством Name, в качестве значения свойства Caption ввести заголовок окна – Цветная форма. Щелкнуть по правому столбцу в строке со свойством BackColor (Цвет фона), затем – по появившемуся справа значку списка. В таблице появившегося окна щелчком выбрать понравившийся цвет. Окно «перекрасится». Закрыть окно свойств.

3. Перетянуть с панели инструментов на окно элемент Image (Рисунок). Щелкнуть по нему правой кнопкой мыши и снова выбрать команду Properties. В появившемся окне со списком свойств найти строку со свойством Picture (Рисунок). Чтобы перейти к поиску нужного файла с картинкой, надо щелкнуть по кнопке с многоточием (...) справа в этой строке. В диалоговом окне Load Picture (Загрузка рисунка) выбрать файл с картинкой и щелкнуть по кнопке ОK.

4. Перетянуть на диалоговое окно элемент управления TextBox (Поле ввода). Как и на шаге 3, щелкнув по нему правой кнопкой, вызвать окно Properties. Ввести в качестве значения свойства Value название выбранной картинки – оно появится в поле ввода. Затем выбрать свойство Font. Справа появится кнопка с многоточием. Щелкнуть по ней и в появившемся списке шрифтов выбрать шрифт для поля.

5. Перетянуть на диалоговое окно командную кнопку (Command Button). Вызвать окно Properties для этой кнопки и изменить в нем значение свойства Caption на Нажмите здесь – текст станет именем кнопки. Изменить имя кнопки Name на cmdClickMe. По этому имени к кнопке будут обращаться процедуры и методы в программе. Ввести справку Командная кнопка как значение свойства ControlTipText – надпись будет появляться на экране под кнопкой всякий раз, когда на ней окажется указатель. Установить для кнопки ключ быстрого выбора, найдя в списке свойств строку со свойством Accelerator (Ускоритель) и введя в поле справа букву Н – в имени кнопки первый символ Н будет подчеркнут и нажатие клавиш Alt+H будет эквивалентно выбору кнопки. Установить также подходящий шрифт с помощью свойства Font, как и для поля ввода.

6. В меню Run (Запуск) выбрать команду Run Sub  UserForm. На экране приложения появится спроектированное диалоговое окно. Один из вариантов проектирования диалогового окна приведен на рис. 6.17.

7. Щелкнуть по кнопке Закрыть на заголовке диалогового окна, чтобы выйти из него.

Рис. 6.17. Пример проектирования диалогового окна