讯息的处理.pptVIP

顯示訊息 顯示訊息 按鈕與圖示 按鈕與圖示 訊息視窗的標題 按鈕的傳回值 按鈕的傳回值 讀取資料 讀取資料 讀取資料 訊息的處理 MsgBox 函數?? ??? 將訊息顯示在對話方塊中，等使用者按下按鈕，並傳回一 Integer 來指示使用者按下的是那一個鈕。 語法 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) prompt必要引數。做為顯示在對話方塊中之訊息的字串運算式。buttons選擇性引數。數值運算式，用來指出顯示按鈕的數目及形式，使 用的圖示樣式，預設按鈕為何，以及訊息方塊的強制回應等。如 果沒有指定，則 buttons 的預設值是 0。 title選擇性引數。顯示在對話方塊標題列中的字串運算式。 helpfile選擇性引數。用來辨識提供給對話方塊文字感應說明的說明檔案 的字串運算式。如果指定了 helpfile，則也必須指定 context。context選擇性引數。數值運算式，由說明檔案的作者來指定適當的說明 主題的說明主題代碼 。如果指定了 context，則也必須指定 helpfile。 Private Sub CommandButton1_Click() MsgBox VBA 的 訊 息 End Sub prompt 顯示訊息 Private Sub CommandButton1_Click() str1 = Range(b2).Value MsgBox “B2的資料是：” str1 End Sub 連接字串 Private Sub CommandButton1_Click() str1 = 第 一 列 文 字 MsgBox str1 vbCr 第 二 列 文 字 End Sub 顯示訊息 換行 Private Sub CommandButton1_Click() str1 = 按鈕的型式 MsgBox str1, 4 ’也可以寫成 MsgBox str1, vbYesNo End Sub Buttons 可自選單中選擇 按鈕與圖示 vbRetryCancel 【重試】、【取消】 5 vbYesNo 【是】、【否】 4 vbYesNoCancel 【是】、【否】、【取消】 3 vbAbortRetryIgnore 【異常終止】、【重試】、【忽略】 2 vbOKCancel 【確定】、【取消】 1 vbOKOnly 【確定】 0 對應的常數 Buttons 按鈕的型式 參數值 顯示 Information Message 圖示。 64 vbInformation 顯示 Warning Message 圖示。 48 vbExclamation 顯示 Warning Query 圖示。 32 vbQuestion 顯示 Critical Message 圖示。 16 vbCritical 按鈕與圖示 Buttons 圖示 Buttons 值 Private Sub CommandButton1_Click() str1 = 訊息視窗的圖示 MsgBox str1, 16 End Sub 按鈕與圖示 Private Sub CommandButton1_Click() str1 = 訊息視窗的圖示 MsgBox str1, 16 + 4 ’也可以寫成 MsgBox str1, 20 End Sub 按鈕與圖示 Private Sub CommandButton1_Click() str1 = VBA的設計方法 MsgBox str1, 16, 可以這樣嗎 ? End Sub title 訊息視窗的標題 Private Sub CommandButton1_Click() str1 = VBA的設計方法 MsgBox str1, , 可以這樣嗎 ? End Sub Option Explicit Private Sub CommandButton1_Click() Dim Str1 As String Str1 = VBA的設計方法 MsgBox Prompt:=Str1, Title:=可以這樣嗎 ? End Sub OR 訊息視窗的標題 Prompt , Buttons , Title 不用按順序排列 若　MsgBox　使用 　　　　MsgBox Prompt:=…. , Title:=….. , Buttons:=…….. 則必須一致使用　Prompt:=