Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. g. Если работает на табачном проекте, в первую очередь спрашиваем, курит ли человек
  2. I. Историческая работа сообразно её материалам
  3. II. Групповая работа
  4. II. Историческая работа сообразно её формам 1 страница
  5. II. Историческая работа сообразно её формам 2 страница
  6. II. Историческая работа сообразно её формам 3 страница
  7. II. Историческая работа сообразно её формам 4 страница

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

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; просмотров: 107 | Нарушение авторских прав


Читайте в этой же книге: Работа с текстовыми полями | Свойства надписей | События переключателей | Методы переключателей | Свойства флажков | Работа с флажками | Методы рамок | События списков | Комбинированные поля | Методы комбинированных полей |
<== предыдущая страница | следующая страница ==>
Свойства рисунков| Свойства полос прокрутки

mybiblioteka.su - 2015-2024 год. (0.005 сек.)