MsgBox是Visual Basic和VBS中的一個函式，功能是彈出一個對話方塊，等待使用者單擊按鈕，並返回一個Integer值表示使用者單擊了哪一個按鈕。 “MsgBox”即為“Message Box”的縮寫，在英語中意為“信箱”。 語法： MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context]) 說明： 在提供了Helpfile與Context引數的時候，使用者可以按F1來檢視由Context引數指定的幫助主題。像Microsoft Excel這樣的一些主機應用程式就會在對話方塊中自動新增一個幫助按鈕。 如果對話方塊顯示“取消”按鈕，則按下Esc鍵與單擊“取消”按鈕的效果相同。如果對話方塊中有幫助按鈕，則對話方塊中提供與上下文相關的幫助。但是，直到其它按鈕中有一個被單擊之前，都不會返回任何值。 程式碼示例： 一、使用MsgBox函式，在具有“是”及“否”按鈕的對話方塊中顯示一條錯誤資訊。示例中的預設按鈕為“否”，並假設Demo.hlp為一幫助檔案，其中有一個幫助主題編號為1000。 Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "程式發生錯誤，繼續？" "定義訊息文字 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 二、使用vbCrLf常數在訊息內容中換行。 MsgBox "第1行" & vbCrLf & "第2行" 三、使用vbTab常數顯示多行對齊的文字。 MsgBox "常數" & vbTab & "值" & vbCrLf & _ "vbOK" & vbTab & 1 & vbCrLf & _ "vbCancel" & vbTab & 2 & vbCrLf & _ "vbAbort" & vbTab & 3 & vbCrLf & _ "……" & vbTab & "……", _ vbOKOnly, "MsgBox函式返回值"
MsgBox是Visual Basic和VBS中的一個函式，功能是彈出一個對話方塊，等待使用者單擊按鈕，並返回一個Integer值表示使用者單擊了哪一個按鈕。 “MsgBox”即為“Message Box”的縮寫，在英語中意為“信箱”。 語法： MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context]) 說明： 在提供了Helpfile與Context引數的時候，使用者可以按F1來檢視由Context引數指定的幫助主題。像Microsoft Excel這樣的一些主機應用程式就會在對話方塊中自動新增一個幫助按鈕。 如果對話方塊顯示“取消”按鈕，則按下Esc鍵與單擊“取消”按鈕的效果相同。如果對話方塊中有幫助按鈕，則對話方塊中提供與上下文相關的幫助。但是，直到其它按鈕中有一個被單擊之前，都不會返回任何值。 程式碼示例： 一、使用MsgBox函式，在具有“是”及“否”按鈕的對話方塊中顯示一條錯誤資訊。示例中的預設按鈕為“否”，並假設Demo.hlp為一幫助檔案，其中有一個幫助主題編號為1000。 Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "程式發生錯誤，繼續？" "定義訊息文字 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 二、使用vbCrLf常數在訊息內容中換行。 MsgBox "第1行" & vbCrLf & "第2行" 三、使用vbTab常數顯示多行對齊的文字。 MsgBox "常數" & vbTab & "值" & vbCrLf & _ "vbOK" & vbTab & 1 & vbCrLf & _ "vbCancel" & vbTab & 2 & vbCrLf & _ "vbAbort" & vbTab & 3 & vbCrLf & _ "……" & vbTab & "……", _ vbOKOnly, "MsgBox函式返回值"