鍦╒B涓紝OptionButton鏄竴绉嶅彲渚涚敤鎴烽€夋嫨鐨勬帶浠讹紝閫氬父鐢ㄤ簬鍒涘缓鍗曢€夋寜閽粍銆備互涓嬫槸浣跨敤OptionButton鐨勬楠わ細

1. 鎵撳紑VB涓殑绐椾綋璁捐鍣紝灏哋ptionButton鎺т欢鎷栨斁鍒扮獥浣撲腑銆?/li>
2. 鍦ㄧ獥浣撲笂鏀剧疆澶氫釜OptionButton鎺т欢锛屾瘡涓帶浠朵唬琛ㄤ竴涓€夐」銆?/li>
3. 璁剧疆姣忎釜OptionButton鎺т欢鐨勫睘鎬э紝濡侼ame锛堝悕绉帮級銆丆aption锛堟枃鏈級銆乂alue锛堝€硷級绛夈€傝繖浜涘睘鎬у彲閫氳繃灞炴€х獥鏍艰繘琛岃缃€?/li>
4. 鍒涘缓涓€涓簨浠跺鐞嗙▼搴忥紝浠ヤ究鍦ㄧ敤鎴烽€夋嫨閫夐」鏃舵墽琛岀浉搴旂殑鎿嶄綔銆備緥濡傦紝鍙互浣跨敤OptionButton鐨凜lick浜嬩欢澶勭悊绋嬪簭鏉ュ鐞嗙敤鎴峰崟鍑婚€夐」鐨勬儏鍐点€?/li>
5. 鍦ㄤ簨浠跺鐞嗙▼搴忎腑锛屼娇鐢ㄦ潯浠惰鍙ワ紙濡侷f璇彞锛夋潵鍒ゆ柇鍝釜閫夐」琚€変腑锛岀劧鍚庢墽琛岀浉搴旂殑鎿嶄綔銆?/li>

涓嬮潰鏄竴涓畝鍗曠殑绀轰緥浠ｇ爜锛屾紨绀轰簡濡備綍鍒涘缓鍜屼娇鐢∣ptionButton鎺т欢锛?/p>

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        MsgBox "Option 1琚€変腑"
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then
        MsgBox "Option 2琚€変腑"
    End If
End Sub

Private Sub OptionButton3_Click()
    If OptionButton3.Value = True Then
        MsgBox "Option 3琚€変腑"
    End If
End Sub

鍦ㄤ笂杩扮ず渚嬩腑锛屾垜浠垱寤轰簡涓変釜OptionButton鎺т欢锛屽垎鍒懡鍚嶄负OptionButton1銆丱ptionButton2鍜孫ptionButton3銆傛瘡涓帶浠剁殑Click浜嬩欢澶勭悊绋嬪簭涓紝浣跨敤鏉′欢璇彞鍒ゆ柇閫夐」鐨勫€硷紝鐒跺悗鏄剧ず鐩稿簲鐨勬秷鎭銆?/p>

甯屾湜瀵逛綘鏈夋墍甯姪锛?/p>