Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Полосу прокрутки можно использовать для выбора одной из букв алфавита, определяющей критерий поиска в базе данных. Чтобы значение свойства 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
Дата публикования: 2014-12-28; Прочитано: 190 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!