利用其提供的计时器控件来设计一个显示当前日期和时间的表单
时间：2005-04-28 11:24 来源：未知 作者：未知 阅读：次
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
具体的设计方法：在计时器里有一个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
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·两个未公开的ACCESS方法的使用技巧
- ·如何拆分复制的Access 97数据库
- ·两个未公开的ACCESS方法的使用技巧
- ·用Access 2000有效地组织班级管理
- ·数据在Access与Office组件间自由流动
- ·Access＂智库＂培训--高效设计 敏捷开
- ·Access查询的基本知识(二)(Office免费
- ·Access设置宏的安全等级
- ·Access查询的基本知识(Office免费公开
- ·四种用代码打开外部Access(MDB)的方法
- ·access操作或事件已被禁用模式阻止的解
- ·简述vba字符串，函数，表达式等基础术
- ·Access VBA 开发公开课讲座
- ·Access设置信任位置
- ·Access应用程序应注意的几个问题
- ·简析能判断Access版本的窗体
最新内容
推荐内容