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

你输入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) 则决定消息框的样式。

你好！

Private

Sub

Form_KeyDown(KeyCode

As

Integer,

Shift

As

Integer)

MsgBox

(KeyCode)

End

Sub

Private

Sub

Form_Load()

Form1.KeyPreview

=

True

End

Sub

这代码可以实现你的功能，任何时候按键都有效果。

仅代表个人观点，不喜勿喷，谢谢。

---