使用VF编辑框控件做个“摸奖机”

编辑框控件与文本框控件的功能是相似的，实际上你可以把它看作是可以展示多行数据、数据多时可以有滚动条的文本框，它的属性和事件也大多与文本框相似。这里用编辑框来做摸奖机的例子。如下图：

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

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

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

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

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

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

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

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

4、添加事件代码：

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

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

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

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