End Sub. Label1.Caption = Str$(HScroll1.Value)

Sub Hscroll1_Scroll()

End Sub

Sub Hscroll1 Change()

Label1.Caption = Str$(HScroll1.Value)

Так как свойство метки Caption способно воспринимать только строковые значения, придется с помощью функции Str$ преобразовывать величину HScroll1.Value в строку.

Теперь сделаем код для обработки события Scroll линейки прокрутки.

Label1.Caption =”Текущая позиция:”+ Str$(HScroll1.Value)

Запустите свой проект. При щелчках на серой области линейки прокрутки, значения, отображаемые строкой метки, буду изменяться с шагом в 10 единицы, а при щелчках стрелок на концах линейки – с шагом в 2 единицы.

Перемещая движок мышью, можно изменять значения позиции, показываемое на метке с произвольной дискретностью, а не только 2 или 10.

Процедура обработки события Scroll непрерывно обновляет

строку метки при перемещении движка.

Закончите работу с проектом.

Дата добавления: 2014-01-14