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

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

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

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

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

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

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

7、 說(shuō)明：說(shuō)明：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è)置文件列表框所顯示的文件類(lèi)型?？稍谟糜诜祷鼗蛟O(shè)置文件列表框所顯示的文件類(lèi)型?？稍谠O(shè)計(jì)狀態(tài)設(shè)置或在程序運(yùn)

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

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

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

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

12、列表樣式，如：*.*，被代碼中對(duì)，被代碼中對(duì)FileName或或Path屬性的設(shè)置所改變時(shí)，此事件發(fā)生。屬性的設(shè)置所改變時(shí)，此事件發(fā)生。 說(shuō)明：說(shuō)明：可使用可使用PatternChange事件過(guò)程來(lái)響應(yīng)在事件過(guò)程來(lái)響應(yīng)在FileListBox控件中樣式的改變?？丶袠邮降母淖儭?（3） Click、DblClick事件：事件：例如：?jiǎn)螕糨敵鑫募?。例如：?jiǎn)螕糨敵鑫募?。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說(shuō)明：說(shuō)明： 要使驅(qū)動(dòng)器、目錄和文件列表框同步顯示，那么就要使驅(qū)動(dòng)器、目錄和文件列表框同步顯示，那么就需要需要編寫(xiě)代碼編寫(xiě)代碼才能使它們之間彼此同步。才能使它們之間彼此同步。 文件系統(tǒng)控件的聯(lián)動(dòng)。文件系統(tǒng)控件的聯(lián)動(dòng)。Sub Drive1_Change() Dir1.P

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

15、控件： 通用對(duì)話(huà)框控件的使用方法與標(biāo)準(zhǔn)控件完全一樣，可將通用對(duì)話(huà)框控件加到窗體中。 在程序運(yùn)行時(shí)，通用對(duì)話(huà)框控件可以顯示和打開(kāi)文件、保存文件、打印文件等不同的對(duì)話(huà)框，這由通用對(duì)話(huà)框控件的由通用對(duì)話(huà)框控件的Action屬性的值或?qū)傩缘闹祷蛴闷洳煌姆椒▉?lái)決定用其不同的方法來(lái)決定，13-2-2“打開(kāi)打開(kāi)”對(duì)話(huà)框和保存對(duì)話(huà)框?qū)υ?huà)框和保存對(duì)話(huà)框(文件對(duì)話(huà)框文件對(duì)話(huà)框)“打開(kāi)打開(kāi)”對(duì)話(huà)框和對(duì)話(huà)框和“保存保存”對(duì)話(huà)框常用屬性和方法對(duì)話(huà)框常用屬性和方法:對(duì)話(huà)框標(biāo)題對(duì)話(huà)框標(biāo)題:DialogTitle文件名稱(chēng)文件名稱(chēng):FileName初始化路徑初始化路徑:InitDir過(guò)濾器過(guò)濾器:Filter標(biāo)志標(biāo)志:Fla

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