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

💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

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

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

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

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

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

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

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

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