求一个VFP表单实例

首先每个按钮的标签（caption值）都改成相应的字母，然后每个按钮的动作都这样写：

thisform.text1.value=thisform.text1.value+this.caption

1.首先，先建一个空表单

2.拖入一标签过来，caption值为：品牌：

3.再拖入一个list列表框，rowsource的值写为：奔驰,宝马,奥迪,比亚迪,（注意，词语之间的逗号一定是英文格式）

4.然后再拖入一个标签和一个text，标签的caption设为“显示”，拖入一个command，caption值为“退出”

5.在list1上双击，在click事件里写上下面代码

thisform.text1.value=this.list(this.listindex)

thisform.refresh

然后关闭（vfp自动保存代码）

在command1的click事件里写上：

thisform.release

关闭，运行，看效果。

。

点击“退出”则退出运行。

就教你做个登陆器

建：

点label按钮，建label1的caption为QQ登陆

label2的caption为密码

点combo按钮，建combo1

点text按钮，建立text1

点command按钮，建

command1的caption为登陆

command2的caption为退出

双击command1中输入代码:

docase

casethisform.text1.value="user"

.and.thisform.text2.value="123"

i=messatextgebox("欢迎光临",48)

thisform.release

otherwise

i=messagebox("错了",32)

thisform.release

endcase

双击command2中输入代码:thisform.release

点击运行！OK啦！

这可是我手写的呵，希望采纳！

---