注释
单引号或 REM 开头
丸子：多行注释咋办？
消息框（MsgBox）
函数功能：显示一个消息框，并等待用户点击一个按钮，然后根据用户点击的按钮执行相关的操作。
函数用法：MsgBox(prompt[,buttons][,title][,helpfile,context])
参数
参数 | 类型 | 选项 | 说明 | 默认值 |
prompt | 字符串 | 必填 | 在对话框中显示为消息的字符串。提示的最大长度大约为 如果消息扩展为多行，则可以使用每行之间的回车符( | |
buttons | 数字 | 选填 | 指定要显示的按钮的类型，要使用的图标样式，默认按钮的标识以及消息框的形式。 | 0 |
title | 字符串 | 选填 | 显示在对话框的标题栏中的字符串表达式。 | 如果标题留空，应用程序名称将被放置在标题栏中。 |
helpfile | 字符串 | 选填 | 标识用于为对话框提供上下文相关帮助的帮助文件。 | |
Context | 数字 | 选填 | 用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。 如果提供上下文，则还必须提供helpfile。 | |
Buttons 参数
组 | 组说明 | 参数 | 参数名称 | 说明 |
第一组 | 指示要在消息框中显示的按钮 | 0 | vbOKOnly | 仅显示“确定” 按钮 |
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 | 应用程序模式 - 当前的应用程序将不会工作，直到用户响应消息框。 |
4056 | vbSystemModal | 系统模式 - 所有的应用程序将不会工作，直到用户响应消息框。 |
返回值
返回值 | 返回值名称 | 说明 |
1 | vbOK | 确定 按钮被点击 |
2 | vbCancel | 取消 按钮被点击 |
3 | vbAbort | 中止 按钮被点击 |
4 | vbRetry | 重试 按钮被点击 |
5 | vbIgnore | 忽略 按钮被点击 |
6 | vbYes | 是 按钮被点击 |
7 | vbNo | 否 按钮被点击 |
示例
1 Function MessageBoxDemo()
2 'Message Box with just prompt message '
3 MsgBox("欢迎您~")
4
5 'Message Box with title, yes no and cancel Butttons '
6 result = MsgBox("你喜欢蓝色吗?", 3, "选择一个选项")
7
8 ' Assume that you press No Button '
9 MsgBox ("返回 result 的值是：" &result)
10 End Function
