MsgBox函数和MsgBox语句 msgbox函数使用范例

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

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

格式如下:

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

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

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

PrivateSub Form_click()

MsgBox("欢迎XX")

EndSub

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

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

例如

PrivateSub Form_click()

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

EndSub

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


MsgBox函数和MsgBox语句 msgbox函数使用范例

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

MsgBox类型参数的取值:

符号常量

作 用

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

系统强制返回

例如:

Private Sub Form_click()

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

End Sub

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


例如:

Private Sub Form_click()

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

End Sub

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


如果要同时定义按钮类型和图标样式,可直接将按钮类型的取值和图标样式的取值相加即可。例如:2+64

Private Sub Form_click()

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

End Sub

执行结果如图:

Private Sub Form_click()

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

End Sub

则会将默认按钮变为第三个按钮,执行结果如图:


如果对话框中只有三个按钮,代码却为“66+768”,执行结果为默认选中第一个按钮。

“标题”参数,用来指定对话框的标题栏文字。

例如:

Private Sub Form_click()

MsgBox "欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天!",65 + 512, "许愿池"

End Sub

执行结果:



*************

MsgBox函数,除可返回值外,其他功能与MsgBox语句相同。

MsgBox函数返回值是一个整数,可以是1~7之间的任意整数,它们分别对应7个按钮被选中的状态。

返回值

操作

符号常量

1

选“确定”按钮

vbOk

2

选“取消”按钮

vbCancel

3

选“终止”按钮

vbAbort

4

选“重试”按钮

vbRetry

5

选“忽略”按钮

vblgnore

6

选“是”按钮

vbYes

7

选“否”按钮

vbNo

例如:

在按钮【退出】的双击事件中输入如下代码:

Private Sub Command1_Click()

Dim a As Integer‘定义整形变量a

a = MsgBox("你确定要退出吗?", 1 + 32)‘用变量a来接收MsgBox函数的返回值

If a = 1 Then‘如果变量a的值为1,即MsgBox函数的返回值为1。那么

End

Else

Print ("你没有退出。")

End If

End Sub

  

爱华网本文地址 » http://www.aihuau.com/a/25101012/145474.html

更多阅读

excel函数实例教程:7 ADDRESS函数使用方法

excel函数实例教程:[7]ADDRESS函数使用方法——简介ADDRESS函数由于以文本方式实现对某一单元格的引用,合理的使用该函数,可实现更加灵活的单元格引用。下面小编就为大家讲解一下该函数的具体使用方法。excel函数实例教程:[7]ADDRESS函

oracle decode函数使用方法 oracle 分区使用函数

oracle decode函数使用方法——简介decode()函数是ORACLE PL/SQL是功能强大的函数之一,目前还只有ORACLE公司的SQL提供了此函数,其他数据库厂商的SQL实现还没有此功能。oracle decode函数使用方法——工具/原料·软件环境:  1、Wi

Excel函数详解:12 MONTH函数使用方法

Excel函数详解:[12]MONTH函数使用方法——简介MONTH函数,用于返回指定日期中的月份,返回月份的值范围是整数1(一月)~12(十二月)。Excel函数详解:[12]MONTH函数使用方法——工具/原料Excel for MacExcel函数详解:[12]MONTH函数使用方法——函

BAT语句:if语句和for语句

BAT语句结构类似于C语言,批处理也有它的语句结构。批处理的语句结构主要有选择结构(if语句)、循环结构(for语句)等。if语句(选择结构)if语句实现条件判断,包括字符串比较、存在判断、定义判断等。通过条件判断,if语句即可以实现选择功

声明:《MsgBox函数和MsgBox语句 msgbox函数使用范例》为网友綄美尐妖分享!如侵犯到您的合法权益请联系我们删除