選項按鈕組控件（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環境下調試通過。