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 ("输入密码错！" , 3 , "验证密码" )
    If Response = vbYes Then   ' 用户按下“是”。
        MyString = "Yes"   ' 完成某操作。
    Else   ' 用户按下“否”。
        MyString = "No"   ' 完成某操作。
    End If
End Sub

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