VB中添加一个警报 MsgBox

Question

如题所述

Answer 1

MsgBox是Visual Basic和VBS中的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。
"MsgBox"即为"Message Box"的缩写，在英语中意为"信箱"。

基本信息 中文名称 msgbox
外文名称 msgbox
英语中意 信箱 全 称 Message Box

目录 1使用方法 2代码示例

折叠编辑本段使用方法
折叠语法
MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])MsgBox函数效果
折叠参数 MsgBox函数参数 部分 描述

Prompt

必选。字符串表达式，显示在对话框中的消息。Prompt的最大长度大约为1024个字符，由所用字符的字节大小决定。如果Prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13) & Chr(10)，即vbCrLf)将各行分隔开来。

Buttons

可选。数值表达式，是一些数值的总和，指定所显示的按钮的数目及形式、使用的图标样式(及声音)，缺省按钮以及消息框的强制性等。如果省略，则其缺省值为0。具体数值见"参数设置值"表格。

Title

可选。字符串表达式，在对话框标题栏中显示的内容。如果省略Title，则将应用程序标题(App.Title)放在标题栏中。

Helpfile

可选。字符串表达式，用来向对话框提供上下文相关帮助的帮助文件。如果提供了Helpfile，则也必须提供Context。

Context

可选。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context，则也必须提供Helpfile。

折叠参数设置值
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

系统强制返回;全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。

对话框特殊设置

vbMsgBoxHelpButton

16384

将帮助按钮添加到消息框。

vbMsgBoxSetForeground

65536

指定消息框窗口作为前景窗口。

vbMsgBoxRight

524288

文本为右对齐。

vbMsgBoxRtlReading

1048576

指定文本应为在希伯来和阿拉伯语系统中的从右到左显示。

展开
这些常数都是Visual Basic for Applications(VBA)指定的。所以，可以在程序代码中使用这些常数名称，而不使用实际数值。
折叠返回值
MsgBox函数返回值

常数

值

描述

vbOK

1

单击了"确定"按钮。

vbCancel

2

单击了"取消"按钮。

vbAbort

3

单击了"终止"按钮。

vbRetry

4

单击了"重试"按钮。

vbIgnore

5

单击了"忽略"按钮。

vbYes

6

单击了"是"按钮。

vbNo

7

单击了"否"按钮。

折叠说明
在提供了Helpfile与Context参数的时候，用户可以按F1来查看由Context参数指定的帮助主题。像Microsoft Excel这样的一些主机应用程序就会在对话框中自动添加一个帮助按钮。
如果对话框显示"取消"按钮，则按下Esc键与单击"取消"按钮的效果相同。如果对话框中有帮助按钮，则对话框中提供与上下文相关的帮助。但是，直到其它按钮中有一个被单击之前，都不会返回任何值。
折叠编辑本段代码示例
一、使用MsgBox函数，在具有"是"及"否"按钮的对话框中显示一条错误信息。示例中的缺省按钮为"否"，并假设Demo.hlp为一帮助文件，其中有一个帮助主题编号为1000。
二、使用vbCrLf常数在消息内容中换行。
三、使用vbTab常数显示多行对齐的文本。