VB程序設計(第2版)教學課件4-3-輸出對話框

1、VB程序設計輸出對話框問題引入這樣的輸出消息框在VB中如何實現(xiàn)？列表框列 輸出對話框概述1列 MsgBox方法2 MsgBox函數(shù)3輸出對話框輸出對話框概述1 輸出對話框是用MsgBox消息框實現(xiàn)輸出信息的。 MsgBox消息框有兩種形式，即：MsgBox方法和MsgBox函數(shù)。MsgBox方法2 MsgBox方法用于向用戶輸出提示信息?！靖袷健?MsgBox 消息文本，顯示按鈕和圖標，標題MsgBox 全班學生及格率為： & Str(80) & %, , 及格率消息文本標題“顯示按鈕和圖標”省略，只顯示一個“確定”按鈕，無圖標。MsgBox方法2【參數(shù)說明1】消息文本 指在對話框中顯示的文本

2、，是消息提示信息。若消息提示信息包含多行，可在各行之間用回車換行符組合“Chr(13)&Chr(10)”或常量“VbCrLf”來實現(xiàn)。MsgBox 消息文本，顯示按鈕和圖標，標題MsgBox方法2 可選項，是一個整型表達式，用于指定輸出對話框中顯示的按鈕類型與數(shù)目、使用的圖標樣式、默認按鈕選中狀態(tài)。若省略，默認值為0。 【參數(shù)說明2】顯示按鈕和圖標MsgBox 消息文本，顯示按鈕和圖標，標題MsgBox方法2 可選項，在對話框標題欄中顯示的標題，省略時Visual Basic將應用程序名顯示在標題欄中。 【參數(shù)說明3】標題MsgBox 消息文本，顯示按鈕和圖標，標題MsgBox方法2MsgBo

3、x消息框按鈕類型與數(shù)目對應取值分 類符 號 常 數(shù)取 值描 述按鈕類型與數(shù)目VbOkOnly0只顯示“確定”按鈕VbOkCancel1顯示“確定”及“取消”按鈕VbAbortRetryIgnore2顯示“放棄”、“重試”及“忽略”按鈕VbYesNoCancel3顯示“是”、“否”及“取消”按鈕VbYesNo4顯示“是”及“否”按鈕VbRetryCancel5顯示“重試”及“取消”按鈕MsgBox方法2MsgBox消息框圖標樣式對應取值分 類符 號 常 數(shù)取 值描 述圖標樣式VbCritical16顯示 圖標VbQuestion32顯示 圖標VbExclamation48顯示 圖標VbInfor

4、mation64顯示 圖標MsgBox方法2分 類符 號 常 數(shù)取 值描 述默認按鈕VbDefaultButton10第一個按鈕是默認值VbDefaultButton2256第二個按鈕是默認值VbDefaultButton3512第三個按鈕是默認值VbDefaultButton4768第四個按鈕是默認值MsgBox消息默認按鈕對應取值MsgBox方法2【MsgBox方法說明】 若對話框中顯示“取消”按鈕，則按【Esc】鍵與單擊【取消】按鈕的效果是相同的。 代碼中如果省略某些參數(shù)，則相應的逗號分界符不能省。MsgBox方法2【MsgBox方法說明】 “顯示按鈕和圖標”中的數(shù)值是從上面3組數(shù)據(jù)中各

5、取一個數(shù)值相加而得。 注：每個表中只能取一個值。如：取值為65，系統(tǒng)會自動將它分解為3個值：1（顯示“確定、取消”按鈕）、64（顯示 圖標）、0（第一個按鈕為默認按鈕），即：65=1+64+0。MsgBox方法2【MsgBox方法說明】 不允許輸出對話框未關閉就執(zhí)行程序的其他部分。MsgBox方法2【應用】 寫出實現(xiàn)右圖提示信息的語句。MsgBox 此路段限速80，你超速了!, 49, 警告!MsgBox方法2【應用】 寫出實現(xiàn)右圖提示信息的語句。MsgBox 我學習了MsgBox方法的應用!, 64, 學習MsgBox方法2【應用】寫出實現(xiàn)右圖提示信息的語句。MsgBox 你學會了嗎？, 3

6、2, 學習MsgBox方法2【應用】 寫出實現(xiàn)右圖提示信息的語句。MsgBox 我還是不懂！, 20, 學習MsgBox函數(shù)3 MsgBox函數(shù)不僅向用戶輸出提示信息，而且要求用戶作出必要的回答，等待用戶單擊按鈕，根據(jù)選取的的按鈕，返回一個數(shù)值?！靖袷健孔兞? MsgBox（消息文本，顯示按鈕和圖標，標題) MsgBox函數(shù)返回的值指明了對話框中選擇哪一個按鈕。MsgBox函數(shù)3MsgBox函數(shù)的返回值符 號 常 數(shù)值描 述VbOk1用戶單擊“確定”按鈕VbCancel2用戶單擊“取消”按鈕VbAbort3用戶單擊“放棄”按鈕VbRetry4用戶單擊“重試”按鈕VbIgnore5用戶單擊“忽略”按鈕VbYes6用戶單擊“是”按鈕VbNo7用戶單擊“否”按鈕MsgBox函數(shù)3【應用】 寫出實現(xiàn)右圖提示信息的語句。Private Sub Command5_Click() Dim x As Integer x = MsgBox(輸入密碼錯!, 5 + 48 + 0, 驗證密碼)End Sub單擊“重試”，x的值是4。單擊