vb中用msgbox输出的时候，msgbox的返回值怎么用

MsgBox 函数

在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。

语法

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox 函数示例

本示例使用 MsgBox?

函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox 函数的返回值视用户按哪一个钮而定。本示例假设

DEMO.HLP 为一帮助文件，其中有一个内容代码为 1000。

Private?Sub?Command1_Click()

Dim?Msg,?Style,?Title,?Help,?Ctxt,?Response,?MyString

Msg?=?"Do?you?want?to?continue?"'?定义信息。

Style?=?vbYesNo?+?vbCritical?+?vbDefaultButton2'?定义按钮。

Title?=?"MsgBox?Demonstration"'?定义标题。

Help?=?"DEMO.HLP"'?定义帮助文件。

Ctxt?=?1000'?定义标题

'?上下文。

'?显示信息。

Response?=?MsgBox(Msg,?Style,?Title,?Help,?Ctxt)

If?Response?=?vbYes?Then'?用户按下“是”。

MyString?=?"Yes"'?完成某操作。

Else'?用户按下“否”。

MyString?=?"No"'?完成某操作。

End?If

End?Sub

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

Private?Sub?Command1_Click()

Dim?Msg,?Style,?Title,?Help,?Ctxt,?Response,?MyString

Msg?=?"Do?you?want?to?continue?"'?定义信息。

Style?=?vbYesNo?+?vbCritical?+?vbDefaultButton2'?定义按钮。

Title?=?"MsgBox?Demonstration"'?定义标题。

Help?=?"DEMO.HLP"'?定义帮助文件。

Ctxt?=?1000'?定义标题

'?上下文。

'?显示信息。

Response?=?MsgBox(Msg,?Style,?Title,?Help,?Ctxt)

If?Response?=?1?Then'?用户按下“是”。

MyString?=?"Yes"

'?完成某操作。

ElseIf?Response?=?7?Then?'?用户按下“否”。

MyString?=?"No"

'?完成某操作

End?If

End?Sub