MsgBox
在模式对话框中显示消息,带有选定的按钮集,等待用户点击按钮,并返回一个VbMsgBoxResult值标识该按钮。
语法:MsgBox( prompt [ , buttons ] [ , title ] [ , helpfile , context ] )
- prompt
- 必需 字符串表达式,在对话框中显示为消息。prompt的最大长度约为1024个字符,取决于所使用字符的宽度。要将prompt分为多行,请用回车符(
Chr(13))、换行符(Chr(10))或CR-LF组合(vbCrLf)分隔各行。 - buttons
- 可选 VbMsgBoxStyle值,指定要显示的按钮数量和类型、图标样式、默认按钮标识和消息框的模态性。如果省略,buttons默认为
vbOKOnly。 - title
- 可选 字符串表达式,显示在对话框的标题栏中。如果省略,则使用应用程序名称。
- helpfile
- 可选 字符串表达式,标识用于为对话框提供上下文相关帮助的帮助文件。如果提供了helpfile,则还必须提供context。
- context
- 可选 数值表达式,给出分配给相关帮助主题的帮助上下文编号。如果提供了context,则还必须提供helpfile。
buttons参数是VbMsgBoxStyle枚举值的组合:一个按钮组值(vbOKOnly、vbOKCancel、vbAbortRetryIgnore、vbYesNoCancel、vbYesNo、vbRetryCancel、vbCancelTryAgainContinue),可选结合一个图标值(vbCritical、vbQuestion、vbExclamation、vbInformation),一个默认按钮值(vbDefaultButton1到vbDefaultButton4),一个模态性值(vbApplicationModal、vbSystemModal),以及任何选项标志(vbMsgBoxHelpButton、vbMsgBoxSetForeground、vbMsgBoxRight、vbMsgBoxRtlReading)。使用Or或加法组合值。
返回值是VbMsgBoxResult枚举中的常量之一,标识用户点击的按钮。
如果对话框显示Cancel按钮,按ESC键与点击Cancel效果相同。同时提供helpfile和context时,用户可以按F1查看相关帮助主题;如果对话框还包含Help按钮,点击它会调用上下文相关帮助。对话框保持打开状态,MsgBox在点击非Help按钮之一之前不会返回。
INFO
要按名称传递任何参数(第一个除外),请在表达式上下文中使用MsgBox——例如,将其结果赋给变量。要跳过位置参数,请包含相应的逗号分隔符。
示例
本示例在带有Yes和No按钮的对话框中显示严重错误消息;No按钮为默认按钮。MsgBox返回的值取决于用户点击的按钮。
Dim Style As VbMsgBoxStyle
Dim Response As VbMsgBoxResult
Style = vbYesNo Or vbCritical Or vbDefaultButton2
Response = MsgBox("Do you want to continue?", Style, "MsgBox Demonstration")
If Response = vbYes Then
' User chose Yes — perform the action.
Else
' User chose No — back out.
End If