vb文件系統(tǒng)控件

1、第十三章第十三章 文件系統(tǒng)控件文件系統(tǒng)控件本章內(nèi)容及要求：本章內(nèi)容及要求：1. 掌握文件系統(tǒng)控件（驅(qū)動器列表框掌握文件系統(tǒng)控件（驅(qū)動器列表框DriveListBox、 目錄列表框目錄列表框DirListBox、文件列表框、文件列表框FilelistBox。2. 掌握掌握CommonDialog控件的使用?？丶氖褂谩１菊轮攸c：本章重點：文件系統(tǒng)控件驅(qū)動器列表框、目錄列表框、文件列文件系統(tǒng)控件驅(qū)動器列表框、目錄列表框、文件列表框的使用；表框的使用；13-1 標準文件控件標準文件控件VB提供了提供了3種可直接瀏覽系統(tǒng)目錄結(jié)構(gòu)和文件的控件：種可直接瀏覽系統(tǒng)目錄結(jié)構(gòu)和文件的控件： 驅(qū)動器列表框、目錄列

2、表框、文件列表框。驅(qū)動器列表框、目錄列表框、文件列表框。 驅(qū)動器列表框目錄列表框文件列表框13-1-1 驅(qū)動器列表框（驅(qū)動器列表框（DriveListBox） 驅(qū)動器列表框控件，通常只顯示驅(qū)動器列表框控件，通常只顯示當前驅(qū)動器名稱當前驅(qū)動器名稱，單擊向下箭頭，就會下拉出當前系統(tǒng)擁有的所有磁盤驅(qū)單擊向下箭頭，就會下拉出當前系統(tǒng)擁有的所有磁盤驅(qū)動器，供用戶選擇。動器，供用戶選擇。1重要屬性重要屬性 Drive屬性屬性是驅(qū)動器列表框是驅(qū)動器列表框控件最重要和常用的屬性，該屬控件最重要和常用的屬性，該屬性在設(shè)計時不可用。性在設(shè)計時不可用。使用格式：使用格式： 對象對象.Drive = 例如：例如： D

3、rive1.drive=“D:”2重要事件重要事件Change事件事件 在程序運行時，當在程序運行時，當選擇一個新的驅(qū)動器選擇一個新的驅(qū)動器或或通過代碼通過代碼改改變變Drive屬性的設(shè)置時都會觸發(fā)驅(qū)動器列表框的屬性的設(shè)置時都會觸發(fā)驅(qū)動器列表框的change事事件發(fā)生。件發(fā)生。 13-1-2 目錄列表框（目錄列表框（DirListBox） 目錄列表框（目錄列表框（DirListBox） 控件用來控件用來當前驅(qū)動器目錄當前驅(qū)動器目錄結(jié)構(gòu)及結(jié)構(gòu)及當前目錄下的所有子目錄。供用當前目錄下的所有子目錄。供用戶選擇其中一個目錄為當前目錄。戶選擇其中一個目錄為當前目錄。1常用屬性常用屬性 Path屬性屬性是

4、目錄列表框控件的最常用的屬性，用于返是目錄列表框控件的最常用的屬性，用于返回或設(shè)置當前路徑。該屬性在回或設(shè)置當前路徑。該屬性在設(shè)計時是不可用設(shè)計時是不可用的。的。使用格式：使用格式： 對象對象.Path = 其中：其中： 用來表示路徑名的字符串表達式。用來表示路徑名的字符串表達式。 例如，例如，Dir1.Path= C:Mydir。說明：說明： Path屬性也可以直接設(shè)置限定的網(wǎng)絡(luò)路徑屬性也可以直接設(shè)置限定的網(wǎng)絡(luò)路徑 如，如，網(wǎng)絡(luò)計算機名網(wǎng)絡(luò)計算機名共享目錄名共享目錄名path List、ListCount 和和 ListIndex等屬性等屬性，這些屬性與列，這些屬性與列表框（表框（ListB

5、ox）控件基本相同?？丶鞠嗤?。 目錄列表框中的當前目錄的目錄列表框中的當前目錄的ListIndex 值為值為-1。緊鄰其上的目錄。緊鄰其上的目錄具有具有 ListIndex 值為值為-2，再上一個，再上一個的的ListIndex值為值為-3，如右圖所示。，如右圖所示。 2重要事件重要事件Change事件事件 在程序運行時，每當改變當前目錄，即目錄列表框的在程序運行時，每當改變當前目錄，即目錄列表框的Path屬性發(fā)生變化時，都要觸發(fā)其屬性發(fā)生變化時，都要觸發(fā)其Change事件發(fā)生。事件發(fā)生。 注意：注意：單擊不改變當前目錄單擊不改變當前目錄雙擊才能改變當前目錄雙擊才能改變當前目錄312401

6、234567 文件列表框控件用簡單列表形式顯示文件列表框控件用簡單列表形式顯示 Path 屬性指定屬性指定的目錄中所有指定文件類型的文件。的目錄中所有指定文件類型的文件。13-1-3 文件列表框（文件列表框（FilelistBox）1常用屬性常用屬性（1）Path屬性屬性 用于返回和設(shè)置文件列表框當前目錄，設(shè)計時不可用。用于返回和設(shè)置文件列表框當前目錄，設(shè)計時不可用。 說明：當說明：當Path值的改變時，會引發(fā)一個值的改變時，會引發(fā)一個PathChange事件事件。 （2）Filename屬性屬性 用于返回或設(shè)置被選定文件的文件名，設(shè)計時不可用。用于返回或設(shè)置被選定文件的文件名，設(shè)計時不可用。

7、 說明：說明：Filename屬性屬性不包括路徑名不包括路徑名。 要從文件列表框（要從文件列表框（File1）中獲得全路徑的文件名）中獲得全路徑的文件名Fname$，用下面的程序代碼：，用下面的程序代碼： If Right(file1.path,1) = Then Fname$=file1.path & file1.filename Else Fname$=file1.path & & file1.filename End If（3）Pattern屬性屬性 用于返回或設(shè)置文件列表框所顯示的文件類型。可在用于返回或設(shè)置文件列表框所顯示的文件類型?？稍谠O(shè)計狀態(tài)設(shè)置或在程序運

8、行時設(shè)置。缺省時表示所有文件。設(shè)計狀態(tài)設(shè)置或在程序運行時設(shè)置。缺省時表示所有文件。設(shè)置形式為：設(shè)置形式為： 對象對象.Pattern = value 其中其中value是一個用來指定文件類型的字符串表達式，是一個用來指定文件類型的字符串表達式，并可使用包含通配符（并可使用包含通配符（“*”和和“？”）例如：例如：File1.Pattern= *.bmp File1.Pattern= *.txt ; *.Doc File1.Pattern= ?.txt“注意：注意：要指定顯示多個文件類型，使用要指定顯示多個文件類型，使用“;”為分隔符為分隔符 重新設(shè)置重新設(shè)置Pattern屬性引發(fā)屬性引發(fā)“Pa

9、tternChange”事件事件。（4）文件屬性：）文件屬性： Archive：True，只顯示文檔文件；，只顯示文檔文件； Normal：True，只顯示正常標準文件；，只顯示正常標準文件； Hidden：True，只顯示隱含文件；，只顯示隱含文件； System：True，只顯示系統(tǒng)文件。，只顯示系統(tǒng)文件。 ReadOnly：True，只顯示只讀文件。，只顯示只讀文件。（5）MultiSelect 屬性屬性 文件列表框文件列表框MultiSelect 屬性與屬性與ListBox控件中控件中MultiSelect 屬性使用完全相同。屬性使用完全相同。 默認情況是默認情況是0，即不允許選取多項

10、。，即不允許選取多項。 （6）List、ListCount 和和 ListIndex 屬性屬性 文件列表框中的文件列表框中的List、ListCount 和和 ListIndex 屬性屬性與列表框（與列表框（ListBox）控件的）控件的List、ListCount 和和 ListIndex 屬性的含義和使用方法相同，在程序中對文件列表框中屬性的含義和使用方法相同，在程序中對文件列表框中的所有文件進行操作，就有用到這些屬性。的所有文件進行操作，就有用到這些屬性。 因此有：因此有：File1.FileName=File1.List(File1.ListIndex) 將文件列表框（將文件列表框（F

11、ile1）中的所有文件名顯示在窗體上：）中的所有文件名顯示在窗體上： For i = 0 To File1.ListCount - 1 Print File1.List(i) Next i2. 主要事件主要事件 （1）PathChange事件事件 當路徑被代碼當路徑被代碼中中FileName或或Path屬性的設(shè)置所改變屬性的設(shè)置所改變時，此事件發(fā)生。時，此事件發(fā)生。 說 明 ：說 明 ： 可使用可使用 PathChange事件過 程 來 響 應(yīng)事件過 程 來 響 應(yīng)FileListBox控件中路徑的改變?？丶新窂降母淖儭＃?）PatternChange事件事件 當文件的列表樣式，如：當文件的

12、列表樣式，如：*.*，被代碼中對，被代碼中對FileName或或Path屬性的設(shè)置所改變時，此事件發(fā)生。屬性的設(shè)置所改變時，此事件發(fā)生。 說明：說明：可使用可使用PatternChange事件過程來響應(yīng)在事件過程來響應(yīng)在FileListBox控件中樣式的改變?？丶袠邮降母淖?。 （3） Click、DblClick事件：事件：例如：單擊輸出文件名。例如：單擊輸出文件名。Sub filFile_Click( )MsgBox filFile.FileNameEnd Sub例如：雙擊執(zhí)行可執(zhí)行程序例如：雙擊執(zhí)行可執(zhí)行程序Sub File1_DblClick( ) Dim Fname As Strin

13、g If Right(file1.path,1) = Then Fname=file1.path & file1.filename Else Fname=file1.path & & file1.filename End If RetVal = Shell(Fname, 1) 執(zhí)行程序執(zhí)行程序End Sub說明：說明： 要使驅(qū)動器、目錄和文件列表框同步顯示，那么就要使驅(qū)動器、目錄和文件列表框同步顯示，那么就需要需要編寫代碼編寫代碼才能使它們之間彼此同步。才能使它們之間彼此同步。 文件系統(tǒng)控件的聯(lián)動。文件系統(tǒng)控件的聯(lián)動。Sub Drive1_Change() Dir1.P

14、ath = Drive1.DriveEnd SubSub Dir1_Change() filFile.Path = Dir1.PathEnd Sub13-2 通用通用“打開打開”文件對話框文件對話框VB將常用的一些對話框如：打開文件、保存、選擇字體和顏色、打印設(shè)置對話框等做成“通用對話框”，用戶可在程序中進行調(diào)用。13-2-1通用對話框控件（通用對話框控件（CommonDialog）1、向工具箱中添加通用對話框控件、向工具箱中添加通用對話框控件：“工程”-“部件”-選擇Microsoft Common Dialog Control 6.0-單擊“確定”按鈕2、使用通用對話框控件、使用通用對話框

15、控件： 通用對話框控件的使用方法與標準控件完全一樣，可將通用對話框控件加到窗體中。 在程序運行時，通用對話框控件可以顯示和打開文件、保存文件、打印文件等不同的對話框，這由通用對話框控件的由通用對話框控件的Action屬性的值或?qū)傩缘闹祷蛴闷洳煌姆椒▉頉Q定用其不同的方法來決定，13-2-2“打開打開”對話框和保存對話框?qū)υ捒蚝捅４鎸υ捒?文件對話框文件對話框)“打開打開”對話框和對話框和“保存保存”對話框常用屬性和方法對話框常用屬性和方法:對話框標題對話框標題:DialogTitle文件名稱文件名稱:FileName初始化路徑初始化路徑:InitDir過濾器過濾器:Filter標志標志:Fla

16、gs默認擴展名默認擴展名:DefaultEXT文件最大長度文件最大長度:MaxFileSize過濾器索引過濾器索引:FilterIndex取消引發(fā)錯誤取消引發(fā)錯誤:CanceError顯示顯示“打開打開”對話框方法對話框方法:ShowOpen顯示顯示“保存保存”對話框方法對話框方法:ShowSave13-2-3 其他對話框其他對話框1、“顏色顏色”對話框?qū)υ捒?顏色對話框用來在調(diào)色板中選擇顏色,或者創(chuàng)建自定義顏色. 在程序中可以利用通用對話框控件建立“顏色”對話框.“顏色顏色”對話框的屬性對話框的屬性:具有與文件對話框相同的一些屬性,如:CancelError、DialogTitle等，此外還有兩個屬性，既：