赞
踩
分函数和语句,先讨论语句
MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])
必选。字符串表达式。显示消息。最大长度为1024个字符。换行用(Chr(13) & Chr(10))
Private Sub Form_Load()
MsgBox "welcome" & Chr(10) & Chr(13) & "hello world"
End Sub
按钮类型:
符号常量 | 值 | 作用 |
---|---|---|
VBOkOnly | 0 | 只显示‘确定’按钮 |
VBOKCancle | 1 | 只显示‘确定’和‘取消’按钮 |
vbAbortRetryIgnore | 2 | 显示‘放弃’、‘重试’和‘忽略’按钮 |
vbYesNoCancel | 3 | 显示‘是’、‘否’和‘取消’按钮 |
VBYesNo | 4 | 显示‘是’和‘否’按钮 |
VBRetryCancel | 5 | 显示‘重试’和‘取消’按钮 |
Private Sub Form_Load()
MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 4
End Sub
图标形式:
符号常量 | 值 | 作用 |
---|---|---|
VBCritical | 16 | 显示系统叉号图标 |
VBQuestion | 32 | 显示系统问号图标 |
vbExclamation | 48 | 显示系统叹号图标 |
vbInformation | 64 | 显示系统信息图标 |
Private Sub Form_Load()
MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 16
End Sub
默认按钮:
符号常量 | 值 | 作用 |
---|---|---|
VBDefaultButton1 | 0 | 第一个按钮为默认按钮 |
VBDefaultButton2 | 256 | 第二个按钮为默认按钮 |
VBDefaultButton3 | 512 | 第三个按钮为默认按钮 |
VBDefaultButton4 | 768 | 第四个按钮为默认按钮 |
Private Sub Form_Load()
MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 256
End Sub
按钮不够,默认为第一个按钮
强制返回:
符号常量 | 值 | 作用 |
---|---|---|
VBApplicationModal | 0 | 应用程序强制返回 |
VBSystemModal | 4096 | 系统强制返回 |
如果用同时定义按钮类型和图标样式,可取两者值相加。
Private Sub Form_Load()
MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 49
End Sub
在标题框显示内容
Private Sub Form_Load()
MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 49,"Door"
End Sub
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。