数字时钟是使用计时器控件的一个简单但非常有用的应用程序。一旦弄清这个应用程序的工作原理,就可以将它改进为闹钟、跑表或其他计时工具。
数字时钟应用程序包括一个计时器和带有边框的标签。在设计时刻,应用程序如下图所示:
数字时钟应用程序
在运行时刻,看不见计时器。
控件
属性
设置
lblTime
Caption
Timer1
Interval
500 (半秒)
Timer1
Enabled
True
这个应用程序唯一的过程是 Timer 事件过程。
IF THISFORM.lblTime.Caption != Time()
THISFORM.lblTime.Caption = Time()
ENDIF
一般将时间间隔设置为想要区分的最短时间周期的一半(在这里是一秒),根据这一规则,将计时器的 Interval 属性设置为 500 毫秒。这样设置可能使计时器代码在一秒钟内以同样的时间值两次更新标签,从而引起闪烁。所以其中的代码在改变标题之前应先进行测试,看标签中显示的时间是否和现在的时间不同。
参考资料:http://hhxxpp0.bokee.com/viewdiary.13524299.html
本回答被网友采纳