[求助]如何用代码创建表单？ - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → [求助]如何用代码创建表单？

我的收件箱(0)

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

共有 1573 人关注过本帖

标题：[求助]如何用代码创建表单？

只看楼主加入收藏

zjdjh

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-12-22
结帖率：50%

楼主

问题点数：0 回复次数：7

[求助]如何用代码创建表单？

如题

搜索更多相关主题的帖子: 表单　代码　

2007-03-14 08:58

songyuyu

等　级：贵宾
威　望：47
帖　子：6090
专家分：25
注　册：2007-1-17

第 2 楼

得分:0

CREATE FORM

我喝水只喝纯净水，牛奶只喝纯牛奶，所以我很单纯……

2007-03-14 09:06

zjdjh

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-12-22

第 3 楼

得分:0

楼上的太简单了哦！
表单里面的控件怎么添加？按钮的动作怎么添加啊？

2007-03-14 14:26

songyuyu

等　级：贵宾
威　望：47
帖　子：6090
专家分：25
注　册：2007-1-17

第 4 楼

得分:0

也用命令添加按钮的动作?
不会

我喝水只喝纯净水，牛奶只喝纯牛奶，所以我很单纯……

2007-03-14 14:52

fown

等　级：贵宾
威　望：58
帖　子：1229
专家分：171
注　册：2005-5-26

第 5 楼

得分:0

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 150
Width = 352
Caption = "Form1"
Name = "form1"

ADD OBJECT text1 AS textbox WITH ;
Height = 22, ;
Left = 66, ;
Top = 36, ;
Width = 111, ;
AutoComplete = 1, ;
Name = "Text1"
ENDDEFINE
这是一个简单的代码,你自己看看吧

有人说VFP不行了，我想说，你连VFP十分之一的功能都不会用，你怎么知道VFP不行？本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解

2007-03-14 19:03

zjdjh

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-12-22

第 6 楼

得分:0

以下是引用fown在2007-3-14 19:03:56的发言：

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 150
Width = 352
Caption = "Form1"
Name = "form1"

ADD OBJECT text1 AS textbox WITH ;
Height = 22, ;
Left = 66, ;
Top = 36, ;
Width = 111, ;
AutoComplete = 1, ;
Name = "Text1"
ENDDEFINE
这是一个简单的代码,你自己看看吧

嗯！这个我已经知道了哦！
但是如果是按钮，怎么设计按钮的CLICK动作代码阿？

2007-03-14 19:20

fown

等　级：贵宾
威　望：58
帖　子：1229
专家分：171
注　册：2005-5-26

第 7 楼

得分:0

Procedure Init
是INIT事件的

2007-03-14 19:53

sdyswjlu

等　级：新手上路
帖　子：108
专家分：0
注　册：2010-9-10

第 8 楼

得分:0

以上的省略了，看5楼的代码
ADD OBJECT command1 AS commandbutton WITH ;
Height = 22, ;
Left = 66, ;
Top = 36, ;
Width = 111, ;
AutoComplete = 1, ;
caption="查询"
Procedure command1.click
****你的命令
endpro

2011-01-01 21:54

快速回复：[求助]如何用代码创建表单？