吹水佬师傅，您的程序是定义一个表单类，而我是在已经生成的实体表单上添加对象

为了说明问题，我上传个文件 点击表单的按钮，没有任何反应

我把类定义在PRG里面，然后用表单里面的按钮，调用PRG程序，却没有任何反应，（帖子已经结了，但感觉问题还没有弄透，所以恳请师傅们能给与帮助）

[此贴子已经被作者于2016-3-12 19:30编辑过]

参考 SET PROCEDURE 命令。
ADD OBJECT 前先用 SET PROCEDURE TO 这个PRG

程序1.prg
thisform.AddObject("text1", "_text") 这句可以不要
DEFINE CLASS _text as text   没有见到自定义的 text 类，应该是想引用VFP的 TextBox 类吧？
    width=70
    top = 10
    left=10
    visible = .t.
   
    PROCEDURE click
       =MESSAGEBOX("你好")
    endpro
ENDDEFINE
改为：
DEFINE CLASS _text as textbox
    width=70
    top = 10
    left=10
    visible = .t.
   
    PROCEDURE click
       =MESSAGEBOX("你好")
    endpro
ENDDEFINE

command1的click事件：
SET PROCEDURE TO E:\测试\程序1
改为：
SET PROCEDURE TO E:\测试\程序1
thisform.AddObject("text1", "_text")

太感谢了，我现在在外面，不能测试，但吹水佬的解答让我茅室顿开

我试了下，好像不行啊，点击按钮，显示“找不到TEXT类定义”

挤牙膏就是这样的了,一开始不说清楚意图和需求,到后来听的人多,改来改去,总是弄不到位.基础问题.

你结的方案都不这个,说明当时就没弄出来,又说会了.走了回头路,回去静态设计了,自己不知道而已,直接在设计器上拖一个空间,也是这般,前面已经提示过这种办法的.

[此贴子已经被作者于2016-3-12 21:52编辑过]

TonyDeng师傅，您说的BINDEVENT我是会用的，我在试用另外的方法，增加一个表格，直接在设计器拖一个是可以，但是我的表格有25个列，而且很多列的TEXT都有事件发生，逐个在每个列的TEXT添加事件代码，时间长了，我也记不清表格里面的哪些控件有代码，程序的可读性很差。用BINDEVENT就要在表单里面添加很多方法程序，然后绑定，这也可以，但是方法多了也看了花眼，如果直接用DEFINE CLASS，所有的事件在一起，可读性好，修改也方便

[此贴子已经被作者于2016-3-12 22:23编辑过]

我给你两个方案，你选第二种，后来改第一种，当时就没选好。至于你说的问题，是编程没编好，不是方法本身不适用。用哪种方法都是可以实现的，差别不大。