VBS的msgbox函數用法

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",64

eg4:

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


發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章