关于BINDEVENT()

KAMCHIHAU 2010-12-26 03:12:34

听说这个功能是在VFP6打下的版本才有的,那么在之前的版本,
我门怎样为一个动态创建的按扭添加事件呢,比如这样

THISFORM.ADDOBJECT("BT","COMMANDBUTTON")
THISFORM.BT.CAPTION="TEST BT"
THISFORM.BT.VISIBLE=.T.

我起初以为是

THISFORM.BT.CLICK()=THISFROM.HANSHU()
//假定我在THISFORM中已添加了一个方法.

但原来不是我估计的.

...全文

361 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

OooOooOooOooO 2011-01-03

打赏
举报

现在很少有人这样写prg了吧,写得很累.直接在class写代码简单多了.

十豆三 2010-12-27

打赏
举报

如果可以的话，还是用 VFP9.0 吧，可以省去很多事的。

-晴天 2010-12-26

打赏
举报

有本书名叫<visual foxpro 6.0 实用管理系统开发实例剖析>高国宏编的,专门讲如何用语句创建对象,上面的应用,基本上都是直接用语句创建的对象,牛得很,楼主如果对语句创建对象感兴趣,不妨找找看.

KAMCHIHAU 2010-12-26

打赏
举报

刚刚找到答案了,虽然有点别扭,也说一下

set procedure to pis3
THISFORM.ADDOBJECT('newbt2','newbt')
THISFORM.newbt2.CAPTION='newbt'
THISFORM.newbt2.TOP=100
THISFORM.newbt2.LEFT=100
THISFORM.newbt2.HEIGHT=25
thisform.newbt2.visible=.t.

在pis3.prg文件中

DEFINE CLASS newbt AS CommandButton
PROCEDURE Click
= MESSAGEBOX('MyForm has been clicked!')
ENDPROC

ENDDEFINE

在vfp下，使用BindEvent命令勾住usb设备的代码实例。

vfp 动态添加的控件如何指定事件处理器

专为VFP编的API教程 Windows API 在 VFP 中的应用示例

VFP 所缺少的在其它开发环境中的一个功能是捕捉 ...VFP 9 扩展了 BindEvent()函数的功能，现在，当 Windows 传递某些特定的消息给 VFP 窗口的时候，BindEvent()可以调用我们自己的代码。这个功能有着很广泛的用途。

JavaScript实现烟花特效(面向对象) 　本文实例为大家分享了JavaScript实现烟花特效的具体代码，供大家...　OOD　class FireWork{　constructor(){　}　bindEvent(){　let _this = this;　ele.onclick = function(){　