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

看实例学VFP:选项按钮组控件

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

选项按钮组控件(OPtiongroup),也可以叫做“单选按钮组”,是vfp的常用控件之一。在vfp基础教程-单选按钮组一文中已经给出了该控件的常用属性和方法,并且给出了一个将该控件的controlsource属性与表中某一字段绑定的例子。本文来补充一个对该控件的click事件进行编程的例子,运行界面如下图:

在上图中可以根据用户的选择计算长方形的周长或面积。制作步骤如下:

一、新建表单,将其caption属性值设为“编程入门网-计算长方形周长及面积”,AutoCenter属性值设为.t.,height属性值设为235,width属性值设为280,保存为“计算长方形周长及面积.scx”。

二、向表单添加两个label控件:label1和label2,将它们的caption属性值依次设置为“请输入长:”和“请输入宽:”,AutoSize属性值均设为.t.,BackStyle属性值均设为“0-透明”。

三、在label控件的右侧添加两个文本框控件Text1和Text2,把它们的位置依次与label1和label2对应起来。

四、在label控件及文本框控件的下方添加一个选项按钮组控件Optiongroup1,首先将它的AutoSize属性值设置为.t.,ButtonCount属性值设置为3;然后右击选项按钮组控件选“编辑”命令,在它的编辑状态下拖动其中的三个选项按钮成水平排列,并依次选中三个选项按钮,将它们的caption属性值依次设置为“周长”、“面积”和“周长及面积”,如下图:

五、在选项按钮组控件的下方添加两个label控件:label3和label4,将它们的visible属性值设置为.f.;在label控件的右侧添加一个命令按钮控件command1,将它的caption属性值设置为“退出”。适当调整各控件的大小和在表单上的位置,表单设计器如下图所示:

六、添加事件代码:

(一)选项按钮组Optiongroup1的click事件代码:

thisform.label3.visible=.t.
thisform.label4.visible=.t.
a=2*(val(thisform.text1.value)+val(thisform.text2.value))
b=val(thisform.text1.value)*val(thisform.text2.value)
do case
   case this.value=1
        thisform.label3.caption="长方形的周长为:"+str(a)
        thisform.label4.caption=""
   case this.value=2
        thisform.label4.caption="长方形的面积为:"+str(b)
        thisform.label3.caption=""
   case this.value=3
        thisform.label3.caption="长方形的周长为:"+str(a)
        thisform.label4.caption="长方形的面积为:"+str(b) 
endcase

(二)命令按钮command1的click事件代码:thisform.release

七、运行“计算长方形周长及面积.scx”。

本例比较简单,代码在Win2003+VFP6.0环境下调试通过。

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