選項按鈕被選中

Question

我在選項組4個選項按鈕，其中一個選擇按鈕，然後確定被點擊，但我得到的錯誤這裏是我的代碼：

Private Sub btnOk_Click() 

If opt1 = True Then 

MsgBox "Success" 

End if 

End Sub 

Answer 1

把你的選項按鈕進入選項組，然後寫你這樣的代碼：

Select Case Me.fTimePeriod 

    Case Is = 1: sTime = "Option 1 Selected" 
    Case Is = 2: sTime = "Option 2 Selected" 
    Case Is = Null: sTime = "Nothing Selected" 

End Select 

Msgbox sTime 

fTimePeriod是選項組的名稱。案例1是第一種選擇，案例2是第二種。添加更多的case語句以獲得更多選項。