对话方块、卷抽、清单方块.ppt

計算機程式Visual BASIC 程式設計 四海工商專校 電算中心 廖文淵 E-Mail: andres@sitc.edu.tw Chapter 8 VB控制項(2): 對話方塊、捲抽、清單方塊、下拉式清單方塊 對話方塊的功用 要求使用者提供必要資訊，以使程式能夠繼續執行 向使用者顯示資訊 「開啟舊檔」對話方塊: 用來顯示已經存在的專案 「關於...」對話方塊: 顯示資訊 「說明...」/「說明...」對話方塊 強制回應對話方塊 強制回應的對話方塊: 程式的其他部份就暫時無法執行，必須等到強制回應式的對話方塊被關閉（隱藏或釋出）後才能繼續執行，如 「確定」或「取消」按鈕 「關於...」對話方塊 用於顯示重要訊息 使用 Show 方法來顯示，並將其 style 引數數值為 vbModal（數值為 1 的常數） frmAbout.Show vbModal 非強制回應對話方塊 非強制回應的對話方塊: 允許在對話方塊與其他表單之間轉移駐點而不用關閉對話方塊 即使非強制回應式的對話方塊正在顯示，也可在目前應用程式的其他地方繼續工作。一般而言比較少用，如 「編輯」/「尋找...」對話方塊 常用於顯示經常要用到的指令與資訊 使用不帶 style 引數的 Show方法 frmAbout.Show 1. 對話方塊-MsgBox 要求使用者對某件事情或動作選擇「是」或「否」的回應 顯示簡短的訊息，如: 錯誤、提醒或警告等訊息 使用者看完訊息後，選取其中一個按鈕，即可將它關閉 MsgBox Error encountered while _ trying to open file, please retry., _ vbExclamation, Text Editor MsgBox函數 MsgBox(prompt[,buttons][,title]) prompt 顯示訊息 最大長度約1024個字元 超過一行可在每一行之間用換行字元(Chr(10)) 來做區隔 buttons 數值運算式 顯示按鈕的數目及形式、使用的圖示樣式、預設按鈕為何，以及訊息方塊的強制回應等 預設值是 0 Title 對話方塊標題列 如果沒有 title，則將應用程式的名稱放在標題列中 buttons 引數 vbOKOnly 0 OK 按鈕 VbOKCancel 1 OK 及 Cancel 按鈕 VbAbortRetryIgnore 2 Abort、 Retry 及 Ignore 按鈕 VbYesNoCancel 3 Yes、No 及 Cancel 按鈕 VbYesNo 4 Yes 及 No 按鈕 VbRetryCancel 5 Retry 及 Cancel 按鈕 VbCritical 16 Critical Message 圖示 VbQuestion 32 Warning Query 圖示 VbExclamation 48 Warning Message 圖示 VbInformation 64 Information Message 圖示 VbDefaultButton1 0 第一個按鈕是預設值 VbDefaultButton2 256 第二個按鈕 是預設值 VbDefaultButton3 512 第三個按鈕是預設值 VbDefaultButton4 768 第四個按鈕是預設值 VbApplicationModal 0 應用程式強制回應 VbSystemModal 4096 系統強制回應 取用buttons 引數 第一組值 (0-5) 決定按鈕的形式與數目 第二組 (16, 32, 48, 64) 決定圖示的樣式 第三組 (0, 256, 512) 決定出那一個按鈕是預設值 第四組 (0, 4096) 決定訊息方塊的強制回應性 這些數字相加產生 buttons 引數值時，只能由每組取用一個數字 傳回值 vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore vbYes 6 Yes vbNo 7 No 若指定第一指名引數以外的引數，必須使用 InputBox 若忽略某些引數，必須加入對應的逗號做為間隔 Example 8-1 Private Sub Form_Load() Const MBYESNO = 4 對按鈕下定義 Const MBDEFBUTTONS2 = 256 對預設鈕下定義 Const MBICONEXCLAMATION = 48 對圖示下定義 Const MBAPPLMODEL = 0