Visual FoxPro 6.0是Microsoft公司推出的数据库管理系统,功能强大、使用灵活。在本文中,将利用其提供的计时器控件来设计一个显示当前日期和时间的表单,希望能对刚入门的朋友有所帮助。
具体的设计方法:在计时器里有一个Timer事件,其Interval属性(单位为毫秒)指定的时间每经过一次就执行该事件一次。利用这一特点可进行动态的日期、时间显示(如图)。
图1
1、表单Form1
Top=10
Left=97
Height=239
Width=339
Caption=“日期时间显示屏"
Name=”Form1"
2、标签Label1(显示日期)
AutoSize=.T.
FontName=“楷体-GB2312"
FontSize=22
Caption=”label1"
Height=60
Left=72
Top=72
Width=240
Name=“Label1"
3、标签Label2(显示时间)
AutoSize=.T.
FontName=”楷体-GB2312"
FontSize=22
Caption=“label2"
Height=72
Left=96
Top=156
Width=192
Name=”Label2"
4、计时器Timer1
Top=17
Left=48
Height=23
Width=23
Interval=500
Name=“Timer1"
PROCEDURE Timer
thisform.label1.caption=alltrim(str(year(date())))+”年“+alltrim(str(month(date())))+”月“+alltrim(str(day(date())))+"日"
thisform.label2,caption=time()
ENDPROC
|