назад | содержание | вперед

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

С помощью элемента управления coolBar можно создавать в приложении улучшенные панели инструментов. Для использования этого элемента управления в приложении необходимо подключить к проекту библиотеку Microsoft Windows Common Controls-3 6.0, воспользовавшись диалоговым окном Components (Компоненты), открываемым при выборе команды Components (Компоненты) меню Project (Проект).

В отличие от объекта ToolBar, элемент управления CoolBar более универсален и кроме кнопок может содержать другие элементы управления, в том числе и панели типа ToolBar. Усовершенствованная панель представляет собой контейнер, причем он состоит из маленьких контейнеров Band (Полоса), которые являются объектами и непосредственно включают в себя все элементы управления, вводимые в CoolBar.

Для создания в проекте панели инструментов типа CoolBar выполните следующие действия:

1. Подключите к проекту библиотеку Microsoft Windows Common Controls-3 6.0, в которой содержится элемент управления CoolBar.

2. Добавьте в родительскую форму объект coolBar, дважды щелкнув мышью кнопку CooiBar на панели элементов управления.

3. Присвойте новой панели инструментов имя cbrTools.

4. Выделите объект CoolBar, нажмите правую кнопку мыши и выберите в появившемся контекстном меню команду Properties (Свойства). Открывается диалоговое окно Property Pages (рис. 7.17), предназначенное для создания панели типа CoolBar.

5. Используя кнопку Insert Band (Вставить полосу), добавьте на панель инструментов еще несколько объектов Band.

Рис. 7.17. Диалоговое окно Property Pages для объекта CooiBar

Теперь новую панель можно настраивать, добавляя на нее необходимые объекты или удаляя их. Добавим, например, кнопку управления для вызова дочернего окна. Для этого выполните следующие действия:

1. Используя кнопку CommandButton на панели элементов управления, разместите на создаваемой панели инструментов CoolBar кнопку управления.

2. Скорректируйте в окне Properties (Свойства) для созданной командной кнопки следующие свойства:

• в правый столбец свойства Name введите наименование объекта cbNewCoolBar,
• в свойство Caption введите текст Новая, который будет размещен на кнопке;
• в свойство Height кнопки введите значение 300;
• для свойства тор задайте значение 25.

3. Для создания кода, выполняемого при нажатии новой кнопки на панели инструментов, в окне редактора кода введите следующие команды, осуществляющие вызов дочерней формы:

Private Sub cbNewCoolBar_Click ()

Dim frmNewForm As New frmChildMDI

frmCount = frmCount + 1

frmNewForm.Caption = "Дочерняя форма " + Str(frmCount)

frmNewForm.Show

End Sub

4. Запустите приложение на выполнение. Работающее приложение с панелью инструментов типа CoolBar показано на рис. 7.18.

Рис. 7.18. Приложение с панелью инструментов типа CooiBar

назад | содержание | вперед