可以使用 MsgBox 函數來設置選擇項,具體的語法如下:
MsgBox(prompt, buttons, title)
其中,prompt 是要顯示的消息內容,buttons 是按鈕的樣式和功能,title 是對話框的標題。
常見的 buttons 參數取值為:
0:僅顯示 OK 按鈕。
1:顯示 OK 和取消按鈕。
2:顯示中止、重試和忽略按鈕。
3:顯示是、否和取消按鈕。
4:顯示是和否按鈕。
5:顯示重試和取消按鈕。
6:顯示幫助和 OK 按鈕。
示例代碼如下,其中顯示了是和否的選擇項:
result = MsgBox("是否繼續操作?", 4, "提示")
If result = 6 Then
' 用戶選擇了是
MsgBox "用戶選擇了是"
Else
' 用戶選擇了否或關閉對話框
MsgBox "用戶選擇了否"
End If
以上代碼會顯示一個提示對話框,提示用戶選擇是否繼續操作。如果用戶選擇了“是”,則會顯示“用戶選擇了是”的消息框;如果用戶選擇了“否”或者關閉了對話框,則會顯示“用戶選擇了否”的消息框。