看实例学VFP：用编辑框控件做个“摸奖机”

看实例学VFP：用编辑框控件做个“摸奖机”2009-03-18 www.bianceng.cn 老马编辑框控件与文本框控件的功能是相似的，实际上你可以把它看作是可以展示多行数据、数据多时可以有滚动条的文本框，它的属性和事件也大多与文本框相似。在一文中已经给出了一个例子，今天我们用编辑框再来做一个趣味小实例：摸奖机。程序运行界面如下：

这个例子并没有什么复杂的东西，主要是在命令按钮的click事件中对文本框输入的值进行判断，根据所输入的选择值将其对应的奖品显示到编辑框中。

制作步骤如下：

一、新建表单，将其caption属性值设置为“编程入门网-制作一个摸奖机”，AutoCenter属性值设置为.t.，width和height属性值分别设置为280和150，并将其保存为“摸奖机.scx”。

二、添加控件并设置属性：

1.向表单上添加一个label控件label1，并将其caption属性值设置为“请输入您的选择（1-4）”。

2.向表单上添加一个文本框控件Text1，将其InputMask属性值设置为9，value属性值设置为0。

3.向表单上添加一个命令按钮Command1，并将其caption属性值设置为“您获得的奖品是”。

4.向表单上添加一个编辑框控件Edit1。

三、按上图所示的程序运行界面，适当调整各控件的大小及在表单上的位置。

四、添加事件代码：

命令按钮command1的click事件代码：

do case case thisform.text1.value=1thisform.edit1.value="您的奖品是手机一部." case thisform.text1.value=2thisform.edit1.value="您的奖品是10000元." case thisform.text1.value=3thisform.edit1.value="您的奖品是学习机一部." case thisform.text1.value=4thisform.edit1.value="您的奖品是彩电一台." otherwisethisform.edit1.value="谢谢您的参与."endcase

五、运行“摸奖机.scx”。

本例代码在Win2003+VFP6.0环境下调试通过。