Создание рисунков на кнопках
Поместите на форме список изображений ImageList и задайте его свойству Name значение imlToolbar.
Двойным щелчком на строке Gustom в окне свойств откройте диалоговое окно Property Pages (Рисунок 18.6).
В окне Property Pages перейдите на вкладку Images, чтобы приступить к добавлению рисунков.
Щелкните на кнопке Insert Picture.
Из каталога с:\ \VB\Кладовка выберите файл New.bmp, в котором содержится изображение пустой страницы, обычно соответствующего команде New (Новый). Этот файл можно также взять из каталога Common\Graphics\Bitmaps\ папки Microsoft Visual Studio, содержащей систему Visual Basic, если это представляется более удобным.
Когда в списке вкладки Images появится изображение пустой страницы, щелкните на ней, чтобы следующий рисунок был вставлен после рисунка с изображением пустой страницы.
Щелкните на кнопке Insert Picture, откройте файл Open.bmp. Щелкните на изображении открывающейся желтой папки.
Последний раз щелкните на кнопке Insert Picture, откройте файл Save.bmp. Список изображений должен принять вид, показанный на рисунке 10.4. Кнопкой ОК закройте диалоговое окно Property Pages.
Выделите панель tbrToolbar и откройте диалоговое окно Property Pages, выбрав строку Gustom в окне свойств.
На вкладке General задайте свойству ImageList значение imlToolbar.
Перейдите на вкладку Battons.
Задайте свойству Index значение 2, а свойству Image значение 1 и щелкните на кнопке Применить. Этим самым Вы на вторую кнопку (вспомните, что первая кнопка – разделитель) помещаете рисунок из первой позиции списка изображений (пустой документ).
Задайте свойству Index значение 3, а свойству Image значение 2 и снова щелкните на кнопке Применить. Значок в виде открывающейся папки разместится на кнопке Open.
З
адайте
свойству Index
значение 4, а свойству Image
значение
3 и опять щелкните на кнопке Применить.
Значок в виде дискеты папки поместится
на кнопке Save.Щелкните на кнопке ОК. Панель инструментов должна выглядеть так, как показано на рисунке 18.7.
Сохраните проект.
Проектирование панели инструментов закончено. Осталось добавить код обслуживания панели, который должен обеспечивать реакцию программы на нажатие той или иной кнопки панели инструментов.
Дважды щелкните на панели инструментов. Введите программный код событийной процедуры tbrToolbar_ButtonClick, которая будет выполняться при щелчке на любой кнопке панели инструментов. Аргумент Button этой кнопки определяет, какая кнопка была нажата.
Введите в процедуру tbrToolbar_ButtonClick программный код:
Private Sub tbrToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case Is = "New"
MsgBox ("Нажата кнопка New")
Case Is = "Open"
MsgBox ("Нажата кнопка Open")
Case Is = "Save"
MsgBox ("Нажата кнопка Save")
End Select
End Sub
В этом фрагменте программы, какая кнопка была нажата, определяется по значению ее свойства Key.
Сохраните проект.
Запустите проект и проверьте его работу. Продемонстрируйте работу проекта преподавателю.
Закройте Visual Basic.