Мал. 5.7. Вставка растрових зображень в список зображень.

9. Виділите tbrToolbar і знову відкрийте діалогове вікно Property Pages, вибравши рядок Custom у вікні властивостей.

10. На вкладці General задайте властивості ImageList значення imlToolbar (мал. 5.8).

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

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

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

1

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

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

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

П

Мал. 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. Збережете свій проект, продовжуйте читати - і ви навчитеся користуватися цим чудовим інструментом у своїх застосуваннях!

Використання вдосконаленої панелі

Один з нових елементів, що входять в комплект Visual Basic 6, - вдосконалена панель (CoolBar). Цей елемент зустрічається в програмах сімейства Microsoft Office (мал. 5.10), Internet Explorer і IDE VisualBasic. Вдосконалена панель є закріплюваним контейнером, в якому можуть знаходитися інші елементи - панелі інструментів, комбіновані поля і написи. Найхарактерніша риса цього елементу - кнопки, які "підводяться", якщо затримати над них покажчик миші (схожа можливість передбачена в деревах і табличних списках).

Вдосконалена панель складається з однієї або декількох смуг (bands), причому в кожній смузі може знаходитися один елемент.

Рис.5.10. Вдосконалена панель.

На жаль, документація Microsoft по цьому елементу дуже бідна. Та все ж я відшукав шлях, який спростить навчання. Давайте спробуємо:

1. Відкрийте проект з попереднього розділу, якщо це не було зроблено раніше. Ми відновимо його для роботи з вдосконаленою панеллю.

2. Клацніть на панелі елементів правою кнопкою миші і виберіть в контекстному меню команду Components.

3. Прокрутите список в діалоговому вікні Components і Встановіть прапорці поряд з рядками Microsoft Windows Common Controls 6.0 і Microsoft Windows Common Controls - 3 6.0. Елемент вдосконаленої панелі відноситься до Common Controls - 3. Нам також знадобляться елементи Common Controls 6.0 для роботи з панеллю інструментів і списком зображень.

4. Натисніть кнопку OK, щоб додати елементи на панель. 5.Помістите елемент вдосконаленої панелі на форму frmMain.

6. Клацніть на елементі панелі інструментів, щоб зробити його активним.

7. Натисніть Ctrl+X, щоб вирізувати елемент з форми.

8. Клацніть на вдосконаленій панелі і вставте в нього панель інструментів клавішами Ctrl+V.

9. У вікні властивостей задайте властивості Name вдосконаленої панелі значення сbrСоо 1Ваг, а властивості Align - значение1 - Align Top.

10. Клацніть в рядку (Custom), щоб викликати діалогове вікно із сторінками властивостей вдосконаленої панелі (мал. 5.11).