请教unbindevent如何使用？

[xld2001]

form中定义一个自定义事件MyClick
MessageBox("我是改装的")



表单上有command1，Click的代码为 MessageBox("我是原装的")

表单上有command2，Click的代码为
=Bindevent(ThisForm.Command1,"Click",Thisform, "MyClick")

如果先运行command2，再运行command1，会显示两个，command1的代码没有替换掉，如果command1代码是空的可以


怎么使用unbindevent把原来的带码去掉？谢谢

[xld2001]

UNBINDEVENTS(oEventObject) 中oEventObject用Command1怎么写？谢谢

[十豆三]

试试 Bindevent() 的第5个参数

[xld2001]

=Bindevent(ThisForm.Command1,"Click",Thisform, "MyClick",0) 老师您说是这个意思吗？可是0到4，这样是一样显示的

[都市夜猫]

BindEvent 没办法阻止原 Click 事件代码的执行 这函数的主要用途，是为无法写事件代码（例如用 NewObject 或 CreateObject 动态创建）的控件添加事件处理代码。 你这个 Command1 可以直接写 Click 事件处理代码，BindEvent 就没啥用处了。如果一定要用，也只有假设 Command1 已经预知以后有可能要改变自己的 Click 行为，那直接判断就好了。 例如，Command1.Init 中给自己加一属性： This.AddProper('skipme', .f.) Command1.Click 就改为： If Not This.skipme MessageBox('我是原装的。') Endif 表单的 MyClick 也改成： Thisform.SetAll('skipme', .t., 'CommandButton') MessageBox('我是改装的。')