Question

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

Answer 1

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

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
………………………………