请教在表单运行时如何添加命令按钮控件，并使命令按钮的事件生效。

主题：请教在表单运行时如何添加命令按钮控件，并使命令按钮的事件生效。

qbqb_2003 [专家分：0] 发布于 2009-05-04 20:47:00

请教在表单运行时如何添加命令按钮控件，并使命令按钮的事件生效。
我在表单FORM1的Init中编写了
thisForm.AddObject('and1','commandbutton')
thisForm.and1.caption="AAAA"
thisForm.and1.height=20
thisForm.and1.width=60
thisForm.and1.top=228
thisForm.and1.left=132
thisForm.and1.Visible = .T.
后and1的事件过程不知如何编写
比如要在Click的事件编写：x=messagebox(' ？？ ' ,0+16+0, '对话窗口')
请教各位，各位是如何处理的？

本帖地址： http://bbs.pfan.cn/post/299951.html

回复列表（共5个回复）

沙发

fyyylyl [专家分：8550] 发布于 2009-05-05 06:36:00

使用BINDEVENT()

板凳

jinlonggao [专家分：17130] 发布于 2009-05-05 10:21:00

自定义命令按钮类，在其click事件中加入自己的代码。然后把
thisForm.AddObject('and1','commandbutton')
中的类名换成你自己的。
按照1楼的办法也行。

BINDEVENT(thisform.and1,"click",thisform,"click")

这样就可以在单击thisform.and1按钮时运行表单的click事件，当然表单的click事件的代码要你自己事先写入。

3 楼

qbqb_2003 [专家分：0] 发布于 2009-05-05 12:50:00

BINDEVENT()函数是VFP6中的吗?

4 楼

cbl518 [专家分：57140] 发布于 2009-05-05 13:41:00

编写类，
使用类，就可以象vfp基类，一样随便调用了。

5 楼

qbqb_2003 [专家分：0] 发布于 2009-05-05 16:36:00

2楼先生：谢谢
我用的是VFP6，BINDEVENT（）VDP6中没有。
自定义命令按钮类，我试了。
我将myand自定义命令按钮存某个目录中
查看类中也显示了，在click事件中加入自己的代码。
然后在我在表单FORM1的Init中编写了
thisForm.AddObject('and1','myand')
thisForm.and1.caption="'对话窗口"
thisForm.and1.height=20
thisForm.and1.width=60
thisForm.and1.top=228
thisForm.and1.left=132
thisForm.and1.Visible = .T.
运行form1后显示“找不到myand类定义。不知如何处理，有烦先生详细赐教。谢谢

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教在表单运行时如何添加命令按钮控件，并使命令按钮的事件生效。

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教在表单运行时如何添加命令按钮控件，并使命令按钮的事件生效。

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）