選項按鈕組控件(OPtiongroup),也可以叫做“單選按鈕組”,是vfp的常用控件之一。本文對該控件的click事件進行編程的例子,運行界面如下圖:

在上圖中可以根據(jù)用戶的選擇計算長方形的周長或面積。制作步驟如下:
1、新建表單,將其caption屬性值設(shè)為“編程入門網(wǎng)-計算長方形周長及面積”,AutoCenter屬性值設(shè)為.t.,height屬性值設(shè)為235,width屬性值設(shè)為280,保存為“計算長方形周長及面積.scx”。
2、向表單添加兩個label控件:label1和label2,將它們的caption屬性值依次設(shè)置為“請輸入長:”和“請輸入寬:”,AutoSize屬性值均設(shè)為.t.,BackStyle屬性值均設(shè)為“0-透明”。
3、在label控件的右側(cè)添加兩個文本框控件Text1和Text2,把它們的位置依次與label1和label2對應(yīng)起來。
4、在label控件及文本框控件的下方添加一個選項按鈕組控件Optiongroup1,首先將它的AutoSize屬性值設(shè)置為.t.,ButtonCount屬性值設(shè)置為3;然后右擊選項按鈕組控件選“編輯”ming令,在它的編輯狀態(tài)下拖動其中的三個選項按鈕成水平排列,并依次選中三個選項按鈕,將它們的caption屬性值依次設(shè)置為“周長”、“面積”和“周長及面積”,如下圖:

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

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環(huán)境下調(diào)試通過。
新聞熱點
疑難解答