1、http:/ n教學(xué)目標(biāo)：教學(xué)目標(biāo)：掌握Open語句和Close語句的用法；掌握Print #和write # 語句的用法；掌握Input # 和Line Inpue # 語句的用法；掌握Put # 和Get #語句的用法。掌握通用對話框的使用方法。http:/ 對文件的操作主要涉及到文件的打開，對文件進(jìn)行讀對文件的操作主要涉及到文件的打開，對文件進(jìn)行讀或?qū)懸约瓣P(guān)閉文件。為了能更容易地確定文件的物理或?qū)懸约瓣P(guān)閉文件。為了能更容易地確定文件的物理位置，還需要提供打開和另存為對話框，在位置，還需要提供打開和另存為對話框，在VB中使中使用通用對話框最容易。用通用對話框最容易。 n10.1 通用對話框

2、通用對話框 (CommonDialog) n10.2 文件操作文件操作 n10.3 其他有關(guān)文件和目錄的操作其他有關(guān)文件和目錄的操作 n10.4 綜合運(yùn)用綜合運(yùn)用 http:/ 保存保存100個試驗(yàn)數(shù)據(jù)個試驗(yàn)數(shù)據(jù) 設(shè)計一個窗體，在窗體上添加一個文本框和設(shè)計一個窗體，在窗體上添加一個文本框和3個命個命令按鈕。運(yùn)行程序時，單擊【計算】模擬產(chǎn)生令按鈕。運(yùn)行程序時，單擊【計算】模擬產(chǎn)生100個試驗(yàn)數(shù)據(jù)并顯示在文本框中，單擊【寫入】將個試驗(yàn)數(shù)據(jù)并顯示在文本框中，單擊【寫入】將100個試驗(yàn)數(shù)據(jù)存盤，單擊【退出】結(jié)束程序的執(zhí)個試驗(yàn)數(shù)據(jù)存盤，單擊【退出】結(jié)束程序的執(zhí)行。行。 http:/ 右鍵單擊【工具箱】空

3、白位置，選擇彈出菜單中的【部件】命令，彈出【部件】對話框。 在對話框的【控件】列表框中選擇MicorSoft Common Dialog Control 6.0選項(使該選項前的復(fù)選框中出現(xiàn)對鉤)。 單擊【確定】按鈕。此時，工具箱中出現(xiàn)了通用對話框的圖標(biāo)，通用對話框在工具箱中的圖標(biāo)是 http:/ 當(dāng)把通用對話框添加到窗體后，實(shí)際上已把上述各種標(biāo)準(zhǔn)對話框加入到了應(yīng)用程序中，但程序運(yùn)行時卻看不見他們。當(dāng)需要用某一個對話框時，可以使用通用對話框的Action 屬性或通用對話框顯示方法。 http:/ Action Action 屬性屬性 顯示方法顯示方法n打開打開 1 1 ShowOpen Sho

4、wOpenn另存為另存為 2 2 ShowSave ShowSaven顏色顏色 3 3 ShowColor ShowColorn字體字體 4 4 ShowFont ShowFontn打印打印 5 5 ShowPrinter ShowPrintern幫助幫助 6 6 ShowHelp ShowHelphttp:/ CommonDialog1.ShowSave 通用對話框系統(tǒng)的默認(rèn)名稱為CommonDialog1、CommonDialog2等。 http:/ 通用對話框像其他控件一樣有自己的屬性，可以在【屬性】通用對話框像其他控件一樣有自己的屬性，可以在【屬性】窗格中設(shè)置，也可以在程序代碼中設(shè)置。

5、窗格中設(shè)置，也可以在程序代碼中設(shè)置。VB還提供【屬性還提供【屬性頁】對話框，使用【屬性頁】對話框可以更直觀設(shè)置通用對頁】對話框，使用【屬性頁】對話框可以更直觀設(shè)置通用對話框?qū)傩灾怠Ｔ捒驅(qū)傩灾怠?打開【屬性頁】對話框的方法：打開【屬性頁】對話框的方法： 把通用對話框添加到窗體上，右鍵單擊該控件，從彈出的快把通用對話框添加到窗體上，右鍵單擊該控件，從彈出的快捷菜單中選擇【屬性】，便打開【屬性頁】對話框，【屬性捷菜單中選擇【屬性】，便打開【屬性頁】對話框，【屬性頁】含有頁】含有5個選項卡，選擇所需要標(biāo)簽，可設(shè)計相應(yīng)對話框個選項卡，選擇所需要標(biāo)簽，可設(shè)計相應(yīng)對話框的界面。的界面。http:/ http

6、:/ 瀏覽圖片瀏覽圖片 設(shè)計一個窗體，在窗體上添加一個圖像框和兩個命設(shè)計一個窗體，在窗體上添加一個圖像框和兩個命令按鈕。運(yùn)行程序時，單擊【瀏覽】可彈出【打開令按鈕。運(yùn)行程序時，單擊【瀏覽】可彈出【打開圖片文件】對話框，在【打開圖片文件】對話框選圖片文件】對話框，在【打開圖片文件】對話框選擇文件后，將顯示在圖像框中，單擊【退出】結(jié)束擇文件后，將顯示在圖像框中，單擊【退出】結(jié)束程序的執(zhí)行。程序的執(zhí)行。 http:/ 文件對話框?qū)傩栽O(shè)置文件對話框?qū)傩栽O(shè)置 在程序中要使用文件對話框，應(yīng)設(shè)置通用對話框的【打開在程序中要使用文件對話框，應(yīng)設(shè)置通用對話框的【打開/另另存為】選項卡。存為】選項卡。l l 對話

7、框標(biāo)題：字符串類型，設(shè)置文件對話框的標(biāo)題，默認(rèn)值對話框標(biāo)題：字符串類型，設(shè)置文件對話框的標(biāo)題，默認(rèn)值為【打開】或【另存為】。為【打開】或【另存為】。l l 文件名稱：字符串類型，設(shè)置文件對話框中【文件名稱】的文件名稱：字符串類型，設(shè)置文件對話框中【文件名稱】的初始值，用戶選擇的文件名也保留在此屬性中，返回用戶所初始值，用戶選擇的文件名也保留在此屬性中，返回用戶所選擇或鍵入的文件名選擇或鍵入的文件名( (含盤符和路徑含盤符和路徑) )。 http:/ 顏色對話框?qū)傩栽O(shè)置顏色對話框?qū)傩栽O(shè)置在程序中要使用顏色對話框，應(yīng)設(shè)置通用對話框的【顏色】在程序中要使用顏色對話框，應(yīng)設(shè)置通用對話框的【顏色】選項卡

8、。選項卡。 顏色對話框僅有兩個屬性可以設(shè)置顏色對話框僅有兩個屬性可以設(shè)置 標(biāo)志：整型，設(shè)置對話框的一些選項。如：標(biāo)志：整型，設(shè)置對話框的一些選項。如：1表示打開對表示打開對話框僅含基本顏色，并用話框僅含基本顏色，并用“顏色顏色”屬性規(guī)定待選顏色；屬性規(guī)定待選顏色；2表示打開對話框含有自定義顏色。表示打開對話框含有自定義顏色。 顏色：長整型，規(guī)定待選顏色，待選顏色在顏色對話框中顏色：長整型，規(guī)定待選顏色，待選顏色在顏色對話框中是用虛線圍著的顏色。是用虛線圍著的顏色。 http:/ 字體對話框?qū)傩栽O(shè)置字體對話框?qū)傩栽O(shè)置n在程序中要使用字體對話框，應(yīng)設(shè)置通用對話框的【字體】在程序中要使用字體對話框，

9、應(yīng)設(shè)置通用對話框的【字體】選項卡。選項卡。 字體名稱：字符串類型，設(shè)置默認(rèn)使用字體名稱，用戶可字體名稱：字符串類型，設(shè)置默認(rèn)使用字體名稱，用戶可以重新選擇，返回用戶所選擇的字體名稱。以重新選擇，返回用戶所選擇的字體名稱。 字體大小：整型，設(shè)置對話框中的默認(rèn)使用字體大小，用字體大小：整型，設(shè)置對話框中的默認(rèn)使用字體大小，用戶可以重新選擇，可返回用戶所選擇的字體大小。戶可以重新選擇，可返回用戶所選擇的字體大小。 標(biāo)志：整型，標(biāo)志為標(biāo)志：整型，標(biāo)志為1時，使用屏幕字體，為時，使用屏幕字體，為2時，使用屏?xí)r，使用屏幕和打印字體。幕和打印字體。 樣式：一組邏輯值，設(shè)置字體風(fēng)格，可返回用戶選中的字體樣式：

10、一組邏輯值，設(shè)置字體風(fēng)格，可返回用戶選中的字體風(fēng)格。風(fēng)格。 http:/ 設(shè)置字體、字形和顏色 設(shè)計一個窗體，在窗體上添加一個文本框和4個命令按鈕。運(yùn)行程序時，單擊【字體顏色】【背景顏色】，彈出【顏色】對話框，分別設(shè)置文本框中字和背景的顏色；單擊【字體字形】，彈出【字體】對話框，設(shè)置文本框中字的字體和字形；單擊【退出程序】結(jié)束程序的執(zhí)行 http:/ 文件是指在外部存儲器上數(shù)據(jù)的集合。文件是指在外部存儲器上數(shù)據(jù)的集合。VB使用使用“文件文件”這這個概念來對外部存儲器上的數(shù)據(jù)進(jìn)行訪問。為了有效的存?zhèn)€概念來對外部存儲器上的數(shù)據(jù)進(jìn)行訪問。為了有效的存取外部存儲器中的數(shù)據(jù)，就必須將外部數(shù)據(jù)有效的組織起

11、取外部存儲器中的數(shù)據(jù)，就必須將外部數(shù)據(jù)有效的組織起來。外部數(shù)據(jù)的組織方式就是文件結(jié)構(gòu)。對于文件有多種來。外部數(shù)據(jù)的組織方式就是文件結(jié)構(gòu)。對于文件有多種分類方法。分類方法。 1. 根據(jù)文件存儲數(shù)據(jù)的性質(zhì)根據(jù)文件存儲數(shù)據(jù)的性質(zhì) 2.根據(jù)文件存取方式和結(jié)構(gòu)根據(jù)文件存取方式和結(jié)構(gòu)3.根據(jù)文件中數(shù)據(jù)的編碼方式根據(jù)文件中數(shù)據(jù)的編碼方式4.根據(jù)文件的流向根據(jù)文件的流向5.根據(jù)文件的存儲介質(zhì)根據(jù)文件的存儲介質(zhì)http:/ 順序文件順序文件n10.2.2 順序文件的應(yīng)用順序文件的應(yīng)用n10.2.3 隨機(jī)文件隨機(jī)文件n10.2.4 隨機(jī)文件的應(yīng)用隨機(jī)文件的應(yīng)用http:/ 順序文件的組織簡單，占用空間小，編寫代碼

12、容易。順序文件順序文件的組織簡單，占用空間小，編寫代碼容易。順序文件記錄的存儲、讀記錄或?qū)懹涗浂家错樞蜻M(jìn)行。記錄的存儲、讀記錄或?qū)懹涗浂家错樞蜻M(jìn)行。1. 打開順序文件打開順序文件 在使用文件之前，必須說明文件在什么位置，叫什么名字，是在使用文件之前，必須說明文件在什么位置，叫什么名字，是什么類型的文件，是讀還是寫，什么類型的文件，是讀還是寫，VB使用使用Open語句完成這一工語句完成這一工作。打開順序文件作。打開順序文件Open語句的格式：語句的格式： Open 文件標(biāo)識符文件標(biāo)識符 For 打開方式打開方式 As #文件號文件號 http:/ # 或write # 語句。Print #語

13、句的一般格式：Print#文件號，表達(dá)式表文件號，表達(dá)式表Write # 語句的一般格式：Write#文件號，表達(dá)式表文件號，表達(dá)式表3.順序文件的讀操作順序文件的讀操作順序的文件的讀操作使用Input # 或Line Input # 語句。Input #語句的一般格式：Input#文件號，變量表文件號，變量表Line Input #語句的一般格式：LineInput#文件號，字符串變量文件號，字符串變量http:/ 4. 4. 關(guān)閉文件關(guān)閉文件VB要求在引用文件結(jié)束后將打開的文件關(guān)閉，這樣才能保證磁盤緩沖區(qū)的內(nèi)容真正保存到磁盤。可以使用Close語句完成這一工作。Close語句的格式如下：C

14、lose語句的一般格式：Close#文件號文件號,#文件號文件號說明： Close 語句是關(guān)閉文件號關(guān)聯(lián)的文件，不指定文件號關(guān)閉所有文件。關(guān)閉文件將磁盤緩沖區(qū)的內(nèi)容保存到磁盤。釋放文件緩沖區(qū)所占用的內(nèi)存空間。 http:/ 10.4 寫文件試驗(yàn)寫文件試驗(yàn) 設(shè)計一個窗體，在窗體上添加兩個命令按鈕。運(yùn)設(shè)計一個窗體，在窗體上添加兩個命令按鈕。運(yùn)行程序時，單擊行程序時，單擊【寫文件】【寫文件】試驗(yàn)試驗(yàn)Print # Print # 或或write # write # 語句寫文件格式的區(qū)別，單擊【退出】語句寫文件格式的區(qū)別，單擊【退出】結(jié)束程序的執(zhí)行。結(jié)束程序的執(zhí)行。 http:/ 讀讀100個試驗(yàn)數(shù)據(jù)

15、并繪制圖形個試驗(yàn)數(shù)據(jù)并繪制圖形 設(shè)計一個窗體，在窗體上添加一個文本框、一個圖片框和設(shè)計一個窗體，在窗體上添加一個文本框、一個圖片框和3個命令按鈕。運(yùn)行程序時，單擊【讀出數(shù)據(jù)】讀例個命令按鈕。運(yùn)行程序時，單擊【讀出數(shù)據(jù)】讀例10.1保存保存的的100個試驗(yàn)數(shù)據(jù)，假定這個試驗(yàn)數(shù)據(jù)，假定這100個試驗(yàn)數(shù)據(jù)是按等距時間順序個試驗(yàn)數(shù)據(jù)是按等距時間順序采集的，單擊【繪制圖形】將采集的數(shù)據(jù)繪制圖形，橫坐標(biāo)采集的，單擊【繪制圖形】將采集的數(shù)據(jù)繪制圖形，橫坐標(biāo)表示時間的變化，縱坐標(biāo)表示采集數(shù)據(jù)的數(shù)值，單擊【退出表示時間的變化，縱坐標(biāo)表示采集數(shù)據(jù)的數(shù)值，單擊【退出程序】結(jié)束程序的執(zhí)行。程序】結(jié)束程序的執(zhí)行。 ht

16、tp:/ 打開隨機(jī)文件打開隨機(jī)文件隨機(jī)文件無論是讀還是寫都使用同樣Open語句打開文件。打開隨機(jī)文件Open語句的一般格式：Open文件標(biāo)識符文件標(biāo)識符ForRandomAs#文件號文件號Len=記錄長度記錄長度http:/ 2. 隨機(jī)文件的讀或?qū)懖僮麟S機(jī)文件的讀或?qū)懖僮麟S機(jī)的文件的讀操作使用隨機(jī)的文件的讀操作使用Get # ，寫操作使用，寫操作使用Put # 語句。語句。Get # 語句的一般格式：語句的一般格式：Get#文件號，文件號，記錄號記錄號，變量名，變量名說明：說明：從文件中，把記錄號指定的記錄內(nèi)容讀入到指定的變量，如果省略記錄號，從文件中，把記錄號指定的記錄內(nèi)容讀入到指定的變量，

17、如果省略記錄號，讀記錄指針?biāo)赣涗洝Ｗx記錄指針?biāo)赣涗洝ut # 語句的一般格式：語句的一般格式：Put#文件號，文件號，記錄號記錄號，變量名，變量名說明：說明：把變量的內(nèi)容寫到文件按記錄號指定的記錄中，如果省略記錄號，寫到記把變量的內(nèi)容寫到文件按記錄號指定的記錄中，如果省略記錄號，寫到記錄指針?biāo)赣涗洝ｄ浿羔標(biāo)赣涗洝ttp:/ 3. 關(guān)閉文件關(guān)閉文件VB要求在引用文件結(jié)束后將打開的文件關(guān)閉，這樣才能保證磁盤緩沖區(qū)的內(nèi)容真正保存到磁盤。可以使用Close語句完成這一工作。Close語句的一般格式： Close#文件號文件號,#文件號文件號 http:/ 隨機(jī)文件應(yīng)用隨機(jī)文件應(yīng)用 設(shè)計一個

18、窗體，在窗體上添加一個文本框和設(shè)計一個窗體，在窗體上添加一個文本框和4個命令按鈕。運(yùn)行個命令按鈕。運(yùn)行程序時，單擊【寫文件】生成程序時，單擊【寫文件】生成9條含有學(xué)號、姓名和成績的記錄，條含有學(xué)號、姓名和成績的記錄，并把這些記錄寫到一個隨機(jī)文件，同時也顯示在文本框中。單擊并把這些記錄寫到一個隨機(jī)文件，同時也顯示在文本框中。單擊【清除文本】將清除文本框的內(nèi)容。單擊【讀文件】將讀隨機(jī)文【清除文本】將清除文本框的內(nèi)容。單擊【讀文件】將讀隨機(jī)文件中的每一條記錄。并把這些記錄顯示在文本框中。單擊【退出】件中的每一條記錄。并把這些記錄顯示在文本框中。單擊【退出】結(jié)束程序的執(zhí)行結(jié)束程序的執(zhí)行 .http:/

19、 VB允許用戶自己定義數(shù)據(jù)類型，自定義類型也稱自定義類型或結(jié)構(gòu)類型，常配合隨機(jī)文件使用，自定義類型的格式如下。格式： Public|PrivateType類型名類型名元素名元素名As類型類型元素名元素名As類型類型元素名元素名As類型類型 End Type http:/ 10.3.1 其他文件操作命令其他文件操作命令 n10.3.2 10.3.2 驅(qū)動器列表框、目錄列表框和文件列表框驅(qū)動器列表框、目錄列表框和文件列表框n10.3.3 Shell10.3.3 Shell函數(shù)函數(shù) http:/ 刪除文件命令刪除文件命令格式：Kill 文件名文件名 其中，文件名中可以包含路徑等信息，若不含路徑表示在

20、當(dāng)前目錄。例如，Kill c:ttt。用戶在使用Kill時要注意該命令沒有刪除提示。2. 文件復(fù)制命令文件復(fù)制命令格式：FileCopy 源文件名，目標(biāo)文件名源文件名，目標(biāo)文件名 其中，源文件名和目標(biāo)文件名中都可以含路徑，若不含路徑表示在當(dāng)前目錄。例如，F(xiàn)ileCopy c:t1.txt, c:t1.dat3. 文件重命名命令文件重命名命令格式：Name 原文件名原文件名 As 新文件名新文件名 其中，原文件名和新文件名中都可以含路徑，若不含路徑表示在當(dāng)前目錄，也就是說Name命令也具有移動文件的功能，但前提是原文件和新文件在同一驅(qū)動器中。例如，Name c:t1.txt As c:tttht

21、tp:/ 設(shè)置當(dāng)前目錄設(shè)置當(dāng)前目錄(改變前目錄改變前目錄)格式：格式：ChDir子目錄名子目錄名 其中，子目錄名中含路徑。例如，其中，子目錄名中含路徑。例如，ChDir c:abc15. 創(chuàng)建子目錄創(chuàng)建子目錄格式：格式：MkDir子目錄名子目錄名 其中，子目錄名中可以含路徑，若不含路徑表示在當(dāng)前目其中，子目錄名中可以含路徑，若不含路徑表示在當(dāng)前目錄下創(chuàng)建子目錄。例如，錄下創(chuàng)建子目錄。例如，MkDir c:abcde1http:/ 刪除子目錄刪除子目錄格式：格式：RmDir子目錄名子目錄名 其中，子目錄名中可以含路徑，若不含路徑表示刪除當(dāng)前目其中，子目錄名中可以含路徑，若不含路徑表示刪除當(dāng)前目錄

22、下的子目錄。例如，錄下的子目錄。例如，RmDir c:temp17. 改變當(dāng)前驅(qū)動器改變當(dāng)前驅(qū)動器格式：格式：ChDrive驅(qū)動器名驅(qū)動器名例如，例如，ChDrive c:http:/ 驅(qū)動器列表框驅(qū)動器列表框 驅(qū)動器列表框是驅(qū)動器列表框是VB提供的標(biāo)準(zhǔn)控件，它是一個下拉式列表提供的標(biāo)準(zhǔn)控件，它是一個下拉式列表框，用于選擇當(dāng)前驅(qū)動器。主要的屬性是框，用于選擇當(dāng)前驅(qū)動器。主要的屬性是Drive屬性，屬性，Drive屬性只能通過程序代碼來進(jìn)行設(shè)置。屬性只能通過程序代碼來進(jìn)行設(shè)置。Drive屬性設(shè)置格式為：屬性設(shè)置格式為： 控件名稱控件名稱.Drive=驅(qū)動器名驅(qū)動器名在程序運(yùn)行時，當(dāng)用戶改變驅(qū)動器時，將激發(fā)驅(qū)動器列表框的在程序運(yùn)行時，當(dāng)用戶改變驅(qū)動器時，將激發(fā)驅(qū)動器列表框的Change事件。事件。 http:/ 目錄列表框目錄列表框 目錄列表框是VB提供的標(biāo)準(zhǔn)控件，它具有列表框的一些性質(zhì)，用于選擇當(dāng)前目錄。主要的屬性是Path屬性，Path屬性只能通過程序代碼設(shè)置。Path屬性設(shè)置格式為： 控件名稱控件名稱.Path=路徑字符串路徑字符串 在程序運(yùn)行時，當(dāng)用戶改變目錄列表框中的路徑時將激發(fā)目錄列表框的Change事件。 http:/ 文件列表框文件列表框 文件列表框是文件列表框是VB提供的標(biāo)準(zhǔn)控件，它具有列表框的多數(shù)性提供的標(biāo)準(zhǔn)控件，它具有列表框的多數(shù)性質(zhì)，用于操