Question

用VFP 制作3分钟的定时器（倒计时）详细步骤请解答下

Answer 1

PUBLIC myform
myform = CREATEOBJECT('myform')
myform.show
RETURN

DEFINE CLASS myform as Form
caption = 'timer test'
width = 300
height = 180
autocenter = .t.
ADD OBJECT lb1 as mylabel
ADD OBJECT tmr as mytimer
PROCEDURE init
thisform.tmr.interval = 5000&& 单位为毫秒 这时是 5秒， 三分钟 自己设置
ENDPROC
ENDDEFINE

DEFINE CLASS mylabel as label
left = 10
top = 8
width = 68
PROCEDURE init
this.caption = '正在 计时...'
ENDPROC
ENDDEFINE
DEFINE CLASS mytimer as Timer
PROCEDURE timer
thisform.lb1.caption = '5 秒 已到'
ENDPROC
ENDDEFINE
*－－－－－－－－－－－－－－－－－－－－－－－－－
*以上是一个 示例程序， 不能安全按你的要求做，那样你不会学到东西的。
也不能，逐步解释了，没有比这更简单的程序了。
*因为不能上传一个表单，所以用代码来做一个表单。
*把这些放到一个prg文件，执行它 就可以看到效果了。
*祝好。

Answer 2

使用Timer控件，进行即时循环