vb中msgbox用法

VB中的函數，可實現快顯視窗.
作用：在對話方塊中顯示訊息，等待使用者單擊按鈕，並返回一個 Integer 告訴使用者單擊哪一個按鈕。
文法：
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。
Context-------可選的。數值運算式，由協助檔案的作者指定給適當的說明主題的協助上下文編號。如果提供了 context，則也必須提供 helpfile。
用於MsgBox函數中Button參數的常量
常量                 值             說明
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將Help按鈕添加到訊息框
VbMsgBoxSetForeground 65536指定訊息框視窗作為前景視窗
vbMsgBoxRight       524288文本為靠右對齊
vbMsgBoxRtlReading 1048576指定文本應為在希伯來和阿拉伯語系統中的從右至左顯示
說明：
(1)第一組值(0–5)描述了訊息框中顯示的按鈕的類型與數目；第二組值(16,32,48,64)描述了表徵圖的樣式；第三組值(0,256,512,768)說明哪一個按鈕是預設值；而第四組值(0,4096)則決定訊息框的強制返回性。將這些數字相加以產生Buttons參數值的時候，只能由每組值取用一個數字。
(2)這些常數都是 Visual Basic for Applications (VBA) 指定的。結果，可以在程式碼中到處使用這些常數名稱，而不必使用實際數值。實際數值與常數名稱是等價的。
傳回值
用於MsgBox函數傳回值的常量
常數           值        說明
vbOK           1       確定
vbCancel    2       取消
vbAbort        3       終止
vbRetry        4       重試
vbIgnore    5       忽略
vbYes       6       是
vbNo           7       否
(1) 如果同時提供了Helpfile與Context參數，可以按F1鍵來查看與Context相應的說明主題，Excel通常會在輸入框中自動添加一個協助(Help)按鈕。
(2)若在訊息框中顯示“取消”按鈕，則按下ESC鍵與單擊“取消”按鈕效果相同。若訊息框中有“協助”按鈕，則提供相關的協助資訊。
(3)如果要輸入多個參數並省略中間的某些參數，則必須在相應位置加入逗號分界符。
樣本
(1)(1)使用 MsgBox 函數，在具有“是”及“否”按鈕的對話方塊中顯示一條嚴重錯誤資訊。樣本中的預設按鈕為“否”，MsgBox函數的傳回值視使用者按哪一個鈕而定。並假設DEMO.HLP為一協助檔案，其中有一個說明主題代碼為1000。
Dim Msg,Style,Title,Help,Ctxt,Response,MyString
Msg="Do you want to continue ?"     ’定義訊息文本
Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定義按鈕
Title = "MsgBox Demonstration"     ' 定義標題文本
Help = "DEMO.HLP"     ' 定義協助檔案
Ctxt = 1000     ' 定義說明主題
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then     ' 使用者按下“是”
    MyString = "Yes"     ' 完成某操作
Else     ' 使用者按下“否”
    MyString = "No"     ' 完成某操作
End If
(2)只顯示某訊息
MsgBox “Hello!”
(3)將訊息框返回的結果賦值給變數
Ans=MsgBox(“Continue?”,vbYesNo)
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
(4)使用常量的組合，賦值組Config變數，並設定第二個按鈕為預設按鈕
Config=vbYesNo+vbQuestion+vbDefaultButton2
(5)若要在訊息中強制換行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格與字元隔開。如
MsgBox “This is the first line.” & vbNewLine & “Second line.”
(6)可以在訊息框中使用vbTab常量插入一個定位字元。下面的過程使用一個訊息框來顯示5×5儲存格範圍中的所有值，用vbTab常量分隔列並使用vbCrLf常量插入一個新行。注意在MsgBox函數最多隻顯示1024個字元，因此限制了可顯示的儲存格數。
Option Explicit
Sub ShowRangue()
Dim Msg As String
Dim r As Integer, c As Integer
Msg = ""
For r = 1 To 5
For c = 1 To 5
    Msg = Msg & Cells(r, c) & vbTab
Next c
Msg = Msg & vbCrLf
Next r
MsgBox Msg
End Sub
(7)在訊息框語句中運用工作表函數以及設定顯示的數置格式，如下面語句所示：
MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)

例
private sub form_load() '事件表單載入

msgbox("快顯視窗") '設定快顯視窗

end sub '

圖片中的代碼： MsgBox "警告內容!", 26, "警告!"
VB中的函數，可實現快顯視窗.
作用：在對話方塊中顯示訊息，等待使用者單擊按鈕，並返回一個 Integer 告訴使用者單擊哪一個按鈕。
文法：
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。
Context-------可選的。數值運算式，由協助檔案的作者指定給適當的說明主題的協助上下文編號。如果提供了 context，則也必須提供 helpfile。
用於MsgBox函數中Button參數的常量
常量                 值             說明
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將Help按鈕添加到訊息框
VbMsgBoxSetForeground 65536指定訊息框視窗作為前景視窗
vbMsgBoxRight       524288文本為靠右對齊
vbMsgBoxRtlReading 1048576指定文本應為在希伯來和阿拉伯語系統中的從右至左顯示
說明：
(1)第一組值(0–5)描述了訊息框中顯示的按鈕的類型與數目；第二組值(16,32,48,64)描述了表徵圖的樣式；第三組值(0,256,512,768)說明哪一個按鈕是預設值；而第四組值(0,4096)則決定訊息框的強制返回性。將這些數字相加以產生Buttons參數值的時候，只能由每組值取用一個數字。
(2)這些常數都是 Visual Basic for Applications (VBA) 指定的。結果，可以在程式碼中到處使用這些常數名稱，而不必使用實際數值。實際數值與常數名稱是等價的。
傳回值
用於MsgBox函數傳回值的常量
常數           值        說明
vbOK           1       確定
vbCancel    2       取消
vbAbort        3       終止
vbRetry        4       重試
vbIgnore    5       忽略
vbYes       6       是
vbNo           7       否
(1) 如果同時提供了Helpfile與Context參數，可以按F1鍵來查看與Context相應的說明主題，Excel通常會在輸入框中自動添加一個協助(Help)按鈕。
(2)若在訊息框中顯示“取消”按鈕，則按下ESC鍵與單擊“取消”按鈕效果相同。若訊息框中有“協助”按鈕，則提供相關的協助資訊。
(3)如果要輸入多個參數並省略中間的某些參數，則必須在相應位置加入逗號分界符。
樣本
(1)(1)使用 MsgBox 函數，在具有“是”及“否”按鈕的對話方塊中顯示一條嚴重錯誤資訊。樣本中的預設按鈕為“否”，MsgBox函數的傳回值視使用者按哪一個鈕而定。並假設DEMO.HLP為一協助檔案，其中有一個說明主題代碼為1000。
Dim Msg,Style,Title,Help,Ctxt,Response,MyString
Msg="Do you want to continue ?"     ’定義訊息文本
Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定義按鈕
Title = "MsgBox Demonstration"     ' 定義標題文本
Help = "DEMO.HLP"     ' 定義協助檔案
Ctxt = 1000     ' 定義說明主題
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then     ' 使用者按下“是”
    MyString = "Yes"     ' 完成某操作
Else     ' 使用者按下“否”
    MyString = "No"     ' 完成某操作
End If
(2)只顯示某訊息
MsgBox “Hello!”
(3)將訊息框返回的結果賦值給變數
Ans=MsgBox(“Continue?”,vbYesNo)
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
(4)使用常量的組合，賦值組Config變數，並設定第二個按鈕為預設按鈕
Config=vbYesNo+vbQuestion+vbDefaultButton2
(5)若要在訊息中強制換行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格與字元隔開。如
MsgBox “This is the first line.” & vbNewLine & “Second line.”
(6)可以在訊息框中使用vbTab常量插入一個定位字元。下面的過程使用一個訊息框來顯示5×5儲存格範圍中的所有值，用vbTab常量分隔列並使用vbCrLf常量插入一個新行。注意在MsgBox函數最多隻顯示1024個字元，因此限制了可顯示的儲存格數。
Option Explicit
Sub ShowRangue()
Dim Msg As String
Dim r As Integer, c As Integer
Msg = ""
For r = 1 To 5
For c = 1 To 5
    Msg = Msg & Cells(r, c) & vbTab
Next c
Msg = Msg & vbCrLf
Next r
MsgBox Msg
End Sub
(7)在訊息框語句中運用工作表函數以及設定顯示的數置格式，如下面語句所示：
MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)

例
private sub form_load() '事件表單載入

msgbox("快顯視窗") '設定快顯視窗

end sub '

圖片中的代碼： MsgBox "警告內容!", 26, "警告!"