1、通用對話框工程工程/部件部件 選定部選定部件標簽件標簽選定選定Microsoft CommDialog Control 6.0 通用對話框添加到工具箱通用對話框添加到工具箱確定確定 通用對話框控件是一種ActiveX控件，可以用來產生如打開、保存、字體等通用對話框。如下圖“打開”對話框“字體”對話框 通用對話框一、通用對話框的基本屬性和方法一、通用對話框的基本屬性和方法 通用對話框可以提供通用對話框可以提供6種形式的對話框，通過設置種形式的對話框，通過設置Action屬性屬性值或調用值或調用Show方法方法來建立不同類型的對話框。如下表：來建立不同類型的對話框。如下表：1 屬性屬性 Actio

2、n屬性屬性：數值型，決定打開何種類型的對話框（見上表）：數值型，決定打開何種類型的對話框（見上表） DialogTiltle屬性屬性：對通用話框標題。：對通用話框標題。CancelError屬性：邏輯型值，表示用戶在與對話框進行信息屬性：邏輯型值，表示用戶在與對話框進行信息交換時，按下交換時，按下“取消取消”按鈕時是否產生出錯信息。按鈕時是否產生出錯信息。 True：選擇：選擇“取消取消”按鈕，出現錯誤警告；按鈕，出現錯誤警告； Err置為置為32755 (cdlCancel) 。 False(缺省缺省)：選擇：選擇“取消取消”按鈕，沒有錯誤警告。按鈕，沒有錯誤警告。2 通用對話框的方法通用對

3、話框的方法 除了除了Acton屬性，屬性，VB還提供了一組方法用來打開不同類型還提供了一組方法用來打開不同類型對話框對話框 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp 通用對話框屬性 1 FileName(文件名稱）屬性文件名稱）屬性：在程序中可用該屬性值設置或返回用戶所選定的文件名（包含路徑） 2 FileTitle（文件標題）屬性（文件標題）屬性：在程序中可用該屬性值設置或返回用戶所選定的文件名（不包含路徑） .1 “打開打開”/“另存為另存為”對話框對話框DialogTiltleFileName InitDirFil

4、terFilterIndexDefaultExt 3 Filter（過濾器）屬性：（過濾器）屬性：確定文件列表框中所顯示文件的確定文件列表框中所顯示文件的類型，該屬性的值顯示在類型，該屬性的值顯示在“文件類型文件類型”列表框中。如設置其值列表框中。如設置其值為：為： Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|(*.*) 則在則在“文件類型文件類型”列表框顯示下列三種文件類型以供用戶列表框顯示下列三種文件類型以供用戶選擇選擇 Cocuments(*.DOC) 擴展名為擴展名為DOC的的Word文件文件 Text Files(

5、*.TXT) 擴展名為擴展名為TXT的文本的文本文件文件 All Files|(*.*) 所有所有文件文件 通用對話框 4 FilterIndex（過濾器索引）屬性（過濾器索引）屬性：為整型值，表示：為整型值，表示用戶在文件類型列表框選定了第幾組文件類型。用戶在文件類型列表框選定了第幾組文件類型。 5 InitDir（初始化路徑）屬性（初始化路徑）屬性：該屬性用來指定打開：該屬性用來指定打開對話框中的初始目錄，若不設置，系統則默認為對話框中的初始目錄，若不設置，系統則默認為“C:My Documents”。 6DefaultExt屬性屬性：字符型，用于確定保存文件的缺：字符型，用于確定保存文件

6、的缺省擴展名。省擴展名。 7CancelError屬性屬性：邏輯型值，表示用戶在與對話：邏輯型值，表示用戶在與對話框進行信息交換時，按下框進行信息交換時，按下“ “取消取消” ”按鈕時是否產生出錯信息。按鈕時是否產生出錯信息。 通用對話框例例710 設計一個簡單圖片查看器設計一個簡單圖片查看器.2 “顏色顏色”對話框對話框 顏色對話框是當顏色對話框是當Action值為值為3時的通用時的通用對話框，如右圖。對話框，如右圖。 重要屬性重要屬性 Color：用來返回或設置選定的顏色。用來返回或設置選定的顏色。 例例10.3 例例 中中“顏色顏色.”按鈕的事件過按鈕的事件過程程Private Sub

7、cmdColor_Click() CommonDialog1.Action = 3 打開顏對話框打開顏對話框 Text1.ForeColor = CommonDialog1.Color End Sub 通用對話框.3 “字體字體”對話框對話框 字體對話框是字體對話框是Action為為4時時的通用對話框，如下圖所示，提的通用對話框，如下圖所示，提供用戶選擇字體、字號及字體樣式等。供用戶選擇字體、字號及字體樣式等。字體對話框重要的屬性有：字體對話框重要的屬性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, Font

8、Underline, Max等等. FontName FontBold、FontItalicFontSizeFontStrikethruFontUnderline ColorMin、Max 通用對話框Flags屬性：屬性：設置所顯示的字體類型，設置所顯示的字體類型，數據類型為數據類型為Long。 注意注意 在顯示在顯示“字體字體”對話框前，必須先將對話框前，必須先將 Flags 屬性屬性設置為設置為 cdlCFScreenFonts，cdlCFPrinterFonts，或，或cdcdlCFBoth。否則，會發生字體不存在的錯誤。否則，會發生字體不存在的錯誤。 Flages屬性應取下列值：屬性應

9、取下列值： cdlCFScreenFonts&H1屏幕字體屏幕字體 cdlCFPrinterFonts &H2打印機字體打印機字體 cdlCFBoth&H3打印機字體和屏幕字體。打印機字體和屏幕字體。 cdlCFEffects &H100 顯示刪除線和下劃線檢查框以及顏色組合框顯示刪除線和下劃線檢查框以及顏色組合框 通用對話框例中例中“字體字體.”按鈕的事件過程按鈕的事件過程Private Sub cmdFont_Click( ) CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Acti

10、on = 4 .End Sub 通用對話框.4 “打印打印”對話框對話框 打印對話框是當打印對話框是當Action為為5時時的的通用對話框，是一個標準打印對話通用對話框，是一個標準打印對話窗口界面，如右圖。窗口界面，如右圖。屬性屬性FromPage：整型，起始頁號整型，起始頁號Topage：整型，終止頁號整型，終止頁號Copies：整型，打印份數整型，打印份數 如果打印驅動程序不支持多份如果打印驅動程序不支持多份 打印，該屬性有可能始終返回打印，該屬性有可能始終返回 1。 FromPageTopageCopies 注意：打印對話框本身不能處理打印工作，僅僅是一個供用戶選注意：打印對話框本身不能

11、處理打印工作，僅僅是一個供用戶選擇打印參數的界面，所選參數存于各屬性中，再通過編程來處理打印擇打印參數的界面，所選參數存于各屬性中，再通過編程來處理打印操作。操作。例例 中中“打印打印.”按鈕的事件過程按鈕的事件過程.5 “幫助幫助”對話框對話框 幫助對話框是當幫助對話框是當Action為為6時的對話框，是一個標準的對時的對話框，是一個標準的對話窗口用于制作應用程序的在線幫助。話窗口用于制作應用程序的在線幫助。 幫助文件需要用其它的工具制作，幫助文件需要用其它的工具制作， 如如Microsoft Windows Help Compiler。 屬性屬性1 HelpCommand（幫助命令）屬性（

12、幫助命令）屬性：用于返回或設置需要的：用于返回或設置需要的在線在線Help幫助類型。幫助類型。2 HelpFile（幫助文件）屬性（幫助文件）屬性：用于指定已制作好的幫助文件：用于指定已制作好的幫助文件的路徑及文件名的路徑及文件名3HelpKey（幫助關鍵字）屬性（幫助關鍵字）屬性：用于指定幫助信息的內容，：用于指定幫助信息的內容， 幫助窗口中顯示由該幫助關鍵字指定的幫助信息。幫助窗口中顯示由該幫助關鍵字指定的幫助信息。4 HelpContext（幫助上下文）屬性：（幫助上下文）屬性： 通用對話框 設計一個窗體，包含設計一個窗體，包含1個文本框（個文本框（Text1）和）和6個分別為個分別為 “打開打開”（cmdOpen）、）、“另存為另存為”（cmdSave）、）、“顏色顏色”（cmdColor）、）、“字體字體”（cmdFont）、）、“打印打印”（cmdPrinter）和）和“幫助幫助”（cmdHelp）命令按鈕。本例中僅）命令按鈕。本例中僅涉及前兩種對