Ход работы. 1. Подберите картинку с изображением калькулятора и фотографии (или фотоаппарата)

1. Подберите картинку с изображением калькулятора и фотографии (или фотоаппарата). Внутри папки Лабораторная_работа_№14 создайте папку Images, в которой сохраните эти картинки с соответствующими названиями в формате bmp, например Photo.bmp или Calckul9tor.bmp.

Теперь необходимо установить дополнительные элементы управления в окне ToolBox.

2. Выберите команду Project - Components

3. На вкладке Controlsустановите флажки у следующих компонентов: Microsoft Windows Common Controls 6.0 (SP6). В результате в окне ToolBoxпоявится несколько дополнительных элементов, среди которых - ToolBar(панель инструментов) и - ImageList (список картинок).

4. Разместите элементы ToolBar и ImageList на форме. При этом ToolBarсразу «прилипнет» к верхнему краю формы (Рис.14.12).

5. Щелкните правой клавишей мыши по ImageListи выберите опцию Properties.

6. В окне Property Pagesвыберите вкладку Images.

7. Щелкните по кнопке Insert Pictureи найдите в появившемся окне нужную папку с картинками (в нашем случае папка Images, которую Вы создали в папке с данной лабораторной работой).

8. Выбранная картинка появится в поле Images, а в поле Index появится ее порядковый номер – 1. Аналогично вставьте вторую картинку, ее индекс – 2 и т.д. (Рис.14.13). Закончив, щелкните на кнопке OK.

9. Щелкните правой клавишей мыши по расположенному на форме компоненту ToolBar. Выберите опцию Properties.

10. В открывшемся окне Property Pagesвыберите вкладку General (Рис.14.14).

11. В списке ImageListвыберите ImageList1 (Рис.14.14).

12. Откройте вкладку Buttons(Рис.14.15).

13. Щелкните по кнопке Insert Button. В поле Indexпоявится 1.

14. Далее выберите стиль кнопки (с помощью кнопки Style) (в примере оставлен по умолчанию 0)

15. В поле Image введите индекс картинки из ImageList, которую Вы хотите поместить на кнопку.

16. В поле Keyвведите любое слово, по которому в дальнейшем, как по имени, будет происходить обращение к этой кнопке (например, Калькулятор).

17. Также заполните поле ToolTipText. Информация, введенная в это поле, будет отображаться в виде подсказки при подведении мыши к кнопке (Рис.14.15).

18. Проведите аналогичные действия для второй кнопки. Закончив, нажмите на кнопке OK. Вид приложения после добавления панели инструментов показан на Рис.14.16.

Осталось запрограммировать работу кнопок на панели инструментов.

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

19. Щелкните два раза левой клавишей мыши на созданной панели инструментов и наберите в открывшемся окне следующий программный код (необходимые комментарии приведены в кавычках):

Private Sub Toolbar1_ButtonClick(ByVal Button AsMSComctlLib.Button)

Select Case Button.Key 'В зависимости о того, по какой кнопке

'выполнен щелчок мышью, вызывается

'соответствующая процедура

Case "Калькулятор"

Call itmКалькулятор_Click 'Процедура Call вызывает выше созданную

'процедуру itmКалькулятор_Click

Case "Фотоальбом"

Call itmФотоальбом_Click 'Процедура Call вызывает выше созданную

'процедуру itmФотоальбом_Click