VFP 计时器添加代码

假如你的计时器控件的Name属性为timer1,且5秒钟后触发Timer事件则：

设定timer1的Interval属性为1000(1秒钟)

**

form的Init事件代码

public

N

N=0

****//timer1的timer事件代码*****

N=N+1

if

N>=5

do

form

xtdl.scx

thisform.release

endif

**//

form

的KeyPress事件代码

LPARAMETERS

nKeyCode,

nShiftAltCtrl

do

form

xtdl.scx

this.release

**

form的Click事件代码

do

form

xtdl.scx

this.release

有一点不明白，后两点中的触发事件要求是触发timer还是Keypress和click

请再计时器控件的Init事件输入如下代码：public n

n=100计时器控件的Timer事件输入代码：n=(n-1)

if n>0

thisform.pageframe1.page3.label1.caption=str(n)

else

thisform.pageframe1.page3.label1.caption="停止！"

endifthisform.refresh 第一个按钮“开始计时”控件的Click事件输入代码：thisform.pageframe1.page3.timer1.enabled=.T.第二个按钮“停止时间”控件的Click事件输入代码：thisform.pageframe1.page3.timer1.enabled=.F. 注意将Timer1计时器的属性中初始的Enabled属性设置为初始为.F.-假,其他什么字体颜色的相信你应该会设置的。 希望采纳 如果还有不懂请加我QQ!

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文件，执行它 就可以看到效果了。

*祝好。

---