VB程序設(shè)計(jì)(第2版)教學(xué)課件4-3-輸出對(duì)話框

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

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

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

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

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

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