Полосы прокрутки (HScrollBar и VScrollBar)

Для определенности поговорим о горизонтальной полосе прокрутки(HScrollBar). Все сказанное будет полностью относиться и к вертикальной полосе(VScrollBar).

Поместите на форму горизонтальную полосу. Запустите проект. Потаскайте мышкой бегунок. Вы, безусловно, знакомы с полосой прокрутки по другим приложениям Windows. Она используется в основном для того, чтобы прокручивать информацию в окне или же просто менять значение какой-нибудь величины.

Задача: Изменять с помощью полосы прокрутки значение переменной величины W в пределах от 20 до 50. При щелчке по стрелкам полосы или клавиатуры значение переменной должно меняться на 2, а при щелчке по полосе слева или справа от бегунка значение переменной должно меняться на 5. При запуске проекта бегунок должен стоять на отметке 27.

Ваши действия: Создайте проект и поместите на форму горизонтальную полосу прокрутки. Ее имя HScroll1. Установите в соответствии с числами из задания следующие свойства полосы:

· Min - 20

· Max - 50

· SmallChange - 2

· LargeChange - 5

· Value - 27

Проверьте правильность работы полосы, запустив программу:

Private Sub HScroll1_Change()

W = HScroll1.Value

Debug.Print W

End Sub

Событие HScroll1_Change возникает при любом перемещении бегунка.

Задание 123: Поместите рядом с полосой три метки:

Левая метка должна указывать минимальное значение, правая - максимальное, средняя - текущее. Усложнение: Хорошо бы средняя метка бегала рядом с бегунком.