选项按钮组控件

选项按钮组控件（OPtiongroup），也可以叫做“单选按钮组”，是vfp的常用控件之一。本文对该控件的click事件进行编程的例子，运行界面如下图：

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

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

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

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

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

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

6、添加事件代码：

（1）选项按钮组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

（2）ming令按钮command1的click事件代码：thisform.release

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

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