TimerTick

窗口计时器代码,根据设定的间隔执行。

e参数属性:

Form:表示触发事件的窗口。

示例

本示例可以参考CaseStudy目录下的示例文件:窗口计时器.table

窗口中加入一个标签,要求标签不停地闪烁,而且能够通过按钮控制闪烁速度,以及暂停和开始闪烁。

首先在窗口中加入一个标签,标签文本为“警告”,另外加入四个按钮,分别是暂停、开始、慢速、快速。

然后将窗口的TimerClick事件代码设为:

Dim Lbl As WinForm.Label = e.Form.Controls("Label1")
If
Lbl.ForeColor = Color.Red Then
    Lbl.ForeColor = Color.Black

Else

    Lbl.ForeColor = Color.Red

End
If

四个按钮的Click事件代码分别设为:

按钮名称 代码
暂停 e.Form.TimerEnabled = False
开始 e.Form.TimerEnabled = True
慢速 e.Form.TimerInterval = 1000
快速 e.Form.TimerInterval = 500

 


本页地址:http://www.foxtable.com/webhelp/topics/1322.htm