Мал. 5.8. Зв'язування панелі інструментів із списком зображень.

11. Перейдіть на вкладку Buttons.

12. Задайте властивості Index значення 2, а властивості Image - значення 1. Тим самим ви поміщаєте значок уперше позиції списку (порожній документ) на другу кнопку. Пам'ятайте, що першою кнопкою є роздільник.

13. Задайте властивості Index значення 3, а властивості Image - значення 2. Значок у вигляді теки поміщається на кнопку Open.

14. Задайте властивості Index значення 4, а властивості Image - значення 3. Значок у вигляді дискети поміщається на кнопку Save.

15. Натисніть кнопку ОК. Панель інструментів повинна виглядати так, як показано на мал. 5.9.

Проектування панелі закінчене, на кнопках з'явилися значки, але це ще не усе. Необхідно додати код обслуговування панелі - без нього програма не знатиме, яка кнопка натиснута користувачем. Двічі клацніть на панелі інструментів, щоб відкрити процедуру події tbrToolbar_ButtonClick(). Звернете увагу на параметр Button - він визначає номер натиснутої кнопки.

Додайте в процедуру події наступний фрагмент:

Private Sub tbrToolbar_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button, Key

Case Is = " New"

MsgBox " Натиснута кнопка New"

Case Is = " Open"

MsgBox " Натиснута кнопка Open"

Case Is = " Save"

MsgBox " Натиснута кнопка Save"

End Select

End Sub

Погляньте на оператор Select Case, використовуваний для визначення натиснутої кнопки. Він трохи схожий на оператор If..Then, проте має більшу гнучкість при обробці списку умов. Як видно з приведеного вище фрагмента, замість трьох блоків If..Then використовуються три оператор Case Is. Під час створення панелі інструментів не забудьте правильно задати значення властивості Key - по ньому ви зможете визначити, яка кнопка була натиснута.

Познайомившись з основами створення панелей інструментів, можна переходити до нового компонента, який поставляється з Visual Basic 6, - вдосконаленій панелі (CoolBar). Саме цей компонент був використаний в панелях інструментів середовища Visual Basic. Збережете свій проект, продовжуйте читати - і ви навчитеся користуватися цим чудовим інструментом у своїх застосуваннях!