Отображение значения свойства Value на экране
Полосу прокрутки можно использовать для выбора одной из букв алфавита, определяющей критерий поиска в базе данных. Чтобы значение свойства Value отображалось на экране, необходимо обработать три события:
Form_Load. Это событие используется для отображения начального значения свойства Value после назначения диапазона изменения этого свойства.
Change. Данное событие происходит в момент отпускания кнопки мыши после перетаскивания бегунка в новое положение, после щелчка мышью на одной из стрелок или на пустой области полосы прокрутки.
Scroll. Это событие возникает после перемещения бегунка полосы прокрутки. Оно позволяет отобразить на экране значение свойства Value во время перемещения бегунка.
Пример 6.1.2. Изменяя значения полосы прокрутки необходимо отражать текущее значение в текстовом поле
P
rivate
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
6.2. Таймер (элемент управления Timer)
Элемент
управления типа Timer
предназначен для отсчета небольших
промежутков времени (не более 1 минуты).
В прикладных программах таймер используется для различных целей, как, например, выполнение определенного действия через заданный интервал времени.
Работа с таймером
Таймер в режиме разработки программы всегда отображается в форме в виде пиктограммы, но при выполнении он становится «невидимым». Чтобы запустить в программе таймер, вначале нужно написать текст процедуры обработки события Timer, а затем установить значения некоторых свойств. Основные свойства:
Interval;
Enabled.
Свойство Enabled запускает и останавливает таймер. Если его значение равно True, то по истечении интервала времени будет вызываться процедура обработки события Timer. Значения Interval находятся в диапазоне от 0 до 65535. Если данному свойству присвоить значение 0, элемент управления типа Timer перейдет в неактивное состояние.
Максимальный интервал времени, который позволяет установить таймер, примерно равен одной минуте (65535 мсек). Ниже приведен текст процедуры, которая позволяет расширить диапазон времени.
Пример 6.2.1, позволяющий искусственно изменить интервал до 5 минут. В данном примере каждые 5 минут будет выведено на экран диалоговое окно «Привет». Отсчет времени начинается после загрузки программы либо после нажатия кнопки ОК диалогового окна. В примере используется функция Timer, определяющая количество секунд после полночи.
Dim a As Long
Private Sub Form_Load()
Dim b As Long
a = (Timer + 5 * 60) Mod (3600& * 24)
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If Timer > a Then
Timer1.Enabled = False
MsgBox "Привет"
Timer1.Enabled = True
a = (Timer + 5 * 60) Mod (3600& * 24)
End If
End Sub