Изменение величины перемещения

Date: 2015-10-07; view: 372.

Создание полосы прокрутки

Перед началом работы необходимо определить диапазон вводимых чисел, установив значения свойств Min и Max. Дальнейшая работа с описываемым элементом управления заключается в чтении и установке свойства Value. Значения этих свойств – целые числа, т.е. диапазон их изменений, составляет от – 32768 до +32767.

Текущее положение бегунка полосы прокрутки хранится в ее свойстве Value. Значение этого свойства будет изменяться всякий раз при перетаскивании бегунка либо после щелчка на одной из стрелок полосы прокрутки.

При изменении значения свойства Value автоматически возникает событие Change. Следующий фрагмент программы позволяет выводить в текстовом окне Text3 цифровое значение бегунка на полосе прокрутки.

Private Sub VSc1_Change()

Text3.Text = VSc1.Value

End Sub

Величина изменения свойства Value после щелчка на одной из стрелок полосы прокрутки зависит от значения свойства SmallChange. Свойству SmallChange нужно присвоить небольшое значение, чтобы получить плавное перемещение бегунка. По умолчанию ему присвоено значение 1.

Если щелкнуть на свободной части полосы прокрутки (между ползунком и одной из стрелок), значения свойства Value изменится на большую величину, чем после щелчка на одной из стрелок. Оно определяется значением свойства LargeChange. Обычно значение свойства LargeChange составляет 5-10% диапазона изменения свойства Value. Например, при значении Min =0 и Max = 100, целесообразно установить LargeChange=10.

Пример 6.1.1. Изменяя значения полосы прокрутки необходимо отражать текущее значение в текстовом поле.

Private Sub Form_Load()

HScroll1.Min = 0

HScroll1.Max = 100

HScroll1.LargeChange = 10

HScroll1.SmallChange = 1

HScroll1.Value = 50

Text1.Alignment = 2

Text1.FontSize = 20

End Sub

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value & " км/час"

End Sub