| |
Элемент Slider устанавливает значение некоторой
величины, перемещая бегунок между минимальным и
максимальным значением. Пользоваться данным
элементом очень просто. Вы устанавливаете
минимальное/максимальное значение, а также
устанавливаете значения свойств элемента SmallChange
(минимальное приращение значения) и LargeChange
(большое приращение значения).
Пример: создайте новый проект,
разместите на нем элемент Slider и 2 элемента Label.
Вставьте следующий код:
Private Sub Form_Load()
With Slider1
.Width = 4000
.Max = 30
.SmallChange = 3
.LargeChange = 6
End With
End Sub
Private Sub Slider1_Change()
Label2.Caption = Slider1.Value
End Sub
Private Sub Slider1_Scroll()
Label1.Caption = Slider1.Value
End Sub
Перемещая ползунок с помощью мыши, вы
перемещаетесь ровно по одному делению. Кликая
мышкой слева/справа от ползунка, вы
перемещаетесь на столько делений, сколько
указано свойством LargeChange. В нашем случае это 6.
Если вы нажмете на клавиатуре на кнопки
перемещения курсора (4 серых кнопочки со
стрелками), то можете наблюдать перемещение
ползунка элемента Slider на количество позиций,
заданных свойством SmallChange, т.е. на 3 позиции.
Как вы заметили, когда вы перемещаете ползунок
с помощью мыши, значение элемента Label2 не
меняется. Это связяно с тем, что событие элемента
Slider Change - событие единичное. Оно
возникает, когда пользователь отпускает кнопку
мыши. Событие же Scroll происходит
непрерывном при перемещении бегунка.
|
|