vfp表单设计中如何用代码编写对象的事件程序？

如果你的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 &&触发事件

this指的是控件本身，也就是你在哪个控件里编程，这只的就是谁。

parent指的是包含该控件的那个容器，

在VFP中对表单中控件引用一般有两种方式，一种是绝对引用就是从表单出发，然后一级一级的，如thisform.text1.value；另一种是相对引用，如在表单中有一个命令按钮一个文本框，在命令按钮的代码中使用this指的就是命令按钮本身，如this.caption指的就是按钮的标题，如果是this.parent.caption指的就是包含这个按钮的表单的标题，this.parent.text1.value指的就是包含这个按钮的表单中的文本框的值。

---