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，效果与前段代码是完全一致的。： （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
