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


         

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


Элемент управления Alarm имеет два метода для запуска и остановки таймера:

•  StartTimer запускает таймер и

•  StopTimer останавливает таймер.

Наконец, элемент управления Alarm имеет событие TimeOut, которое сообщает приложению, что сигнал уже сработал (это происходит тогда, когда время достигло значения AlarmTime). Приложение может использовать это событие, чтобы выполнить другое действие или просто проинформировать пользователя.

Тестирование элемента управления Alarm

Тестовая форма элемента управления Alarm показана на рис. 16.16. Она содержит два экземпляра элемента управления и можно менять их свойство CountDown во время выполнения. Свойство AlarmTime элементов управления устанавливается в слу­чайное значение в обработчике события Load тестовой формы с помощью сле­дующих операторов:

Private Sub Form_Load()

Randomize Time

AlarmCtl1.AlarmTime = Rnd()

AlarmCtl2.AlarmTime = Rnd()

End Sub

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

Когда два элемента управления Check 1 и Check2 отмечены, свойство Count Down изменяется с помощью следующего кода:

Private Sub Checkl_Click()

If Checkl.Value Then

AlarmCtll.Count Down = True Else

AlarmCtll.CountDown = False

End If

End Sub

Код для события Click элемента управления Check2 идентичен, только он применяется к элементу управления AlarmCtl2. Наконец, когда у элемента управ­ления Alarm подходит время срабатывания сигнала, выполняется следующий код.

Private Sub AlarmCtll_TimeOut()

MsgBox "The Alarm" & AlarmCtll.Tag & "has Timed out"

End Sub

Нужно присвоить свойству Tag элемента управления подходящее имя, так как программа использует это свойство для различения двух элементов управления. Тестовый проект использует тэги ProcessA и ProcessB.

Кнопка Start Timer под каждым элементом управления запускает таймер соответствующего элемента управления. После этого она изменяет свое название на Stop Timer, чтобы пользователь в любой момент мог остановить отсчет. Код первой кнопки Start Timer показан ниже.




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