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


         

Ключевые свойства элемента управления - часть 7


Программа 16.14. Запуск и остановка сигнала

Private Sub StartButtonl_Click()

If StartButtonI.Caption = "Start Timer" Then

AlarmCtl1.StartTimer

StartButtonI.Caption = "Stop Timer"

Else

StartButtonI.Caption = "Start Timer"

AlarmCtl1.StopTimer

End If

End Sub

И, наконец, кнопки Alarm Time с помощью следующего кода отображают время, когда соответствующий сигнал должен сработать.

Private Sub AlarmButtonl_Click()

MsgBox "The alarm will go off at" & AlarmCtll.AlarmTime

End Sub

Загрузите проект Alarm (продолжайте загрузку даже после того, как появится предупреждение) и замените два элемента управления PictureBox, которые появятся вместо элементов управления Alarm, на два экземпляра элементов управления Alarm. Поэкспериментируйте с интерфейсом элемента управления и исследуйте код тестового проекта.

Откройте тестовый проект, закомментируйтс операторы в событии Load формы (которые устанавливают значение свойства AlarmTime равным случайным значениям) и установите свойство AlarmTime на минуту больше, чем системное время (текущее время, отображаемое в нижнем правом углу панели задач). Запустите проект и затем отметьте флажок CountDown. Alarm начнет отсчитывать в обратном направлении разность между текущим временем и временем сраба­тывания сигнала. Когда эта разница достигнет нуля, окно сообщений сообщит, что время прошло. Если флажок CountDown не отмечен, то вы увидите, сколько времени прошло с момента запуска таймера. Чтобы отобразить время сигнала, нажмите кнопку Alarm Time.




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