Question

关于VFP时钟控件设定系统时间设定问题

SET DATE TO YMD
y=ALLTRIM(STR(YEAR(DATE())))
m=ALLTRIM(STR(month(DATE())))
d=ALLTRIM(STR(day(DATE())))
h=SUBSTR(time(),1,2)
f=SUBSTR(time(),4,2)
s=SUBSTR(TIME(),7,2)

thisform.LabDate.Caption="系统当前日期和时间："+y+"年"+m+"月"+d+"日 "+h+"点"+f+"分"+s+"秒"

这是我TIMER的编程

设置的interval是50MS enabled=.T.

这个让我整个界面不止是时间在刷新 连我在输入文字的时候输入框焦点也在刷新。。
求解。。是怎么回事。。

Answer 1

thisform.LabDate.Caption="系统当前日期和时间："+y+"年"+m+"月"+d+"日 "+h+"点"+f+"分"+s+"秒"
既然上面最小单位是秒，你将interval设置成50MS 不是太快了吗？interval= 1000接近一秒。
可能是你设的interval过小，所以输入框焦点也在刷新。
建议将50改为1000

Answer 2

只使用了一个timer控件么 ？

其他timer里有没有thisform.refresh这样的语句

interval设置为 1000

timer事件

Set date ymd
Set Mark To '-'
Set Century on
Set Hours To 24
thisform.LabDate.Caption="系统当前日期和时间：" + Ttoc(Datetime())

其实
Set date ymd
Set Mark To '-'
Set Century on
Set Hours To 24

可以直接加在你的主程序中，并且保证这些语句在你的程序开始的时候执行一次就足够了

不用每次都执行