1、第五章 高級界面通用對話框及文件控件,5.1 通用對話框(CommonDialog),屬性 Action：打開通用對話框。 DialogTiltle：對通用話框標(biāo)題。 CancelError True：選擇“取消”按鈕，出現(xiàn)錯誤警告； Err.Number置為32755(cdCancel)。 False(缺省)：選擇“取消”按鈕，沒有錯誤警告。,工程/部件,選定 部件標(biāo)簽,選定Microsoft CommDialog Control 6.0,通用對話框添加到工具箱,確定,打開通用對話框：,屬性 FileName：包含路徑 FileTitle：不包含路徑 Filter：例如， Documents

2、(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：決定在文件類型列表框中顯示第幾組類型的文件。 InitDir：初始化路徑,1. “打開”文件對話框,DialogTiltle,FileName,InitDir,Filter,FilterIndex,DefaultExt,例5.1 簡單的文本編輯程序,當(dāng)按“打開”按鈕，在“打開”對話框按“取消”按鈕，顯示有關(guān)信息。,Open CommonDialog1.filename For Input As #1 Do While Not EOF(1) Line Input #1,

3、 inputdata txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _ Chr(13) + Chr(10) Loop Close #1,2. “另存為”對話框 沒有提供真正的存儲文件操作，仍需要編程完成儲存操作。 屬性 DefaultExt：缺省擴展名 例8.1中“另存為.”按鈕的事件過程 3. “顏色”對話框 屬性 Color：返回或設(shè)置選定的顏色。,4. “字體”對話框,Flags屬性：指示所顯示的字體類型，必須先設(shè)置。 cdlCFScreenFonts&H1屏幕字體 cdlCFPrinterFonts&H2打印機字體 cdlCFBot

4、h&H3打印機字體和屏幕字體。 cdlCFEffects&H100顯示刪除線和下劃線檢查框以及顏色組合框,FontName,FontBold、FontItalic,FontSize,FontStrikethru,FontUnderline,Color,Min、Max,5. “打印”對話框 屬性 FromPage：起始頁號 ToPage：終止頁號 Copies：打印份數(shù) 如果打印驅(qū)動程序不支持多份打印，該屬性有可能始終返回 1。 6. “幫助”對話框 幫助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。 屬性 HelpCommand：在線Help幫助類

5、型 HelpFile：Help文件的路徑及其名稱 HelpKey：在幫助窗口顯示由該幫助關(guān)鍵字指定的幫助信息。,5.2 文件操作控件驅(qū)動器、目錄和文件列表框,Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub,Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub,Sub Form_Load() Item = “所有文件(*.*)” cboType.AddItem Item + Space(20 - Len(Item) + *.* Item

6、 = 窗體文件(*.FRM) cboType.AddItem Item + Space(20 - Len(Item) + *.FRM Item = 位圖文件(*.BMP) cboType.AddItem Item + Space(20 - Len(Item) + *.BMP cboType.ListIndex = 2 End Sub Sub cboType_Click() filFile.Pattern = Mid(cboType.Text, 21) End Sub,Sub filFile_Click( ) End Sub Sub filFile_DblClick( ) End Sub,例5.

7、2示例程序,1. 驅(qū)動器列表框 Drive屬性： 對象.Drive = drive Change事件： 重新設(shè)置Drive屬性引發(fā)Change事件 2. 目錄列表框 Path屬性 ： 對象.Path = pathname Change事件： 重新設(shè)置Path 屬性引發(fā)Change事件,3. 文件列表框 Path屬性： 顯示該路徑下的文件。 重新設(shè)置Path屬性引發(fā)PathChange事件。 Pattern屬性： 顯示的文件類型。 對象.Pattern = value 重新設(shè)置Pattern屬性引發(fā)PatternChange事件。 例如：filFile.Pattern = “*.frm”，顯示*.frm文件。 FileName屬性： 對象.FileName = pathname 引用時只返回文件名，相當(dāng)于filFile.List(filFile .ListIndex)，需用Path屬性得到其路徑；設(shè)置時可帶路徑。,Click、DblClick事件： 例如，單擊輸出文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub