![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Работа с таймером
Чтобы лучше понять, как работает таймер, мы создадим часы в заголовке формы: 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 в верхней части окна.
|