框控件与文本框控件的功能是相似的, 实际上你可以把它看作是可以展示多行数据、 数 据多时可以有滚动条的文本框,它的属性和事件也大多与文本框相似。在 vfp 基础教程-编 辑框控件(editbox)一文中已经给出了一个例子,今天我们用编辑框再来做一个趣味小实例: 摸奖机。程序运行界面如下:
这个例子并没有什么复杂的东西,主要是在命令按钮的 click 事件中对文本框输入的值进行 判断,根据所输入的选择值将其对应的奖品显示到编辑框中。 制作步骤如下: 一、新建表单,将其 caption 属性值设置为“编程入门网-制作一个摸奖机” ,AutoCenter 属 性值设置为.t.,width 和 height 属性值分别设置为 280 和 150,并将其保存为“摸奖机.scx” 。 二、添加控件并设置属性: 1.向表单上添加一个 label 控件 label1, 并将其 caption 属性值设置为 “请输入您的选择(1-4)” 。
3
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” 。 本文来自编程入门网:bianceng/Programming/vfp/200903/11294.htm
看实例学 VFP:用列表框控件做个“开始菜单” :用列表框控件做个“开始菜单” What is “开始菜单”?这应该是一句废话。因为只要是使用 Windows 系统的,都知道单击 了任务栏左侧的“开始”按钮就会出现这个菜单,并且可能每天都会使用这个菜单。 那么用 vfp 编写的软件能否不使用菜单,而是把
软件菜单的功能项都放到这样一种类似于 Windows 系统的“开始菜单”里呢?可以的,只要你喜欢。 今天我们用列表框控件做个简单的“开始菜单” ,运行时单击了表单的“开始”按钮后如下 图:
4
此时就可以执行这个“开始菜单”中的各个功能项了,比如单击了“显示背景”后表单变成 下面的这个样子:
另外在上个例子看实例学 VFP:Timer 控件实例-动画中标签是上下运动的,本例中的动画 是左右运动的。在
vfp 基础教程-
列表框控件(listbox)一文中已经给出了列表框控件的常用属 性和方法,本例不再重复这些内容了,只给出例子的制作过程和代码。 制作步骤: 一、新建表单,将其 width 和 height 属性值分别设置为 290 和 250,保存为“表单 1.scx” 。 二、向表单添加控件并设置属性: 1、在表单左下角添加一个命令按钮,将其 caption 属性值设置为“开始” 。 2、在命令按钮的上方添加一个列表框控件 List1,用鼠标拖动将它的宽度调成和命令按钮一 样宽,height 属性值设置为 85。
5
3、添加一个标签控件 label1,并将其 caption 属性值设为“编程入门网” ,forecolor 属性值设 为“255,0,0” ,AutoSize 属性值设为.t.,FontSize 属性值设为 12,FontBold 属性值设为.t.。 4、添加一个 timer 控件,interval 属性值采用默认的 0。 以上步骤完成后的表单
设计器如下图:
三、添加事件代码: 1、表单的 Activate 事件代码: this.list1.additem("显示动画") this.list1.additem("关闭动画") this.list1.additem("显示背景") this.list1.additem("去掉背景") this.list1.add