01
寫在前面
MsgBox函式顯示一個訊息框,並等待使用者點選一個按鈕,然後根據使用者點選的按鈕執行相關的操作。
可以說,訊息框是與操作者互動的最重要的工具,用好訊息框不僅能夠使操作更簡單,還會減少錯誤的發生。
02
語法
MsgBox(prompt[,buttons][,title][,helpfile,context])
prompt - 必需的引數。在對話方塊中顯示為訊息的字串。提示的最大長度大約為
1024
個字元。如果訊息擴充套件為多行,則可以使用每行之間的回車符(
Chr(13)
)或換行符(
Chr(10)
)來分隔行。
buttons - 可選引數。一個數字表達式,指定要顯示的按鈕的型別,要使用的圖示樣式,預設按鈕的標識以及訊息框的形式。如果留空,則按鈕的預設值為。
title - 可選引數。顯示在對話方塊的標題欄中的字串表示式。如果標題留空,應用程式名稱將被放置在標題欄中。
helpfile - 可選引數。一個字串表示式,標識用於為對話方塊提供上下文相關幫助的幫助檔案。
Context - 可選引數。一個數字表達式,用於標識由幫助作者分配給相應幫助主題的幫助上下文編號。如果提供上下文,則還必須提供
helpfile
。
03
Buttons引數詳解
Buttons 引數可以使用以下任何值 -
0 vbOKOnly - 僅顯示“確定” 按鈕。
1 vbOKCancel - 顯示“確定” 和“取消” 按鈕。
2 vbAbortRetryIgnore - 顯示“中止”,“重試”和“忽略” 按鈕。
3 vbYesNoCancel - 顯示“是”,“否”和“取消” 按鈕。
4 vbYesNo - 顯示“是”和“否”按鈕。
5 vbRetryCancel - 顯示“重試”和“取消”按鈕。
16 vbCritical - 顯示嚴重訊息圖示。
32 vbQuestion - 顯示警告查詢圖示。
48 vbExclamation - 顯示警告訊息圖示。
64 vbInformation - 顯示資訊訊息圖示。
0 vbDefaultButton1 - 第一個按鈕是預設的。
256 vbDefaultButton2 - 第二個按鈕是預設的。
512 vbDefaultButton3 - 第三個按鈕是預設的。
768 vbDefaultButton4 - 第四個按鈕是預設的。
0 vbApplicationModal 應用程式模式 - 當前的應用程式將不會工作,直到使用者響應訊息框。
4096 vbSystemModal 系統模式 - 所有的應用程式將不會工作,直到使用者響應訊息框。
上述值在邏輯上分為四組:第一組(至
5
)指示要在訊息框中顯示的按鈕。第二組(
16
,
32
,
48
,
64
)描述要顯示的圖示的樣式,第三組(,
256
,
512
,
768
)指示哪個按鈕必須是預設的,第四組(,
4096
)確定訊息框的形式。
04
返回值
MsgBox
函式可以返回以下值之一,可用於標識使用者在訊息框中單擊的按鈕。
vbOK - 確定 按鈕被點選。
vbCancel - 取消 按鈕被點選。
vbAbort - 中止 按鈕被點選。
vbIgnore - 忽略 按鈕被點選。
vbYes - 是 按鈕被點選。
vbNo - 否 按鈕被點選。
05
示例
Function MessageBoxDemo() ‘Message Box with just prompt message MsgBox(“歡迎您~”) ’Message Box with title, yes no and cancel Butttons result = MsgBox(“你喜歡藍色嗎?”, 3, “選擇一個選項”) ‘ Assume that you press No Button MsgBox (“返回 result 的值是:” &result) End Function
執行結果:
有興趣的朋友可以設定不同的引數看看效果,靈活應用到你的VBA程式中。