`MsgBox`函数是Visual Basic和VBScript中的一个函数,用于弹出一个对话框,等待用户单击按钮,并返回一个整数值表示用户单击了哪一个按钮。以下是`MsgBox`函数的详细用法:
基本语法
```vb
MsgBox(Prompt[, Buttons][, Title][, Helpfile, Context])
```
参数说明
Prompt(必需):字符串表达式,作为显示在消息框中的消息文本。其最大长度约为1024个字符。
Buttons(可选):数值表达式的值之和,指定显示的按钮的数目及形式、使用的图标样式、缺省按钮及消息框的强制回应等。若省略,则其缺省值为0。
Title(可选):字符串表达式,表示在消息框的标题栏中所显示的文本。若省略,则将应用程序名放在标题栏中。
Helpfile(可选):字符串表达式,提供帮助文件。若有`Helpfile`,则必须有`Context`。
Context(可选):数值表达式,提供帮助主题。若有`Context`,则必须有`Helpfile`。
返回值
`MsgBox`函数返回一个整数,表示用户单击的按钮。常见的返回值包括:
`vbOK`:确定按钮被单击。
`vbCancel`:取消按钮被单击。
`vbAbort`:终止按钮被单击。
`vbRetry`:重试按钮被单击。
`vbIgnore`:忽略按钮被单击。
`vbYes`:是按钮被单击。
`vbNo`:否按钮被单击。
按钮常量
`vbOKOnly`:只显示确定按钮。
`vbOKCancel`:显示确定和取消按钮。
`vbAbortRetryIgnore`:显示放弃、重试和忽略按钮。
`vbYesNoCancel`:显示是、否和取消按钮。
示例
显示一个带有“是”和“否”按钮的消息框,并根据用户选择执行相应操作:
```vb
Dim Response As Integer
Response = MsgBox("程序发生错误,继续?", vbYesNo + vbCritical + vbDefaultButton2, "错误信息", "Demo.hlp", 1000)
If Response = vbYes Then
' 用户按下“是”按钮,执行某些操作
Else
' 用户按下“否”按钮,执行某些操作
End If
```
在Excel VBA中的使用
打开Excel工作表。
按下`Alt + F11`进入VBA编辑模式。
插入一个新模块并命名为`msg`。
在模块内定义变量并调用`MsgBox`函数,例如:
```vb
Dim intReturn As Integer
intReturn = MsgBox("退出程序吗?", vbYesNo + vbQuestion, "提示")
If intReturn = vbYes Then
' 取消操作
End If
```
通过以上信息,你可以灵活地使用`MsgBox`函数来创建和显示消息框,并根据用户的选择执行相应的操作。