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

时间:2021-05-02

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

这个例子并没有什么复杂的东西,主要是在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 casecase 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

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

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

本文源自:翔宇亭——IT乐园(http://),转载请保留此信息!

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章