请教：通过程序向_screen添加command，添加成功，但click不执行。 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教：通过程序向_screen添加command，添加成功，但click不执行。

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1237 人关注过本帖

标题：请教：通过程序向_screen添加command，添加成功，但click不执行。

只看楼主加入收藏

cjc1010

等　级：论坛游侠
威　望：4
帖　子：65
专家分：195
注　册：2006-4-16
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：3

请教：通过程序向_screen添加command，添加成功，但click不执行。

请教各位：我在主程序里为VFP屏幕里增加一个按钮command1，添加了click事件，屏幕里能显示该按钮，但不能执行click，请问我的问题出在哪？谢谢。
_screen.addobject('command1','commandbutton')
with _
   .left=100
   .top=100
   .visible=.t.
   .caption='XX业务'
   .height=60
   .width=60
ENDWITH
DO FORM .\forms\登录
do .\forms\主菜单.mpr
READ EVENTS
DEFINE CLASS command1 as click
    PROCEDURE click
       do form .\forms\XX业务
    ENDPROC
ENDDEFINE

搜索更多相关主题的帖子: 添加　执行　过程　 forms　click　

2021-11-09 09:47

吹水佬

等　级：版主
威　望：451
帖　子：10588
专家分：43128
注　册：2014-5-20

第 2 楼

得分:20

_screen.addobject('command1','myCommand')
with _
   .left=100
   .top=100
   .visible=.t.
   .caption='XX业务'
   .height=60
   .width=60
ENDWITH

DEFINE CLASS myCommand as commandbutton
    PROCEDURE click
       MESSAGEBOX("do form .\forms\XX业务")
    ENDPROC
ENDDEFINE

2021-11-09 10:31