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,"友情提示:"