选项按钮组控件(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”教程
以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索控件
, 按钮
, 属性
, label
, 按钮组
, 周长面积计算器
, 周长
, 面积
, 选项值
按钮值
,以便于您获取更多的相关知识。