一个完整的VFP的系统主页中怎样设置一个时钟显示器，就是显示当前时间，作用跟时钟一样。

Question

就是右上角那个时间显示，请教如何在VFP中生成一个那样的东西，万分紧急！谢谢帮忙解答

Answer 1

直接在表单中用一个标签加一个计时器控件，在计时器中写上代码：
rq=date()
yy=year(rq)
mm=month(rq)
dd=day(rq)
thisform.label1.caption=alltrim(str(yy))+"年"+alltrim(str(mm))+"月"+alltrim(str(dd))+"日"+" "+time()追问

谢谢啊，但是请问是不是这样操作？属性那里用不用修改什么的?问什么计时器添加进标签中，输入timer过程的代码后，点击运行只显示标签而没有我想要的那个时钟呢，感谢您的回答。

追答

时钟控件需要设置其interval属性为500(单位毫秒，表示半秒钟刷新一次)，然后直接在时钟控件的timer事件中加上上面的代码即可。不是说计时器要加入到标签中，可以放在表单不同的地方，意思是说这两个控件都要加在表单里面。

追问

不好意思啊，我是个VFP初学者，因为有任务在身，所以很多地方有问题。是不是要在整个项目连编之后显示狐狸头exe才能看到最后显示的那个时钟。现在表单里只要这样设置就行，能否直接在表单里看看效果的？

追答

就是可以直接在表单中看到效果呀

追问

您太厉害了！谢谢您！！！如果我只要显示时间,不要年月日的代码是???，，，

追答

那就直接一句就行了：
thisform.label1.caption=time()