Таймеры (Timer)

LostFocus

GetFocus

DoubleClick

Click

End Sub

End If

End Sub

ReportText

End Sub

ReportText

End Sub

Флажок CheckBox

DragDrop

DragOver

KeyUp, KeyDown, KeyPress

MouseMove

MouseUp

MouseDown

GotFocus, LostFocus

DoubleClick

Click

End If

Переключатели обрабатывают события:

Флажки используют, когда речь идет о независимых возможностях выбора. При щелчке на каком-то одном поле флажка, там появляется галочка, даже если был сделан до этого выбор в другом поле. Чтобы отменить предыдущий выбор, необходимо щелкнуть на флажке повторно. Флажок обладает свойствами, аналогичными свойствам переключателя. Свойство VALUE отражает состояние флажка и принимает следующие значения:

0 - флажок не установлен (FALSE);

1 - флажок установлен (TRUE);

2 - "отключено", то есть флажок не реагирует на попытки пользователя изменить его состояние.

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

Private Sub ChkChoice1_Click ()

ReportText ‘Вызов пользовательской процедуры

Private Sub ChkChoice2_Click ()

Private Sub ChkChoice3_Click ()

Public Sub ReportText () ‘Процедура создается с помощью ‘команды Add Procedure меню Tools

Dim Info ‘Объявление переменной

Info= “”

If ChkChoice1.Value=1 Then

Info = Info+"с орехами"

If ChkChoice2.Value=1 Then

Info = Info+"с изюмом"

If ChkChoice3.Value=1 Then

Info = Info+"с шоколадом"

TxtResult.text = Info

События флажков:

Таймериспользуются для вызова периодически повторяющегося события. Например, можно с помощью таймера создать часы, которые бы выводили на форме текущее время. Можно контролировать запланированные события и так далее.

Таймеры невидимы для пользователя, значок с их изображением появляется только во время разработки формы. В приложении может быть использовано одновременно несколько таймеров, однако это может снизить скорость работы приложения.

Свойства таймера:

Name – по умолчанию Timer1, Timer2 и так далее.

Enabled - разрешено (TRUE /FALSE), определяет, должен ли таймер начинать работу, когда запускается форма. Если во время создания формы свойство таймера установлено в FALSE, то таймер начнет работать только при установке его программным путем в значение TRUE. Аналогично можно выключить таймер в программе, установив значение свойства в FALSE.

Interval - определяет интервал времени между вызовами метода Timer. Интервал тиков измеряется в миллисекундах в пределах от 1 до 65535 миллисекунд (1 мин., 5 сек). На самом деле системная плата генерирует только 18 тиков в секунду, поэтому предельная точность таймера = 1/18 секунд или 56 миллисекунд. И интервал меньший, чем 56 миллисекунд, большей точности не даст, а только замедлит работу системы.

Пример: Форма содержит таймер и надпись, в которой отражается текущее время. Свойство Interval = 1000 миллисек. = 1 сек.

Private Sub tmrTime_Timer ()

‘Именованный формат - Функция времени. (час. мин. сек.)

lblLab.Caption = "Текущее время" + Format (Now, "Long Time")

Дата добавления: 2014-12-10