Події смуг прокрутки

Нижче перераховані події, підтримувані горизонтальними і вертикальними смугами прокрутки:

Change	DragDrop	DragOver	GotFocus
KeyDown	KeyPress	Keyllp	LostFocus
Scroll	Validate

Найбільш важливі події Change і Scroll. Перше відбувається при зміні властивості Value смуги під час виконання програми. У свою чергу, властивість Value змінюється, коли користувач клацає на стрілці (SmallChange) або прямо на смузі (LargeChange) або перестає перетягувати бігунок. У останньому випадку зміна Value залежить від довжини перетягання, хоча воно ніколи не перевищує різниці між Мах і Min.

Хоча подія Change відбувається у той момент, коли користувач відпускає бігунок, воно ніколи не генерується при перетяганні. Якщо ви хочете згенерувати подію Change під час перетягання, викличте його з процедури події Scroll. Подія Scroll зазвичай генерується під час перетягання бігунка. Викликаючи з його процедури подію Change, ви тим самим згенеруєте його. Якщо того не зробити, то для обробки результатів доведеться чекати, поки користувач відпустить бігунок. З іншого боку, будь-яке клацання на смузі прокрутки призводить до негайного виклику події Change.

Методи смуг прокрутки

Перераховані нижче методи смуг прокрутки не особливо важливі і використовуються досить рідкісно.

Drag	Move	Refresh
SetFocus	ShowWhatsThis	ZOrder

Робота із смугами прокрутки

Ми розглянемо роботу із смугами прокрутки на прикладі форми з горизонтальною смугою. Поступіть так:

1. Створіть новий проект командою File > New Project.

2. Помістите на форму Form! горизонтальну смугу прокрутки. Задайте властивості Name смуги значення hscVolume.

3. Задайте властивості Min смуги hscVolume значення 0, а властивості Мах - значення 100. Задайте властивості Value значення 50.

4. Задайте властивості SmallChange значення 1, а властивості LargeChange - значення 10.

5. Створіть на формі напис, задайте її властивості Name значення IblVolume, а властивості Caption - значення 50.

6. Клацніть у вікні властивостей на рядку Font і задайте властивості FontSize напису значення 24.

7. Задайте властивості AutoSize напису значення True. Вирівняйте елемент по центру форми над смугою прокрутки.

В результаті ваша форма має бути схожа на мал. 3.13.

Мал. 3-13. Вікно із смугою прокрутки.

8. Двічі клацніть на смузі прокрутки, щоб відкрити вікно програми. Додайте наступний фрагмент в процедуру події Change смуги:

Private Sub hscVolume_Change()

IblVolume.Caption = Trim$(Str$(hscVolume.Value))

End Sub

10. Запустіть додаток командою Run > Start.

Наша програма надзвичайно проста. Вона усього лише відображує поточну позицію бігунка на шкалі. Позицію можна змінювати - для цього слід клацнути на стрілці, перетягнути бігунок або клацнути на смузі між бігунком і стрілкою. На особливу увагу заслуговують хіба що функції Trim$ і Str$. Функція Str$ перетворить числове значення в рядок. Таке перетворення потрібне, тому що властивості Caption напису IblVolume можна присвоїти тільки строкову змінну або змінну типу Variant, а властивість Value смуги прокрутки відноситься до цілого типу.

Str$(hscVolume.Value)

Отже, перетворена величина підійде для властивості Caption. Функція Trim$ видаляє пропуски на початку і кінці рядки, які можуть виникнути в процесі перетворення. Щоб значення, що виводиться, виглядало акуратніше, використовується наступна комбінація:

Trim$(Str$(hscVolume.Value))

У цьому додатку для управління гучністю звуку слід було б викликати спеціальну функцію API.