在表单上添加一个timer控件,将其Interval属性值设为1000。
在timer控件的Timer过程中添加以下代码:
thisform.Text1.value=time()
这面的代码就可以让Text控件显示系统时间,每秒钟更新一次。
如果数字没变化,请添加刷新语句
=thisform.text1.refresh()
说明:上例中假设Text控件的名称为Text1,请根据具体情况核实。
在表单上添加一个计时器控件,将其interval属性设置为1000,双击这个计时器控件,在其timer代码程序中输入thisform.text1.value=time().
我把这个表单添加到附件里了,你看看。