【正文】 用于設置顯示的文件的類型，格式為：描述 |通配符，若需設置多項時，可以用管道符 (|)隔開。如： All Files(*.*)|*.*|Text Files(*.txt)|*.txt 標志 (Flags) 用于設置對話框的一些選項，可以是多個值的組合。 缺省擴展名 (DefaultExt) 使用該屬性指定缺省的擴展文件名，如 .txt 或 .doc。當保存一個沒有擴展名的文件時，自動給該文件指定由 DefaultExt 屬性指定的擴展名。 文件最大長度 (MaxFileSize) 用于指定文件名的最大字節(jié)數。該屬性的范圍是 1~32K。缺省是 256。 過濾器索引 (FilterIndex) 當為一個對話框要指定一個以上的過濾器時，需使用 FilterIndex 屬性確定哪一個作為缺省過濾器顯示。對于所定義的第 1個過濾器其索引是 1。 167。 ActiveX控件 (2) 使用“另存為”對話框 “另存為”對話框可以用來指定文件所要保存的驅動器、文件夾以及文件名、文件擴展名，使用“另存為”對話框的步驟同上，首先應在窗體中增加“通用對話框”控件，然后在“屬性頁”對話框中設置屬性，其中屬性頁的設置同上。最后使用 CommonDialog控件的 ShowSave方法來顯示“另存為”對話框： 控件名 .ShowSave 167。 ActiveX控件 (3) 使用“顏色”對話框 “顏色”對話框用來在調色板中選擇顏色，或者創(chuàng)建自定義顏色， 在運行時，當用戶選擇一個顏色并關閉對話框后， Color屬性得到所選的顏色。使用“顏色”對話框的步驟如下： ① 在窗體中增加“通用對話框”控件。 ② 在“屬性頁”對話框中設置屬性，其中各屬性描述如下表所示。 ③ 使用 CommonDialog控件的 ShowColor方法來顯示“顏色”對話框。 控件名 .ShowColor 屬 性 描 述 顏色 (Color) 用于設置初始顏色，并可返回用戶所選的顏色。 標志 (Flags) 設置對話框的一些顏色。 167。 ActiveX控件 標志 Flags的值 常數 值 描述 CdlCCFullOpen amp。H2 顯示全部的對話框，包括定義自定義顏色部分。 CdlCCShowHelpButton amp。H8 使對話框顯示幫助按鈕。 CdlCCPreventFullOpen amp。H4 使定義自定義顏色命令按鈕無效并防止定義自定義顏色。 CdlCCRGBInit amp。H1 為對話框設置初始顏色值。 167。 ActiveX控件 (4) 使用“字體”對話框 “字體”對話框設置并返回所用字體的名字、樣式、大小、效果及顏色。 167。 ActiveX控件 “字體”對話框明確的屬性 屬 性 確 定 Color 選定的顏色。如要使用這個屬性，必須先將 Flags屬性設置為 cdlCFEffects或 256。 FontBold 是否選定了粗體。 FontItalic 是否選定了斜體。 FontStrikethru 是否選定刪除線。如要使用這個屬性，必須先將 Flags屬性設置為 cdlCFEffects或256。 FontUnderline 是否選定下劃線。如要使用這個屬性，必須先將 Flags屬性設置為 cdlCFEffects或256。 FontName 選定字體的名稱。 FontSize 選定字體的大小。 167。 ActiveX控件 使用“字體”對話框的步驟如下： ① 在窗體中增加“通用對話框”控件。 ② 在“屬性頁”對話框中設置屬性，其中各屬性描述如表所示。 屬 性 描 述 FontName 用于設置字體名稱中的初始字體，并可返回用戶所選擇的字體名稱。 FontSize 用于設置對話框中的初始字體大小，并可返回用戶所選擇的字體大小。默認值為 8。 Min、 Max 用于設置對話框中“大小”列表框中的最小值和最大值。 Flags 設置對話框的一些選項。 Style 用于設置字體風格，并可返回用戶選中的字體風格，它包括 4個選項：粗體 (FontBold)、斜體(FontItalic)、下劃線 (FontUnderline)、水平刪除線 (FontStrikethru) 167。 ActiveX控件 注意： 必須將 Flags屬性設為下列常數之一與其他選項之和： cdlCFScreenFonts或 1 (屏幕字體 ) cdlCFPrinterFonts或 2(打印機字體 ) cdlCFBoth或 3(=1+2 兩種字體皆有 ) 例如：設為 =259(=256+3 是 cdlCFEffects常數與 3之和 ,在對話框中將出現顏色、效果等選項 )。 假如不設置 Flags屬性，將會發(fā)生不存在字體錯誤。 ③ 使用 ComonDialog控件的 ShowFont方法來顯示“字體”對話框： 控件名 .ShowFont 167。 ActiveX控件 (5) 使用“打印”對話框 “打印”對話框可用以指定打印輸出方式?？梢灾付ū淮蛴№摰姆秶?，打印質量，打印的份數等等。這個對話框還包含當前安裝的打印機的信息，并允許配置或重新安裝缺省打印機。 167。 ActiveX控件 注意： 這個對話框并不給打印機傳送數據，只是指定希望打印數據的情況。如果 PrinterDefault屬性為 True，可以使用 Printer對象按選定的格式打印數據。 使用“打印”對話框的步驟如下： ① 在窗體中增加“通用對話框”控件。 ② 在“屬性頁”對話框中設置屬性，其中各屬性描述如表所示。 ③ 最后使用 CommonDialog控件的 ShowFont方法來顯示“打印”對話框： 控件名 .ShowFont 屬性 決定 Copies 打印的份數。 FromPage 開始打印頁。 ToPage 結束打印頁。 hDC 所選打印機的設備描述體。 167。 ActiveX控件 (6) 使用“幫助” CommonDialog控件的 ShowHelp方法可運行 Windows的幫助引擎 ()，并顯示由 HelpFile屬性設定的一個幫助文件。 通過 HelpCommand屬性的設置，可以告訴該幫助引擎想要哪種類型的聯機幫助，比如是上下文相關，或是特定關鍵字的幫助等。 167。 ActiveX控件 三、應用舉例 選擇“新建”工程，進入窗體設計器，創(chuàng)建 1通用對話框 CommonDialog 1個框架 Frame1和 1個命令按鈕數組 Command1(0)Command1(3)。然后，選定框架 Frame1，在其中增加一個文本框 Text1。 167。 ActiveX控件 然后編寫命令按鈕數組 Command1()的 Click事件的代碼： Private Sub Command1_Click(Index As Integer) Dim n As Integer n = Index Select Case n Case 0 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt = 1 = = 從打開對話框返回 Case 1 = = 從另存為對話框返回 Case 2 = 從顏色對話框返回 = = = 從顏色對話框返回 167。 ActiveX控件 Case 3 = 3 Or 256 With text1 .FontName = .FontSize = .FontStrikethru = .FontBold = .FontItalic = .FontUnderline = .ForeColor = End With = 從字體對話框返回 = 從字體對話框返回 End Select End Sub 167。 控件的默認屬性 控 件 屬 性 CheckBox(復選框 ) Value ComboBox(組合框 ) Text CommandButton(命令按鈕 ) Caption CommonDialog(通用對話框 ) FileName Data(數據 ) Caption DBCombo(數據綁定組合框 ) Text DBGrid(數據綁定網格 ) Text DBList(數據綁定列表框 ) Text DirListBox(目錄列表框 ) Path DriveListBox(驅動器列表框 ) Drive FileListBox(文件列表框 ) FileName Frame(框架 ) Caption HscrollBar(水平滾動條 ) Value Image(圖像 ) Picture Label(標簽 ) Caption Line(線形 ) Visible ListBox(列表框 ) Text OptionButton(選項按鈕 ) Value PictureBox(圖片框 ) Picture Shape(形狀 ) Shape TextBox(文本框 ) Text Timer(定時器 ) Enabled VscrollBar(垂直滾動條 ) Value 本章小結 控件分類 VisualBasic中控件分 3類： (1)內部控件 (2)ActiveX控件 (3)可插入的對象 焦點 焦點的英文是 Focus，它是接收用戶鼠標或鍵盤輸入的能力。當對象具有焦點時，可接收用戶的輸入。在 Windows系統中，任一時刻可運行幾個應用程序，但只有具有焦點的應用程序才有活動標題欄，才能接受用戶的輸入。而在有幾個控件的 VisualBasic窗體中，只有具有焦點的控件才可以接受用戶的輸入。 常用控件