可以在运行时创建表单吗? - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 可以在运行时创建表单吗?

我的收件箱(0)

跟大牛学C++学算法数据结构

共有 726 人关注过本帖

标题：可以在运行时创建表单吗?

只看楼主加入收藏

不懂才问

来　自：大草原
等　级：贵宾
威　望：29
帖　子：1375
专家分：6290
注　册：2010-7-5
结帖率：92.78%

楼主

已结贴√ 问题点数：100 回复次数：8

可以在运行时创建表单吗?

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

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

可以吗?

搜索更多相关主题的帖子: 项目

2015-11-17 13:44

不懂才问

来　自：大草原
等　级：贵宾
威　望：29
帖　子：1375
专家分：6290
注　册：2010-7-5

第 2 楼

得分:0

程序代码：

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

这样的还是有问题存在

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

2015-11-17 14:03

tlliqi

等　级：贵宾
威　望：204
帖　子：15455
专家分：65956
注　册：2006-4-27

第 3 楼

得分:25

存在什么问题？

2015-11-17 14:07

TonyDeng

等　级：贵宾
威　望：304
帖　子：25793
专家分：48814
注　册：2011-6-22

第 4 楼

得分:25

你可以看看別人是怎麽做的：https://bbs.bccn.net/thread-362146-1-1.html

授人以渔，不授人以鱼。

2015-11-17 15:33

不懂才问

来　自：大草原
等　级：贵宾
威　望：29
帖　子：1375
专家分：6290
注　册：2010-7-5

第 5 楼

得分:0

回复 4楼 TonyDeng

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

已经收藏了

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

2015-11-17 15:40

不懂才问

来　自：大草原
等　级：贵宾
威　望：29
帖　子：1375
专家分：6290
注　册：2010-7-5

第 6 楼

得分:0

回复 3楼 tlliqi

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

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

2015-11-17 15:57

mywisdom88

等　级：版主
威　望：92
帖　子：2612
专家分：6474
注　册：2015-3-25

第 7 楼

得分:25

READ events
没这个
CLEAR EVENTS

2015-11-17 15:59

吹水佬

等　级：版主
威　望：184
帖　子：6476
专家分：28526
注　册：2014-5-20

第 8 楼

得分:25

最简单的示例

程序代码：

** Test.prg
of = CREATEOBJECT("fm1")
of.Show
READ EVENTS

DEFINE CLASS fm1 as Form
    WindowType = 1
    ShowWindow = 2
    Desktop = .T.
    AutoCenter = .T.
    Caption="求一元二次方程"

    ADD OBJECT cmdExit as cmdMyCmndBtn1 WITH top=10,left=10

    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn1 as CommandButton
    Visible = .T.
    caption = "退出"
    height = 25
    width = 50

    PROCEDURE Click
        thisform.Release
    ENDPROC
ENDDEFINE

2015-11-17 19:27

不懂才问

来　自：大草原
等　级：贵宾
威　望：29
帖　子：1375
专家分：6290
注　册：2010-7-5

第 9 楼

得分:0

回复 8楼吹水佬

程序代码：

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

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

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

2015-11-18 08:42