VFP,可以在一个项目里只有一个PRG文件,并且在运行这个PRG时创建表单和控件吗?

比如创建一个fm1表单,标题是"创建表单测试"
表单上再创建一个按钮,click代码是thisform.release

可以吗?

SET TALK OFF
CREATE FORM fm1 NOWAIT SAVE
DO FORM fm1
    fm1.caption="求一元二次方程"
    fm1.addobject('cmdExit','cmdMyCmndBtn1') 
    fm1.cmdExit.Visible=.t.    
READ events
DEFINE CLASS cmdMyCmndBtn1 as CommandButton
    caption="退出"
    
    PROCEDURE click
        thisform.release
ENDDEFINE

这样的  还是有问题存在

恩  看了"别人"的示例   受益匪浅

已经收藏了

按退出按钮,不能完全释放程序

...
...
...
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
ENDDEFINE
...
...
...

解决了程序点"退出"不能完全关闭的问题