除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng),，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat1/285.html,，VBA交流群273624828。

今天我們來看VBA窗體中單選項(xiàng)和復(fù)選框的基本用法,。首先應(yīng)該知道的是單選按鈕和復(fù)選框一般都是和框架結(jié)合使用的,，因?yàn)樵谝粋€(gè)框架內(nèi)的按鈕是自成體系的，不會(huì)和其他框架內(nèi)的按鈕相互干擾,，即使你的窗體中只有一組選擇按鈕,，還是建議你使用框架。我們用下面這樣一個(gè)窗體來說明單選和復(fù)選框的用法,。

上面的窗體我插入了兩個(gè)框架,，其caption分別改為“性別”和“愛好”。按鈕的默認(rèn)名稱都是OptionButton1,，OptionButton2等等,，為了直觀我們將其名稱改為相應(yīng)的“男”、“女”等,，將Caption屬性也改成相應(yīng)的內(nèi)容?，F(xiàn)在我們的性別這個(gè)框架中就有兩個(gè)單選按鈕，名稱分別是“男”,、“女”,，其Caption也分別是“男”，“女”,。雙擊單選按鈕“男”,，輸入下面的代碼

Private Sub 男_Click()
MsgBox "你選擇了" & 男.Caption
End Sub

同樣雙擊單選按鈕“女”，輸入下面的代碼

Private Sub 女_Click()
MsgBox "你選擇了" & 女.Caption
End Sub

這時(shí)運(yùn)行窗體,，在性別中任選一個(gè),，就會(huì)顯示你選擇的是哪一個(gè)，也就達(dá)到了我們獲得結(jié)果的目的,。

下面來看復(fù)選框,。在框架“愛好”中我們放了三個(gè)復(fù)選框，其名稱和Caption也都按相應(yīng)的內(nèi)容來更改,。那下面的問題仍然是怎么得到我們選取的結(jié)果呢,？這里介紹兩種方法,，先來看第一種

Private Sub CommandButton1_Click()
Dim s
If 足球.Value = True Then
s = s & " " & 足球.Caption
End If
If 籃球.Value = True Then
s = s & " " & 籃球.Caption
End If
If 乒乓球.Value = True Then
s = s & " " & 乒乓球.Caption
End If
MsgBox s
End Sub

上面的代碼用到了復(fù)選框的value屬性，當(dāng)復(fù)選框被選中時(shí)其value為true,，否則為false,，所以我們對(duì)三個(gè)復(fù)選框的value值分別進(jìn)行判斷，為True的就將其Caption放到字符串s中,，也就達(dá)到了取結(jié)果的目的,。

當(dāng)然有的人會(huì)說這樣列表起來太麻煩，如果我的選項(xiàng)很多很多那不是要麻煩死了,，那我們來看第二種方法：

Private Sub CommandButton2_Click()
Dim ChBox, s
For Each ChBox In Frame2.Controls     '對(duì)Frame2中的所有控件進(jìn)行遍歷
If TypeName(ChBox) = "CheckBox" Then   '如果該控件是復(fù)選框
If ChBox.Value = True Then      '判斷復(fù)選框的value
s = s & " " & ChBox.Caption
End If
End If
Next
MsgBox s
End Sub

For Each ChBox In Frame2.Controls 很好理解,，就是對(duì)框架Frame2中的所有控件進(jìn)行遍歷，那怎么判斷該控件是不是一個(gè)復(fù)選框呢,？用TypeName(ChBox) = "CheckBox",，TypeName是取得控件的屬性，復(fù)選框就是“CheckBox”,，單選框就是“OptionButton”等等,，當(dāng)然這里Frame2中只有復(fù)選框，所以不加這個(gè)判斷也是可以的,。后面就是判斷該復(fù)選框的Value,，如果Value為True代表已選中，不再贅述,。
本節(jié)示例文件下載地址：http://pan.baidu.com/s/1pJG30fD,。