Работа с таймером

Чтобы лучше понять, как работает таймер, мы создадим часы в заголовке формы:

1. Создайте новый проект командой File > New Project и выберите значок Standard EXE.

2. Задайте свойству Name формы Form1 значение frmMain, а свойству Caption -значение Приложение-часы.

3. Разместите таймер на форме frmMain. Задайте свойству Name значение tmrTime.

4. Задайте свойству Interval значение 500. Состояние системных часов будет проверяться каждые полсекунды. Этот интервал был выбран из-за того, что таймер Visual Basic не отличается особой точностью, однако для нашего приложения подойдет и он.

5. Добавьте следующий фрагмент в секцию (General) (Declarations) формы frmMain:

Option Explicit

Private OldCaption As String

6. Добавьте следующий фрагмент в процедуру события Form_Load:

Private Sub Form_Load()

OldCaption = Me.Caption

End Sub

7. Теперь добавьте следующий фрагмент в процедуру события Timer таймера:

Private Sub tmrTimer_Timer() Dim msg As String

msg = OldCaption & ": " & Time$ Caption = msg

End Sub

8. Сохраните приложение и запустите его командой Run > Start. Примерный вид окна приложения показан на рис. 3.12.

Рис. 3.12. Приложение-часы

Возможно, вы заметили, что заголовок приложения слегка мерцает. Чтобы избавиться от этого неприятного эффекта, следует свести к минимуму количество обновлений заголовка в процедуре события Timer:

Private Sub tmrTimer_Timer()

Dim msg As String

msg = OldCaption & ": " & Time$

If msg<>Caption Then

Caption = msg

End If

End Sub

Оператор If...Then проверяет, изменилось ли время, возвращаемое функцией Time$ Если строка msg отличается от Caption, мы обновляем свойство Caption в соответствии с новым значением времени. В противном случае мы ничего не делаем и не] изменяем Caption — мерцание исчезает.

ПОДСКАЗКА Вы можете воспользоваться функцией Format, чтобы изменить формат представления времени. Данная функция получает ряд именованных параметров, а также некоторые параметры, которые вы определяете сами. Ее возможности не ограничиваются форматированием даты и времени — эта функция работает с числами и строками. Функция Format подробно описана в электронной документации — найдите раздел Format Function и щелк-ните на ссылке See Also в верхней части окна.

Дата добавления: 2015-07-20