MsgBox （將訊息顯示在對話方塊中，等使用者按下按鈕，並傳回一 Integer 來指示使用者按下的是那一個鈕）
MsgBox 語法：
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
範例：
Dim Msg, Style, Title, Response, MyString Msg = "Do you want to continue ?" & vbCrLf & "第二行" ' 定義訊息 Style = vbYesNo + vbExclamation + vbDefaultButton2 ' 定義按鈕 Title = "MsgBox Demonstration" ' 定義標題 ' 顯示訊息 Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' 若使用者按下 [是] MyString = "Yes" ' 產生相對回應 Else ' 若使用者按下 [否] MyString = "No" ' 產生相對回應 End If
buttons 參數：
| 常數 | 值 | 說明 |
| vbOKOnly | 0 | 只顯示「確定」按鈕。 |
| vbOKCancel | 1 | 顯示「確定」及 「取消」按鈕。 |
| vbAbortRetryIgnore | 2 | 顯示 「中止」、 「重試」及 「略過」按鈕。 |
| vbYesNoCancel | 3 | 顯示 「是」、「否」及 「取消」按鈕。 |
| vbYesNo | 4 | 顯示 「是」及 「否」按鈕。 |
| vbRetryCancel | 5 | 顯示 「重試」及 「取消」按鈕。 |
| vbCritical | 16 | 顯示 Critical Message 圖示 |
| vbQuestion | 32 | 顯示 Warning Query 圖示 |
| vbExclamation | 48 | 顯示 Warning Message 圖示 |
| vbInformation | 64 | 顯示 Information Message 圖示 |
| vbDefaultButton1 | 0 | 第一個按鈕是預設值。 |
| vbDefaultButton2 | 256 | 第二個按鈕 是預設值。 |
| vbDefaultButton3 | 512 | 第三個按鈕是預設值。 |
| vbDefaultButton4 | 768 | 第四個按鈕是預設值。 |
| vbApplicationModal | 0 | 應用程式強制回應：使用者必須先回應此訊息方塊，才能在目前的應用程式中繼續工作。 |
| vbSystemModal | 4096 | 系統強制回應；所有的應用程式都會暫停，直到使用者回應此訊息方塊。 |
| vbMsgBoxHelpButton | 16384 | 將 Help按鈕新增到訊息方塊中。 |
| VbMsgBoxSetForeground | 65536 | 指定訊息方塊視窗作為前景視窗。 |
| vbMsgBoxRight | 524288 | 文字為靠右對齊。 |
| vbMsgBoxRtlReading | 1048576 | 指定文字應為在希伯來和阿拉伯語系統中的從右到左顯示。 |
傳回值：
| 常數 | 值 | 描述 |
| vbOK | 1 | OK |
| vbCancel | 2 | Cancel |
| vbAbort | 3 | Abort |
| vbRetry | 4 | Retry |
| vbIgnore | 5 | Ignore |
| vbYes | 6 | Yes |
| vbNo | 7 | No |
Please follow and like us:
