Отображение значения свойства Value на экране

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

Полосу прокрутки можно использовать для выбора одной из букв алфавита, определяющей критерий поиска в базе данных. Чтобы значение свойства Value отображалось на экране, необходимо обработать три события:

§ Form_Load.Это событие используется для отображения начального значения свойства Value после назначения диапазона изменения этого свойства.

§ Change.Данное событие происходит в момент отпускания кнопки мыши после перетаскивания бегунка в новое положение, после щелчка мышью на одной из стрелок или на пустой области полосы прокрутки.

§ Scroll.Это событие возникает после перемещения бегунка полосы прокрутки. Оно позволяет отобразить на экране значение свойства Value во время перемещения бегунка.

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

Private Sub Form_Load()

'Установим числовые значения свойств Max и Min

HScroll1.Max = Asc("Я")

HScroll1.Min = Asc("А")

'Установим начальное значение др. свойств

HScroll1.LargeChange = 20

HScroll1.SmallChange = 1

HScroll1.Value=Asc(“O”)

End Sub

Private Sub HScroll1_Change()

Label1.Caption = "Поиск " & Chr$(HScroll1.Value)

` Здесь помещается код для поиска значения в базе данных

End Sub

Private Sub HScroll1_Scroll()

Label1.Caption = Chr$(Hscroll1.Value)

End Sub

Пример 6.1.3. На форме имеется три вертикальных полосы прокрутки и элемент управления Label. Каждый из бегунков позволяют регулировать насыщенность трех цветов: красного (R), зеленого (G), синего (B). Перемещая бегунки на полосах прокрутки необходимо отражать в Label получившийся смешанный цвет.

Private Sub Form_Load()

For i = 0 To 2

VScroll1(i).Min = 0

VScroll1(i).Max = 255

VScroll1(i).LargeChange = 30

VScroll1(i).SmallChange = 5

VScroll1(i).Value = 256/2

Label3(i) = 256 / 2

Next

End Sub

Private Sub VScroll1_Change(Index As Integer)

Label1.BackColor = RGB(VScroll1(0).Value, _

VScroll1(1).Value, VScroll1(2).Value)

For i = 0 To 2

Label3(i) = VScroll1(i).Value

Next

End Sub

Private Sub VScroll1_Scroll(Index As Integer)

Label1.BackColor = RGB(VScroll1(0).Value, _

VScroll1(1).Value, VScroll1(2).Value)

For i = 0 To 2

Label3(i) = VScroll1(i).Value

Next

End Sub