当前位置: 首页 > 编程语言 > vfp > 正文

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

时间:2009-03-18 www.bianceng.cn 老马

编辑框控件与文本框控件的功能是相似的,实际上你可以把它看作是可以展示多行数据、数据多时可以有滚动条的文本框,它的属性和事件也大多与文本框相似。在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环境下调试通过。

查看全套“菜鸟也学VFP”教程