MsgBox函数和MsgBox语句
来源:互联网 发布:360防火墙怎么设置网络 编辑:程序博客网 时间:2024/06/06 01:42
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类型参数的取值:
符号常量
值
作 用
按
钮
类
型
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
2
3
4
vbRetry
5
vblgnore
6
选“是”按钮
7
vbNo
例如:
在按钮【退出】的双击事件中输入如下代码:
Private Sub Command1_Click()
Dim a As Integer
a = MsgBox("你确定要退出吗?", 1 + 32)
If a = 1 Then
Else
End If
End Sub
- msgbox函数和msgbox语句
- MsgBox函数和MsgBox语句
- MsgBox()函数
- msgbox函数
- MsgBox 函数
- MsgBox
- InputBox函数和MsgBox函数综合示例
- InputBox函数和MsgBox函数综合示例
- MsgBox 常用语句
- msgbox函数参数
- MsgBox函数用法补充
- MsgBox函数用法小结
- MsgBox函数用法小结
- MsgBox函数用法小结
- 【VBScript】MsgBox()函数
- VBScript MsgBox 函数
- msgbox函数和inputbox函数应该注意的几点
- vb中msgbox函数用法
- 无线传感网——近距离通信技术
- superblock.c
- 数据库编程入门(三)-触发器的应用
- sort
- 写在前面:公司代码发布体系总结
- MsgBox函数和MsgBox语句
- 我的看源代码历程1
- unity之shader学习笔记(三)
- C++版本xxtea使用
- jdbcTemplate 的 queryForObject异常
- alloc_mem.c
- Android的AIDL机制
- 伤心 总结NOIP2016
- 工具栏编程实例