一、消息對(duì)話框
在編寫代碼時(shí)，我們常常需要在屏幕上顯示一些提示信息、警告信息、詢問信息或錯(cuò)誤信息等消息，對(duì)用戶的操作做一個(gè)提醒或反饋，這時(shí)就需要用到消息對(duì)話框。
消息對(duì)話框是用MsgBox語句或Msgbox函數(shù)產(chǎn)生的，兩者的不同之處在于MsgBox函數(shù)還會(huì)產(chǎn)生一個(gè)返回值,而MsgBox語句沒有返回值,常用于比較簡(jiǎn)單的信息顯示。
MsgBox 語句的語法格式：
MsgBox（提示內(nèi)容信息，消息框類型，消息框標(biāo)題，HelpFile，Context）
如：MsgBox"數(shù)據(jù)正確嗎?"
MsgBox 函數(shù)的語法格式：
整形變量=MsgBox（提示內(nèi)容信息，消息框類型，消息框標(biāo)題，HelpFile，Context）
（1）提示信息（Prompt）——是指在消息框中出現(xiàn)的文本，是字符串表達(dá)式，長(zhǎng)度為l04個(gè)字符。
（2）消息框類型（Buttons）——是指消息框中的按鈕和圖標(biāo)，是數(shù)值表達(dá)式，一般有3個(gè)參數(shù)，指定顯示按鈕的數(shù)目及形式、使用的圖標(biāo)樣式、默認(rèn)按鈕是什么以及消息框的強(qiáng)制回應(yīng)等。如果省略，則默認(rèn)為0。其取值和含義見下面3個(gè)表格（表1、表2、表3）。這3個(gè)參數(shù)值可以相加以達(dá)到需要的樣式。
（3）消息框標(biāo)題（Title）——是指消息框標(biāo)題欄的標(biāo)題，是字符串表達(dá)式，如果省略，則將當(dāng)前應(yīng)用程序名放在標(biāo)題欄中。
（4）HelpFile——是字符串表達(dá)式，識(shí)別用來向消息對(duì)話框提供上下文相關(guān)幫助的幫助文件。如果提供了參數(shù)，則也必須提供參數(shù)。
（5）Context——是數(shù)值表達(dá)式，由幫助文件的作者指定給適當(dāng)?shù)膸椭黝}的幫助上下文編導(dǎo)。同
樣，如果提供了參數(shù)，則也必須提供參數(shù)。
注意：5個(gè)參數(shù)中只有第一個(gè)參數(shù)（Prompt）是必須的，其它的為可選的。
（6）MsgBox函數(shù)返回的值指明了在消息框中選擇哪一個(gè)按鈕，如表4。
表1
數(shù)值常量 值 在消息框上顯示的按鈕
VbOKOnly 0 “確定”按鈕
VbOKCancel 1 “確定”和“取消”按鈕
VbAbortRetryIgnore 2 “終止（A）”、“重試（RP）”和“忽略（I）”按鈕
VbYesNoCancel 3 “是（Y）”、“否（N）”、“取消”按鈕
VbYesNo 4 “是（Y）”和“否（N）”按鈕
VbRetryCancel 5 “重試（RP）”和“取消”按鈕
表2
數(shù)值常量 值 在消息框上顯示的圖標(biāo)
VbCritical 16 顯示Critical Message圖標(biāo)
VbQuestion 32 顯示W(wǎng)arning Query圖標(biāo)
VbExclamation 48 顯示W(wǎng)arning Message圖標(biāo)
VbInformation 64 顯示Information Message圖標(biāo)
表3
數(shù)值常量 值 默認(rèn)的按鈕
VbDefaultButton1 0 第一個(gè)按鈕為默認(rèn)的按鈕
VbDefaultButton2 256 第二個(gè)按鈕為默認(rèn)的按鈕
VbDefaultButton3 512 第三個(gè)按鈕為默認(rèn)的按鈕
VbDefaultButton4 768 第四個(gè)按鈕為默認(rèn)的按鈕
VbApplicationModal 0 應(yīng)用程序強(qiáng)制返回；應(yīng)用程序被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。
VbSystemModal 4096 系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。
表4
符號(hào)常量 MsgBox函數(shù)返回的值 所對(duì)應(yīng)的按鈕
vbOK 1 “確定”按鈕（OK）
vbCancel 2 “取消”按鈕（Cancel）
vbAbort 3 “終止（A）”按鈕（Abort）
vbRetry 4 “重試（RP）”按鈕（Retry）
vbIgnore 5 “忽略（I）”按鈕（Ignore）
vbYes 6 “是（Y）”按鈕（Yes）
vbNo 7 “否（N）”按鈕（No）
注意：如果要在MsgBox語句或MsgBox函數(shù)的格式中省略某些參數(shù)，則必須加入相應(yīng)的逗號(hào)分隔符。
例1：顯示消息框。
Dim c As Integer
Private Sub Command1_Click()
c = MsgBox("abcd", 5 + 16 + 256, "xyz")
if c=2 Then end
End Sub
將數(shù)值分別改動(dòng)一下，再看運(yùn)行結(jié)果。
例2：
Private Sub Form_Unload(Cancel As Integer)
Dim intyourreply As Integer
Dim strmyreply As String
intyourreply = MsgBox("動(dòng)畫已顯示完畢" + Chr(13) + "您是否滿意", vbYesNoCancel + _
vbQuestion + vbDefaultButton1 + vbApplicationModal, "詢問您的意見")
strmyreply = "我的回答"
Select Case intyourreply
Case vbYes
MsgBox "非常感謝!歡迎再來。", , strmyreply
Case vbNo
MsgBox "非常遺憾,請(qǐng)多提寶貴意見!", , strmyreply
Case vbCancel
MsgBox "沉默是金!", , strmyreply
在編寫代碼時(shí)，我們常常需要在屏幕上顯示一些提示信息、警告信息、詢問信息或錯(cuò)誤信息等消息，對(duì)用戶的操作做一個(gè)提醒或反饋，這時(shí)就需要用到消息對(duì)話框。
消息對(duì)話框是用MsgBox語句或Msgbox函數(shù)產(chǎn)生的，兩者的不同之處在于MsgBox函數(shù)還會(huì)產(chǎn)生一個(gè)返回值,而MsgBox語句沒有返回值,常用于比較簡(jiǎn)單的信息顯示。
MsgBox 語句的語法格式：
MsgBox（提示內(nèi)容信息，消息框類型，消息框標(biāo)題，HelpFile，Context）
如：MsgBox"數(shù)據(jù)正確嗎?"
MsgBox 函數(shù)的語法格式：
整形變量=MsgBox（提示內(nèi)容信息，消息框類型，消息框標(biāo)題，HelpFile，Context）
（1）提示信息（Prompt）——是指在消息框中出現(xiàn)的文本，是字符串表達(dá)式，長(zhǎng)度為l04個(gè)字符。
（2）消息框類型（Buttons）——是指消息框中的按鈕和圖標(biāo)，是數(shù)值表達(dá)式，一般有3個(gè)參數(shù)，指定顯示按鈕的數(shù)目及形式、使用的圖標(biāo)樣式、默認(rèn)按鈕是什么以及消息框的強(qiáng)制回應(yīng)等。如果省略，則默認(rèn)為0。其取值和含義見下面3個(gè)表格（表1、表2、表3）。這3個(gè)參數(shù)值可以相加以達(dá)到需要的樣式。
（3）消息框標(biāo)題（Title）——是指消息框標(biāo)題欄的標(biāo)題，是字符串表達(dá)式，如果省略，則將當(dāng)前應(yīng)用程序名放在標(biāo)題欄中。
（4）HelpFile——是字符串表達(dá)式，識(shí)別用來向消息對(duì)話框提供上下文相關(guān)幫助的幫助文件。如果提供了
（5）Context——是數(shù)值表達(dá)式，由幫助文件的作者指定給適當(dāng)?shù)膸椭黝}的幫助上下文編導(dǎo)。同
樣，如果提供了
注意：5個(gè)參數(shù)中只有第一個(gè)參數(shù)（Prompt）是必須的，其它的為可選的。
（6）MsgBox函數(shù)返回的值指明了在消息框中選擇哪一個(gè)按鈕，如表4。
表1
數(shù)值常量 值 在消息框上顯示的按鈕
VbOKOnly 0 “確定”按鈕
VbOKCancel 1 “確定”和“取消”按鈕
VbAbortRetryIgnore 2 “終止（A）”、“重試（RP）”和“忽略（I）”按鈕
VbYesNoCancel 3 “是（Y）”、“否（N）”、“取消”按鈕
VbYesNo 4 “是（Y）”和“否（N）”按鈕
VbRetryCancel 5 “重試（RP）”和“取消”按鈕
表2
數(shù)值常量 值 在消息框上顯示的圖標(biāo)
VbCritical 16 顯示Critical Message圖標(biāo)
VbQuestion 32 顯示W(wǎng)arning Query圖標(biāo)
VbExclamation 48 顯示W(wǎng)arning Message圖標(biāo)
VbInformation 64 顯示Information Message圖標(biāo)
表3
數(shù)值常量 值 默認(rèn)的按鈕
VbDefaultButton1 0 第一個(gè)按鈕為默認(rèn)的按鈕
VbDefaultButton2 256 第二個(gè)按鈕為默認(rèn)的按鈕
VbDefaultButton3 512 第三個(gè)按鈕為默認(rèn)的按鈕
VbDefaultButton4 768 第四個(gè)按鈕為默認(rèn)的按鈕
VbApplicationModal 0 應(yīng)用程序強(qiáng)制返回；應(yīng)用程序被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。
VbSystemModal 4096 系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。
表4
符號(hào)常量 MsgBox函數(shù)返回的值 所對(duì)應(yīng)的按鈕
vbOK 1 “確定”按鈕（OK）
vbCancel 2 “取消”按鈕（Cancel）
vbAbort 3 “終止（A）”按鈕（Abort）
vbRetry 4 “重試（RP）”按鈕（Retry）
vbIgnore 5 “忽略（I）”按鈕（Ignore）
vbYes 6 “是（Y）”按鈕（Yes）
vbNo 7 “否（N）”按鈕（No）
注意：如果要在MsgBox語句或MsgBox函數(shù)的格式中省略某些參數(shù)，則必須加入相應(yīng)的逗號(hào)分隔符。
例1：顯示消息框。
Dim c As Integer
Private Sub Command1_Click()
c = MsgBox("abcd", 5 + 16 + 256, "xyz")
if c=2 Then end
End Sub
將數(shù)值分別改動(dòng)一下，再看運(yùn)行結(jié)果。
例2：
Private Sub Form_Unload(Cancel As Integer)
Dim intyourreply As Integer
Dim strmyreply As String
intyourreply = MsgBox("動(dòng)畫已顯示完畢" + Chr(13) + "您是否滿意", vbYesNoCancel + _
vbQuestion + vbDefaultButton1 + vbApplicationModal, "詢問您的意見")
strmyreply = "我的回答"
Select Case intyourreply
Case vbYes
MsgBox "非常感謝!歡迎再來。", , strmyreply
Case vbNo
MsgBox "非常遺憾,請(qǐng)多提寶貴意見!", , strmyreply
Case vbCancel
MsgBox "沉默是金!", , strmyreply