|
第17节 关于消息框
MsgBox函数：
变量＝MsgBox(“提示”[,按钮]［，标题］)
提示不能省，省略时也要用逗号占位跳过。
I=MsgBox(“密码错误”,
5+vbExclamation, “输入密码”)
MsgBox()函数的返回值是由点击的按钮类型决定的，可通过下列程序测出返回值。
Private
Sub Form_Activate()
I=MsgBox(“密码错误”,
5+vbExclamation, “输入密码”)
Print
“点击按钮返回的值是：”;i
End
Sub
|
分组
|
内部常数
|
按钮值
|
意义
|
|
按钮数目
|
vbOkOnly
vbOkCancel
vbAblutRetryIgnore
vbYesNoCancel
vbYesNo
vbRetryCancel
|
0
1
2
3
4
5
|
只显示确定按钮
显示确定，取消按钮
显示终止、重试、忽略按钮
显示是、否、取消按钮
显示是、否按钮
显示重试、取消按钮
|
|
图标类型
|
VbCritical
VbQuestion
VbExclamation
vbInformation
|
16
32
48
64
|
关键信息图标红色STOP
询问信息图标
警告信息图标
信息图标
|
|
缺省按钮
|
vbDefaultButton1
vbDefaultButton2
vb
DefaultButton3
|
0
256
512
|
第一个按钮为缺省
第二个按钮为缺省
第三个按钮为缺省
|
|
模式
|
VbApplicationModale
vbSystemModal
|
0
4096
|
应用模式
系统模式
|
|
内部常数
|
返回值
|
被按下的铵钮
|
|
vbOk
|
1
|
确定
|
|
vbCancel
|
2
|
取消
|
|
vbAbout
|
3
|
终止
|
|
vbRetry
|
4
|
重试
|
|
vbIgnore
|
5
|
忽略
|
|
vbYes
|
6
|
是
|
|
vbNo
|
7
|
否
|
说明：应用模式挂起当前应用程序，系统模式挂起所有应用程序，直到用户响应了对话框。
例：密码校验
Private
Sub Command1_Click()
pass = Text1.Text
If pass = "12345678" Then
i = MsgBox("密码正确", 0 +
vbQuestion, "输入密码")
Else
i = MsgBox("密码错误", 5 +
vbExclamation, "输入密码")
End If
If i = 4 Then
Text1.Text = ""
Text1.SetFocus
Else
If i = 2 Then
End
Else
Label1.Caption = "欢迎进入系统"
End If
End If
End
Sub
|