爱华网Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesButton1.Click MsgBox("最简单的信息框！") '标题默认为程序集名称，提示信息为“最简单的信息框！”，只显示“确定”按钮。
MsgBox("只显示‘确定’按钮。", vbOKOnly, "提示1") '标题为“提示1”-提示信息为“只显示‘确定’按钮。”，只显示“确定”按钮。
MsgBox("显示‘确定’和‘取消’按钮。", vbOKCancel, "提示2") '标题为“提示2”-提示信息为“显示‘确定’和‘取消’按钮。”，显示“确定”和“取消”按钮。 MsgBox("显示‘终止’、‘重试’和‘忽略’按钮。", vbAbortRetryIgnore, "提示3")'标题为“提示3”-提示信息为“显示‘终止’、‘重试’和‘忽略’按钮。”，显示“终止”、“重试”和“忽略”按钮。
MsgBox("显示‘是’、‘否’和‘取消’按钮。", vbYesNoCancel, "提示4")'标题为“提示4”-提示信息为“显示‘是’、‘否’和‘取消’按钮。”，显示“是”、“否”和“取消”按钮。
MsgBox("显示‘是’和‘否’按钮。", vbYesNo, "提示5") '标题为“提示5”-提示信息为“显示‘是’和‘否’按钮。”，显示“是”和“否”按钮。
MsgBox("显示‘重试’和‘取消’按钮。", vbRetryCancel, "提示6") '标题为“提示6”-提示信息为“显示‘重试’和‘取消’按钮。”，显示“重试”和“取消”按钮。 MsgBox("显示‘X’图标。", vbCritical, "提示7") '标题为“提示7”-提示信息为“显示‘X’图标。”，显示“X”图标。
MsgBox("显示‘？’图标。", vbQuestion, "提示8") '标题为“提示8”-提示信息为“显示‘？’图标。”，显示“？”图标。
MsgBox("显示‘！’图标。", vbExclamation, "提示9") '标题为“提示9”-提示信息为“显示‘！’图标。”，显示“！”图标。
MsgBox("显示‘i’图标。", vbInformation, "提示10") '标题为“提示10”-提示信息为“显示‘i’图标。”，显示“i”图标。
MsgBox("第一个按钮是默认的。", vbAbortRetryIgnore + vbDefaultButton1, "提示11")'标题为“提示11”-提示信息为“第一个按钮是默认的。”，第一个按钮是默认的。 MsgBox("第二个按钮是默认的。", vbAbortRetryIgnore + vbDefaultButton2, "提示12")'标题为“提示12”-提示信息为“第————二个按钮是默认的。”，第二个按钮是默认的。
MsgBox("第三个按钮是默认的。", vbAbortRetryIgnore + vbDefaultButton3, "提示13")'标题为“提示13”-提示信息为“第三个按钮是默认的。”，第三个按钮是默认的。
MsgBox("应用程序是有模式的。用户必须响应消息框，才能继续在当前应用程序中工作。", vbApplicationModal,"提示14") '标题为“提示14”-提示信息为“应用程序是有模式的。用户必须响应消息框，才能继续在当前应用程序中工作。”，应用程序是有模式的。用户必须响应消息框，才能继续在当前应用程序中工作。 MsgBox("系统是有模式的。所有应用程序都被挂起，直到用户响应消息框。", vbSystemModal, "提示15")'标题为“提示15”-提示信息为“系统是有模式的。所有应用程序都被挂起，直到用户响应消息框。”，系统是有模式的。所有应用程序都被挂起，直到用户响应消息框。
MsgBox("指定消息框窗口为前景窗口。", vbMsgBoxSetForeground, "提示16")'标题为“提示16”-提示信息为“指定消息框窗口为前景窗口。”，指定消息框窗口为前景窗口。
MsgBox("文本为右对齐。", vbMsgBoxRight, "提示17") '标题为“提示17”-提示信息为“文本为右对齐。”，文本为右对齐。
MsgBox("指定文本应为在希伯来语和阿拉伯语系统中从右到左显示。", vbMsgBoxRtlReading, "提示18")'标题为“提示18”-提示信息为“指定文本应为在希伯来语和阿拉伯语系统中从右到左显示。”，指定文本应为在希伯来语和阿拉伯语系统中从右到左显示。 MessageBox.Show("信息框", "提示19", MessageBoxButtons.OK,MessageBoxIcon.Information,MessageBoxDefaultButton.Button1)
Label1.Text = MsgBox("信息框", vbOKCancel + vbInformation +vbDefaultButton2, "提示20")
MsgBox("Hello World!", 65, "信息框21") End SubEnd Class
'MsgBox，在对话框中显示消息，等待用户单击按钮，然后返回一个整数，指示用户单击了哪个按钮。
'MsgBox(Prompt,Buttons,Title)
'Prompt，必选。以消息形式显示在对话框中的 String表达式。'Buttons，可选。数值表达式，它是值的总和，指定显示的按钮数目及按钮类型，使用的图标样式，默认按钮的标识以及消息框的样式等。如果省略Buttons，则默认值为零。'Title，可选。显示在对话框标题栏中的 String表达式。如果省略 Title，则将应用程序名放在标题栏中。
'下表列出了 MsgBoxStyle枚举值。
'成员 值 说明
'第一组值 (0–5)'OKOnly 0 只显示“确定”按钮。
'OKCancel 1 显示“确定”和“取消”按钮。
'AbortRetryIgnore 2 显示“终止”、“重试”和“忽略”按钮。
'YesNoCancel 3 显示“是”、“否”和“取消”按钮。
'YesNo 4 显示“是”和“否”按钮。
'RetryCancel 5 显示“重试”和“取消”按钮。
'第二组值 (16, 32, 48,64)'Critical 16 显示“关键消息”图标。
'Question 32 显示“警告查询”图标。
'Exclamation 48 显示“警告消息”图标。
'Information 64 显示“信息消息”图标。
'第三组值 (0, 256,512)'DefaultButton1 0 第一个按钮是默认的。
'DefaultButton2 256 第二个按钮是默认的。
'DefaultButton3 512 第三个按钮是默认的。
'第四组值 (0, 4096)'ApplicationModal 0 应用程序是有模式的。用户必须响应消息框，才能继续在当前应用程序中工作。
'SystemModal 4096 系统是有模式的。所有应用程序都被挂起，直到用户响应消息框。
'第五组值 (65536, 524288,1048576)'MsgBoxSetForeground 65536 指定消息框窗口为前景窗口。
'MsgBoxRight 524288 文本为右对齐。
'MsgBoxRtlReading 1048576 指定文本应为在希伯来语和阿拉伯语系统中从右到左显示。
'第一组值 (0–5)描述对话框中显示的按钮数量和类型。第二组值 (16, 32, 48, 64) 描述图标样式。'第三组值 (0, 256, 512)确定默认使用哪个按钮。第四组值 (0, 4096) 确定消息框的模式性。'第五组值指定消息框窗口是否为前台窗口，以及文本对齐和方向。'将这些数字相加以生成 Buttons参数的最终值时，只能由每组值取用一个数字。
'返回值
'常数 值
'OK 1
'Cancel 2
'Abort 3
'Retry 4
'Ignore 5
'Yes 6
'No 7
