VBA 消息框-vba-大西北办公自动化教程

MsgBox 函数显示一个消息框并等待用户单击按钮，然后根据用户单击的按钮执行操作。

语法:

MsgBox(prompt[,buttons][,title][,helpfile,context])

参数说明

提示- 必需参数。在对话框中显示为消息的字符串。提示的最大长度约为 1024 个字符。如果消息超过一行，则可以在每行之间使用回车符 (Chr(13)) 或换行符 (Chr(10)) 分隔各行。
Buttons - 一个可选参数。一个数值表达式，它指定要显示的按钮类型、要使用的图标样式、默认按钮的标识以及消息框的模式。如果留空，则按钮的默认值为 0。
Title - 一个可选参数。显示在对话框标题栏中的字符串表达式。如果标题留空，则应用程序名称将放在标题栏中。
Helpfile - 一个可选参数。一个字符串表达式，它标识了用于为对话框提供上下文相关帮助的帮助文件。
上下文- 一个可选参数。一个数字表达式，用于标识帮助作者分配给相应帮助主题的帮助上下文编号。如果提供了上下文，则还必须提供帮助文件。

Buttons参数可以采用以下任何值

0 vbOKOnly - 仅显示 OK 按钮。
1 vbOKCancel - 显示确定和取消按钮。
2 vbAbortRetryIgnore - 显示中止、重试和忽略按钮。
3 vbYesNoCancel - 显示是、否和取消按钮。
4 vbYesNo - 显示是和否按钮。
5 vbRetryCancel - 显示重试和取消按钮。
16 vbCritical - 显示关键消息图标。
32 vbQuestion - 显示警告查询图标。
48 vbExclamation - 显示警告消息图标。
64 vbInformation - 显示信息消息图标。
0 vbDefaultButton1 - 第一个按钮是默认的。
256 vbDefaultButton2 - 第二个按钮是默认的。
512 vbDefaultButton3 - 第三个按钮是默认的。
768 vbDefaultButton4 - 第四个按钮是默认的。
0 vbApplicationModal 应用程序模式 - 当前应用程序将无法工作，直到用户响应消息框。
4096 vbSystemModal 系统模式 - 在用户响应消息框之前，所有应用程序都无法工作。

上述值在逻辑上分为四组：第一组（0 到 5）表示要在消息框中显示的按钮。第二组(16, 32, 48, 64) 描述要显示的图标的样式，第三组(0, 256, 512, 768) 表示哪个按钮必须是默认的，第四组(0, 4096) ) 确定消息框的形式。

返回值

MsgBox 函数可以返回以下值之一，该值可用于标识用户在消息框中单击的按钮。

1 - vbOK - 单击确定
2 - vbCancel - 取消被点击
3 - vbAbort - 中止被点击
4 - vbRetry - 重试被点击
5 - vbIgnore - 忽略被点击
6 - vbYes - 是被点击
7 - vbNo - 没有被点击

例子

Function MessageBox_Demo() 
   'Message Box with just prompt message 
   MsgBox("Welcome")     
   
   'Message Box with title, yes no and cancel Butttons  
   int a = MsgBox("Do you like blue color?",3,"Choose options") 
   ' Assume that you press No Button  
   msgbox ("The Value of a is " & a) 
End Function