如果你的vfp版本是9.0 你可以使用 bindevent() 函式把 timer 事件的程式碼 繫結到另一個方法上

form.init

thisform.addobject("timer2","timer")

thisform.timer2.Interval=2000

BINDEVENT(thisform.timer2,"timer",thisform,"tttt")

form.tttt

=MESSAGEBOX("時間到",0,"tips")

thisform.timer2.interval=0

如果 不是 9.0 就要先自定義一個類 把 timer程式碼寫在類裡面, 然後在form裡面加入自定義類物件

tttt.prg

DEFINE CLASS tttt as timer

interval=0

PROCEDURE timer

=MESSAGEBOX("你好")

endpro

ENDDEFINE

form.init

SET LIBRARY TO tttt addi &&載入自定義庫

thisform.addobject("timer2","tttt") &&建立物件

thisform.timer2.interval=5000 && 觸發事件