msgbox 使用VB

MsgBox函数

MsgBox函数的作用是弹出一个对话框，在其中显示的指定的数据和提示信息。此外，该函数还可以返回用户在此对话框做的选择，并将返回值赋给指定变量。

语法格式：

变量=MsgBox（信息内容，对话框类型+图标类型，对话框标题）

MsgBox ("输入密码错！",3,"验证密码" )

信息窗如下页图

button参数的取值

名称	值	功能	3个数值表示
VbOKOnly	0	确定按钮	按钮类型
VbOkCancel	1	确定和取消按钮
VbAortRetryIgnore	2	终止,重试和忽略按钮
VbYesNoCancel	3	是,否和取消按钮
VbYesNo	4	是,否按钮
Vbretrycancel	5	重试和取消按钮
VbCritical	16	停止图标	图标样式
VbQuestion	32	问号(?)图标
VbExclamation	48	感叹号(!)图标
Vbinformation	64	信息图标
VbDefaultButton1	0	默认按钮为第一按钮	默认按钮
VbDefaultButton2	256	默认按钮为第二按钮
VbDefaultButton3	512	默认按钮为第三按钮

MsgBox()的返回值

返回值	常量	按钮
1	vbOK	确定按钮
2	vbCancel	取消按钮
3	vbAbort	终止按纽
4	vbRetry	重试按钮
5	vbIgnore	忽略按钮
6	vbYes	是
7	vbNo	否

利用msgBox产生的返回值

Response=MsgBox ("输入密码错！","验证密码" )
IfResponse=vbYesThen'用户按下“是”。
MyString="Yes"'完成某操作。
Else'用户按下“否”。
MyString="No"'完成某操作。
EndIf
EndSub

下列代码用返回值1和7替代上面代码中的vbYes，vbNo，效果与前段代码是完全一致的。：