可以使用 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
以上代码会显示一个提示对话框,提示用户选择是否继续操作。如果用户选择了“是”,则会显示“用户选择了是”的消息框;如果用户选择了“否”或者关闭了对话框,则会显示“用户选择了否”的消息框。