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

看实例学VFP：选项按钮组控件2009-03-30 www.bianceng.cn 老马选项按钮组控件（OPtiongroup），也可以叫做“单选按钮组”，是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=1thisform.label3.caption="长方形的周长为："+str（a）thisform.label4.caption="" case this.value=2thisform.label4.caption="长方形的面积为："+str（b）thisform.label3.caption="" case this.value=3thisform.label3.caption="长方形的周长为："+str（a）thisform.label4.caption="长方形的面积为："+str（b） endcase

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

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

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