VBA编程中MsgBox函数的使用方法?怎样在VBA编程中使用MsgBox函数?

VBA编程中MsgBox函数怎么用 VBA编程中MsgBox函数怎么用

本文目录:

这个函数一般使用情况是一个参数,例如:

MsgBox"弹出一个提示框" REM运行上面这句代码就会弹出一个提示框

这是最常用的一种情况,然而,msgbox()函数的功能远不止这些,以下是这个函数的声明:

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

promot(提示)

必填;在对话框中作为消息显示的字符串表达式。 Prompt的最大长度大约为 1024个字符,具体取决于使用的字符的宽度。如果提示是由多行组成的你可以单独的行使用一个回车符 (Chr (13)),一个换行符 (Chr(10)),或回车换行符的字符组合 (Chr (13) & Chr (10)) 每行之间。

button(按钮)

可选;是一个数值表达式,指定的数量和类型的按钮以显示、 要使用的图标样式、 默认按钮的标识以及消息框的模态的值的总和。如果省略,按钮的默认值为 0。

title(标题)

可选;在对话框的标题栏中显示的字符串表达式。如果省略title,应用程序名放在标题栏中。

helpfile(帮助文件)

可选;字符串表达式,标识要使用为该对话框提供上下文相关帮助的帮助文件。如果提供了帮助文件,则还 必须提供上下文

context(上下文)

可选;数值表达式,是帮助文件的作者分配给适当的帮助主题的帮助上下文编号。如果提供了上下文,还 必须提供帮助

按钮参数的设置是U

值 描述

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 指定文本应显示一样右向左读希伯来语和阿拉伯语系统上

函数返回值:

值 描述

vbOK 1 还行

vbCancel 2 取消

vbAbort 3 中止

vbRetry 4 重试

vbIgnore 5 忽略

vbYes 6 是的

vbNo 7 没有

例如:

msgbox"这是提示内容",3+64,"这是标题"

VBA编程中MsgBox函数怎么用

一般有两种用法:
1、作一个消息框使用,函数不用括号,直接将提示信息字符串放在后面即可,如程序运行结束时来个提示,
msgbox "运行结束!"
2、在对话框中显示消息,等待用户单击按钮,并返回用户单击了哪个按钮,可根据不同的按钮选择代码分支。如在删除表格数据时为防止误操作,让用户再确认一下,就可用这个函数:
If MsgBox("真要删除数据吗?", vbYesNo) = vbYes Then
'这里是删除数据的语句
End If
这句函数会显示一个信息框,有“是”和“否”两个按钮,如果按下“是”,则运行删除数据的语句,否则放弃删除操作

怎样用msgbox()函数输出变量又同时输出文本?

MsgBox函数和MsgBox语句均可用来弹出对话框,不同处在于MsgBox函数可以返回一个值,而MsgBox语句不会返回值。

MsgBox语句:用于弹出一个对话框。

格式如下:

MsgBox内容[,类型][,标题][,帮助文件名,帮助主题目录号]

在IE地址栏中输入“javascript:alert(“欢迎XX”)”,然后按enter键,则弹出对话框“欢迎XX”

VB中MsgBox语句也可方便实现,在窗体的单击事件中输入如下代码

Private Sub Form_click()

MsgBox ("欢迎XX")

End Sub

MsgBox内容[,类型][,标题][,帮助文件名,帮助主题目录号]

“内容”参数,为必要参数,是一个字符串,其长度不得超过1024字符。如果超过,多余的部分会被省略。字符串的内容在由MsgBox语句弹出的对话框中显示。当字符串在一行内显示不完时,将自动换行。也可用“chr$(13)+chr$(10)”或“vbCrlf”进行强制换行。

例如

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10) & "祝XX快乐每一天!"

End Sub

运行后将弹出对话框如图:

“类型”参数,它是一个整数值或符号常量,用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生,这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置以及强制返回。不过,对于MsgBox语句,按钮的类型及强制返回作用不大,但对于MsgBox函数却很有用。在MsgBox函数中可通过按钮对话框中某个按钮而执行指定的操作。

MsgBox类型参数的取值:

请问:VB中,如何使用msgbox函数,请举例

MsgBox 函数在对话框中显示消息,等待用户单击按钮,并返回一个值指示用户单击的按钮。MsgBox(prompt[, buttons][,title][, helpfile, context])参数prompt作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024个字符,这取决于所使用的字符的宽度。如果 prompt 中包含多个行,则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10))或回车换行符的组合 (Chr(13) & Chr(10))分隔各行。Buttons数值表达式,是表示指定显示按钮的数目和类型、使用的图标样式,默认按钮的标识以及消息框样式的数值的总和。有关数值,请参阅“设置”部分。如果省略,则buttons 的默认值为 0。Title显示在对话框标题栏中的字符串表达式。如果省略title,则将应用程序的名称显示在标题栏中。Helpfile字符串表达式,用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供helpfile,则必须提供 context。在 16位系统平台上不可用。Context数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context,则必须提供helpfile。在 16 位系统平台上不可用。设置buttons 参数可以有以下值:常数值描述vbOKOnly0只显示确定按钮。vbOKCancel1显示确定和取消按钮。vbAbortRetryIgnore2显示放弃、重试和忽略按钮。vbYesNoCancel3显示是、否和取消按钮。vbYesNo4显示是和否按钮。vbRetryCancel5显示重试和取消按钮。vbCritical16显示临界信息图标。vbQuestion32显示警告查询图标。vbExclamation48显示警告消息图标。vbInformation64显示信息消息图标。vbDefaultButton10第一个按钮为默认按钮。vbDefaultButton2256第二个按钮为默认按钮。vbDefaultButton3512第三个按钮为默认按钮。vbDefaultButton4768第四个按钮为默认按钮。vbApplicationModal0应用程序模式:用户必须响应消息框才能继续在当前应用程序中工作。vbSystemModal4096系统模式:在用户响应消息框前,所有应用程序都被挂起。第一组值(0 - 5) 用于描述对话框中显示的按钮类型与数目;第二组值 (16, 32, 48, 64) 用于描述图标的样式;第三组值 (0, 256, 512)用于确定默认按钮;而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons参数值时,只能从每组值中取用一个数字。返回值MsgBox 函数有以下返回值:常数值按钮vbOK1确定vbCancel2取消vbAbort3放弃vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否
说明如果同时提供了 helpfile 和 context,则用户可以按 F1 键以查看与上下文相对应的帮助主题。如果对话框显示取消按钮,则按 ESC键与单击取消的效果相同。如果对话框包含帮助按钮,则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前,不会返回任何值。当MicroSoftInternet Explorer使用MsgBox函数时,任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。 下面的例子演示了MsgBox 函数的用法: Dim MyVarMyVar = MsgBox ("Hello World!", 65, "MsgBox Example") 'MyVar contains either 1 or 2, depending on which button is clicked

大家都在看
本文经用户投稿或网站收集转载,如有侵权请联系本站。