選項(xiàng)按鈕組控件時(shí)間:2009-03-30 www. 老馬
選項(xiàng)按鈕組控件（OPtiongroup），也可以叫做“單選按鈕組”，是vfp的常用控件之一。在vfp基礎(chǔ)教程-單選按鈕組一文中已經(jīng)給出了該控件的常用屬性和方法，并且給出了一個(gè)將該控件的controlsource屬性與表中某一字段綁定的例子。本文來補(bǔ)充一個(gè)對(duì)該控件的click事件進(jìn)行編程的例子，運(yùn)行界面如下圖：

在上圖中可以根據(jù)用戶的選擇計(jì)算長方形的周長或面積。制作步驟如下：

一、新建表單，將其caption屬性值設(shè)為“編程入門網(wǎng)-計(jì)算長方形周長及面積”，AutoCenter屬性值設(shè)為.t.，height屬性值設(shè)為235，width屬性值設(shè)為280，保存為“計(jì)算長方形周長及面積.scx”。

二、向表單添加兩個(gè)label控件：label1和label2，將它們的caption屬性值依次設(shè)置為“請(qǐng)輸入長：”和“請(qǐng)輸入寬：”，AutoSize屬性值均設(shè)為.t.，BackStyle屬性值均設(shè)為“0-透明”。

三、在label控件的右側(cè)添加兩個(gè)文本框控件Text1和Text2，把它們的位置依次與label1和label2對(duì)應(yīng)起來。

四、在label控件及文本框控件的下方添加一個(gè)選項(xiàng)按鈕組控件Optiongroup1，首先將它的AutoSize屬性值設(shè)置為.t.，ButtonCount屬性值設(shè)置為3；然后右擊選項(xiàng)按鈕組控件選“編輯”命令，在它的編輯狀態(tài)下拖動(dòng)其中的三個(gè)選項(xiàng)按鈕成水平排列，并依次選中三個(gè)選項(xiàng)按鈕，將它們的caption屬性值依次設(shè)置為“周長”、“面積”和“周長及面積”，如下圖：

五、在選項(xiàng)按鈕組控件的下方添加兩個(gè)label控件：label3和label4，將它們的visible屬性值設(shè)置為.f.；在label控件的右側(cè)添加一個(gè)命令按鈕控件command1，將它的caption屬性值設(shè)置為“退出”。適當(dāng)調(diào)整各控件的大小和在表單上的位置，表單設(shè)計(jì)器如下圖所示：

六、添加事件代碼：

（一）選項(xiàng)按鈕組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

七、運(yùn)行“計(jì)算長方形周長及面積.scx”。

本例比較簡單，代碼在Win2003+VFP6.0環(huán)境下調(diào)試通過。

本文來自編程入門網(wǎng)：http://www./Programming/vfp/200903/11298.htm