MsgBox是Visual Basic和VBS中的一個函式,功能是彈出一個對話框,等待用戶單擊按鈕,並返回一個Integer值表示用戶單擊了哪一個按鈕。
“MsgBox”即為“Message Box”的縮寫,在英語中意為“信箱”。
基本介紹
- 中文名:msgbox
- 外文名:msgbox
- 全稱:Message Box
- 英語中意:信息提示框
使用方法
語法
參數
部分 | 描述 |
---|---|
Prompt | |
Buttons | 可選。數值表達式,是一些數值的總和,指定所顯示的按鈕的數目及形式、使用的圖示樣式(及聲音),預設按鈕以及訊息框的強制性等。如果省略,則其預設值為0。具體數值見“參數設定值”表格。 |
Title | 可選。字元串表達式,在對話框標題欄中顯示的內容。如果省略Title,則將應用程式標題(App.Title)放在標題欄中。 |
Helpfile | 可選。字元串表達式,用來向對話框提供上下文相關幫助的幫助檔案。如果提供了Helpfile,則也必須提供Context。 |
Context | 可選。數值表達式,由幫助檔案的作者指定給適當的幫助主題的幫助上下文編號。如果提供了Context,則也必須提供Helpfile。 |
參數設定值
常數 | 值 | 描述 |
---|---|---|
對話框中顯示的按鈕的類型與數目 | ||
vbOKOnly | 0 | 只顯示“確定”按鈕。(預設) |
vbOKCancel | 1 | 顯示“確定”和“取消”按鈕。 |
vbAbortRetryIgnore | 2 | 顯示“終止”、“重試”和“忽略”按鈕。 |
vbYesNoCancel | 3 | 顯示“是”、“否”和“取消”按鈕。 |
vbYesNo | 4 | 顯示“是”和“否”按鈕。 |
vbRetryCancel | 5 | 顯示“重試”和“取消”按鈕。 |
圖示的樣式(根據系統設定,可能伴有聲音) | ||
vbCritical | 16 | 顯示“錯誤信息”圖示。 |
vbQuestion | 32 | 顯示“詢問信息”圖示。 |
vbExclamation | 48 | 顯示“警告訊息”圖示。 |
vbInformation | 64 | 顯示“通知訊息”圖示。 |
默認按鈕 | ||
vbDefaultButton1 | 0 | 第一個按鈕是默認按鈕。(預設) |
vbDefaultButton2 | 256 | 第二個按鈕是默認按鈕。 |
vbDefaultButton3 | 512 | 第三個按鈕是默認按鈕。 |
vbDefaultButton4 | 768 | 第四個按鈕是默認按鈕。 |
對話框的強制返回性 | ||
vbApplicationModal | 0 | 應用程式強制返回;應用程式一直被掛起,直到用戶對訊息框作出回響才繼續工作。 |
vbSystemModal | 4096 | 系統強制返回;全部應用程式都被掛起,直到用戶對訊息框作出回響才繼續工作。 |
對話框特殊設定 | ||
vbMsgBoxHelpButton | 16384 | 將幫助按鈕添加到訊息框。 |
vbMsgBoxSetForeground | 65536 | 指定訊息框視窗作為前景視窗。 |
vbMsgBoxRight | 524288 | 文本為右對齊。 |
vbMsgBoxRtlReading | 1048576 | 指定文本應為在希伯來和阿拉伯語系統中的從右到左顯示。 |
返回值
常數 | 值 | 描述 |
---|---|---|
vbOK | 1 | 單擊了“確定”按鈕。 |
vbCancel | 2 | 單擊了“取消”按鈕。 |
vbAbort | 3 | 單擊了“終止”按鈕。 |
vbRetry | 4 | 單擊了“重試”按鈕。 |
vbIgnore | 5 | 單擊了“忽略”按鈕。 |
vbYes | 6 | 單擊了“是”按鈕。 |
vbNo | 7 | 單擊了“否”按鈕。 |
說明
代碼示例
Dim Msg, Style, Title, Help, Ctxt, Response, MyStringMsg = "程式發生錯誤,繼續?" '定義訊息文本Style = vbYesNo + vbCritical + vbDefaultButton2 '定義對話框樣式Title = "錯誤信息" '定義標題文本Help = "Demo.hlp" '定義幫助檔案Ctxt = 1000 '定義幫助主題編號Response = MsgBox(Msg, Style, Title, Help, Ctxt)If Response = vbYes Then '用戶按下“是”按鈕 MyString = "Yes" '進行某些操作Else '用戶按下“否”按鈕 MyString = "No" '進行某些操作End If
MsgBox "第1行" & vbCrLf & "第2行"
MsgBox "常數" & vbTab & "值" & vbCrLf & _"vbOK" & vbTab & 1 & vbCrLf & _"vbCancel" & vbTab & 2 & vbCrLf & _"vbAbort" & vbTab & 3 & vbCrLf & _"……" & vbTab & "……", _vbOKOnly, "MsgBox函式返回值"