Question

使用vb语言，如何设置MsgBox函数的默认按钮？

出现Msgbox函数的消息框后可不可以设置默认的命令按钮?给代码或常量都行。

Answer 1

你输入MsgBox会在黄色框中有以下提示：(prompt[, buttons][, title][, helpfile, context])
其中buttons函数buttons 参数可以有以下值：

常数 值 描述
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。

第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。
明白了？

Answer 2

可以。
vbDefaultButton1 0 第一个按钮为默认值
vbDefaultButton2 256 第二个按钮为默认值
vbDefaultButton3 512 第三个按钮为默认值
vbDefaultButton4 768 第四个按钮为默认值
例如：
MsgBox "真的要退出吗？",vbYesNo + vbDefaultButton2 '默认为No
MsgBox "文件已存在，还要拷贝吗？",vbAbortRetryIgnore + vbDefaultButton2 '默认为Retry
MsgBox "还有文件没保存，是否保存？",vbYesNoCancel + vbDefaultButton3 '默认为Cancel
MsgBox "出现错误。代码1347850041",vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton '默认为Help
………………………………

Answer 3

Private Sub Command1_Click()
MsgBox "第一个按钮是默认的。", vbYesNoCancel Or vbDefaultButton1
MsgBox "第二个按钮是默认的。", vbYesNoCancel Or vbDefaultButton2
MsgBox "第三个按钮是默认的。", vbYesNoCancel Or vbDefaultButton3
End Sub