Visual Basic 6. Руководство разработчика



         

Конструирование элемента управления - часть 3


If IsDate(vNewValue) Then m_AlarmTime = vNewValue

End Property

Последняя процедура проверяет правильность значения свойства, чтобы удостовериться, что введено допустимое время. Если введена дата, то программа предполагает, что время равно 00:00:00 (полночь).

6. Теперь можно добавить два метода. В окне Code выберите команду Add Procedure меню Tools. В открывшемся диалоговом окне Add Procedure введите название метода StartTimer, но на этот раз установите переключатель в Sub. В код будут вставлены следующие строки.

Public Sub StartTimer()

End Sub

7. В подпрограмме StartTimer() введите код для запуска таймера.

Public Sub StartTimer()

If Not Running Then

Timer1.Enabled = True

Running = True

startTime = Time

If Time = m_AlarmTime > 0 Then NextDay = True

Label1.Caption = "00:00:00"

End If

End Sub

Эта подпрограмма ничего не делает, если таймер уже запущен. Если таймер не запущен, то подпрограмма инициализирует элемент управления Timer и устанав­ливает значение переменной startTimer равным текущему времени, а изображение в "00:00:00". Переменная Running устанавливается в True, чтобы предотвратить повторное выполнение этой подпрограмм, когда таймер уже запущен. Переменная NextDay устанавливается в True, если время срабатывания сигнала меньше текущего времени. Это означает, что элемент управления должен сработать в заданное время на следующий день.

8. Снова выберите команду Add Procedure меню Tools, чтобы создать еще одну общедоступную подпрограмму — метод StopTimer(). Ниже приведен код для этой подпрограммы.

Public Sub StopTimer()

If Running Then

Timer1.Enabled = False

Running = False

End If

End Sub

Так же как и в методе StartTimer, таймер останавливается только в том случае, если он был запушен. В этом случае код отключает элемент управления Timer и устанавливает переменную Running в False.

9. Теперь добавьте событие элемента управления. Выберите команду Add Procedure меню Tools, чтобы открыть диалоговое окно Add Procedure.




Содержание  Назад  Вперед