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

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

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

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

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

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 As MSComctlLib.Button)

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

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

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

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

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

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

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

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

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

Дата добавления: 2014-12-23