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