| Microsoft® Visual Basic® Scripting Edition
MsgBox 函數 |
|
在對話框中顯示消息，等待用戶單擊按鈕，並返回一個值指示用戶單擊的按鈕。
語法
MsgBox(prompt[, buttons][, title][, helpfile, context])MsgBox 函數的語法有以下參數：
參數 描述 prompt 作爲消息顯示在對話框中的字符串表達式。prompt 的最大長度大約是 1024 個字符，這取決於所使用的字符的寬度。如果 prompt 中包含多個行，則可在各行之間用回車符 (Chr(13))、換行符 (Chr(10)) 或回車換行符的組合 (Chr(13) & Chr(10)) 分隔各行。 buttons 數值表達式，是表示指定顯示按鈕的數目和類型、使用的圖標樣式，默認按鈕的標識以及消息框樣式的數值的總和。有關數值，請參閱“設置”部分。如果省略，則 buttons 的默認值爲 0。 title 顯示在對話框標題欄中的字符串表達式。如果省略 title，則將應用程序的名稱顯示在標題欄中。 helpfile 字符串表達式，用於標識爲對話框提供上下文相關幫助的幫助文件。如果已提供 helpfile，則必須提供 context。在 16 位系統平臺上不可用。 context 數值表達式，用於標識由幫助文件的作者指定給某個幫助主題的上下文編號。如果已提供 context，則必須提供 helpfile。在 16 位系統平臺上不可用。
設置
buttons 參數可以有以下值：
常數 值 描述 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 系統模式：在用戶響應消息框前，所有應用程序都被掛起。 第一組值 (0 - 5) 用於描述對話框中顯示的按鈕類型與數目；第二組值 (16, 32, 48, 64) 用於描述圖標的樣式；第三組值 (0, 256, 512) 用於確定默認按鈕；而第四組值 (0, 4096) 則決定消息框的樣式。在將這些數字相加以生成 buttons 參數值時，只能從每組值中取用一個數字。
返回值
MsgBox 函數有以下返回值：
常數 值 按鈕 vbOK 1 確定 vbCancel 2 取消 vbAbort 3 放棄 vbRetry 4 重試 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否
說明
如果同時提供了 helpfile 和 context，則用戶可以按 F1 鍵以查看與上下文相對應的幫助主題。如果對話框顯示取消按鈕，則按 ESC 鍵與單擊取消的效果相同。如果對話框包含幫助按鈕，則有爲對話框提供的上下文相關幫助。但是在單擊其他按鈕之前，不會返回任何值。
VBS的msgbox函數用法例子
msgbox用法例子1 vb msgbox函數 - VBScript入門-VB腳本編程作用： 消息框
用法：MSGBOX ( 提示消息的字符串表達式 [ , 按鈕參數或值 , 標題的字符串表達式] [ , 幫助的字符串表達式 , 幫助的編號] ）eg1
打開記事本輸入以下代碼，另存爲 msgbox用法例子1.vbs
代碼如下：
MSGBOX "歡迎來到新肯家園，大家有問題請問大象。"eg2: msgbox換行.vbs
msgbox"1行:1"+chr(13)+"2行：2 msbox換行了這是第二行"+chr(10)+"3行: 3"++chr(13)+" "+chr(10)+"5行：回車符 (Chr(13))、換行符 (Chr(10)) 或回車換行符的組合 (Chr(13) & Chr(10)) 分隔各行。"eg3: msgbox標題和按鈕類型.vbs
msgbox "提示信息:這裏是提示 PROMPT",48,"標題: 這裏是標題 TITLE"
msgbox "按鈕參數 值 按鈕類型和圖標："+chr(13)+"vbOKonly 0 確定"+chr(10)+"vbOKCancel 1 確定和取消"+CHR(10)+"vbAbortRetrylgnore 2 放棄、重試和忽略"+chr(10)+"vbYesNoCancel 3 是、否和取消"+chr(10)+"vbYesNo 4 是和否"
MSGBOX "48--警告查詢--vbQuestion",48,"警告"
msgbox"64 警告消息 vbInformation",64eg4：
msgbox"因爲你長的不夠帥，所以執行了非法操作， "+chr(13)+" "+chr(13)+"此程序即將關閉，"+chr(10)+" "+chr(13)+"如果有問題，請與供應商聯繫。",19,"系統信息"
eg5 :單擊一個按鈕並根據不同的返回值執行不同的操作.vbs
Select Case msgbox("請單擊一個按鈕",68,"測試")
Case 6 msgbox(chr(34)&"是"&chr(34)&"被點擊了")
Case 7 WScript.Echo chr(34)&"否"&chr(34)&"被點擊了"
end Select開機歡迎信息
dim t(8)
t0="============歡迎光臨新墾家園！======友情提示==================="
t1=" ★上網人員嚴禁登陸黃色、反動等類型的網站；"
t2=" ★不得運行色情、賭博、暴力、迷信等電腦遊戲; "
t3=" ★個人貴重物品、上網帳號、密碼請注意安全、妥善保管，丟失自負；"
t4=" ★維護公共衛生，愛護公共設施，損壞物品照價賠償；"
t5=" ★登陸QQ及各種網絡遊戲，切勿登陸不明網站，防止帳號被盜；"
t6=" ★如有其他問題，請與大象聯繫。"
t7=" ==============歡迎光臨新墾家園！================="
t8="========================================================="
msgbox (Chr(10))&(Chr(10))&t0&(Chr(10))&(Chr(10))&t1&(Chr(10))&(Chr(10))&t2&(Chr(10))&(Chr(10))&t3&(Chr(10))&(Chr(10))&t4&(Chr(10))&(Chr(10))&t5&(Chr(10))&(Chr(10))&t6&(Chr(10))&t7&(Chr(10))&t8,64,"友情提示："