vfp表单设计中如何用代码编写对象的事件程序？
如果在程序运行过程中使用了代码thisform.addobject('timer1','timer')那么创建的timer1对象的timer事件程序该如何编写，因为是程序...
如果在程序运行过程中使用了代码thisform.addobject('timer1','timer') 那么创建的timer1对象的timer事件程序该如何编写，因为是程序运行中创建的对象所以也不可能回到表单设计器中编写？怎么办？求教！
展开
2个回答
展开全部
如果你的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 && 触发事件
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
