5.3.Панель инструментов Toolbar

Все вы видели панели инструментов. Они имеются в большинстве солидных приложений Windows. Панель инструментов Visual Basic вы можете видеть на картинке в 0.3. Панель инструментов представляет набор кнопок и других элементов, предназначенных для быстрого выполнения наиболее часто встречающихся действий, таких как открытие, сохранение файлов, выбор размера шрифта и т.п. Кнопки на панели инструментов бывают разных стилей. Некоторые самые распространенные стили показаны на рисунке, где изображен участок панели управления Microsoft Word 97:

Задача: Создать панель инструментов из нескольких кнопок. По нажатии одной кнопки Visual Basic должен делать что-нибудь одно, например, выполнять оператор Debug.Print "Нажата первая кнопка"). По нажатии другой кнопки Visual Basic должен делать что-нибудь другое, например, выполнять оператор Debug.Print "Нажата вторая кнопка"). И так далее.

Ваши действия:

1. Поместить в Toolbox группу элементов управления Microsoft Windows Common Controls 6.0. Вы их найдете в ProjectsComponents. Из этих элементов вам понадобятся два: Toolbar и ImageList.

2. Разместить элементы Toolbar и ImageList на форме. При этом Toolbar сразу "прилипнет" к верхнему краю формы, как ей в общем-то и положено. Если вам это не нравится, то в пункте 6 вы это поправите. ImageList не будет виден в режиме работы. Его назначение вспомогательное - хранить в виде удобного списка картиночки, которые вы желаете видеть на кнопках панели инструментов.

3. Вставить в ImageList понравившиеся вам картиночки, например из принадлежащей Visual Basic папки Graphics. Для этого щелчком правой клавиши мыши по ImageList и выбором опции Properties вызываем на экран Страницы свойств (Property Pages) этого элемента. Там заходим в закладку Images, нажимаем кнопку Insert Picture, находим в появившемся окне нужную нам папку с картинками и выбираем картинку  Open. Замечаем, что выбранная картинка появляется в поле Images, а в поле Index появляется 1. Снова Insert Picture и аналогичным образом вставляем вторую картинку. Ее индекс - 2. И так далее. Закончив, нажимаем OK.

4. Вставить в Toolbar кнопки нужных вам стилей с картинками, взятыми из ImageList. Для этого щелчком правой клавиши мыши по Toolbar и выбором опции Properties вызываем на экран Страницы свойств (Property Pages) этого элемента. Там в закладке General в раскрывающемся списке ImageList объясняем компьютеру, в каком из нескольких возможных элементов управления ImageList хранятся картинки для кнопок. Затем заходим в закладку Buttons, нажимаем кнопку Insert Button, замечаем, что в поле Index появляется 1. Здесь нам необходимо выбрать стиль кнопки (Style) и ввести данные в два поля - Image и Key (ключ). В поле Image введем индекс картинки из ImageList, которую мы хотим поместить на кнопку. В поле Key введем любое слово, по которому в дальнейшем, как по имени, будем обращаться к этой кнопке. Также полезно заполнить поле ToolTipText, в этом случае при подведении мыши к кнопке будет всплывать подсказка. Закончив с первой кнопкой, снова нажимаем на Insert Button и повторяем всю процедуру для второй кнопки. И так далее. Закончив, нажимаем OK.

5. Запрограммировать действия кнопок. Для этого сделаем двойной щелчок по панели инструментов. Появится заготовка процедуры, в которой при помощи оператора Select Case программируем действие всех кнопок панели:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case "Первая кнопка"

Debug.Print "Нажата первая кнопка"

Case "Вторая кнопка"

Debug.Print "Нажата вторая кнопка"

End Select

End Sub

6. Настроить внешний вид и поведение панели инструментов (если хотите, конечно). Это можно сделать в страницах свойств и в окне свойств панели. Особое внимание обратите на свойство Align, от которого зависит положение панели инструментов на форме.

Кроме панели инструментов Toolbar существует еще интересная, с богатыми возможностями панель инструментов Coolbar, на которой мы останавливаться не будем.

Панели инструментов предоставляют возможность в режиме работы изменять свой внешний вид и состав, с чем вы, возможно, сталкивались, работая с такими приложениями Windows, как Microsoft Word.