-
编辑框控件与文本框控件的功能是相似的，实际上你可以把它看作是可以展示多行数据、数据多时可以有滚动条的文本框，它的属性和事件也大多与文本框相似。在vfp基础教程-编辑框控件(editbox)一文中已经给出了一个例子，今天我们用编辑框再来做一个趣味小实例：摸奖机。程序运行界面如下：
这个例子并没有什么复杂的东西，主要是在命令按钮的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=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
五、运行“摸奖机.scx”。
本例代码在Win2003+VFP6.0环境下调试通过。
