1、有關文件管理9.1 公共對話框 對話框技術在軟件中應用的非常廣泛，第3章中介紹的消息框MsgBox和輸入框InputBox是兩種最為簡單的對話框。像“翻開 、“另存為 、“顏色 、“字體 、“打印 、“幫助等對話框在各類軟件中使用頻繁。為此，VB中專門提供了一個公用對話框控件，用于實現以上功能。一、添加“公共對話框控件 二、使用“公共對話框 三、公用對話框的應用舉例 一、添加“公共對話框控件公用對話框是一個外部控件，不在標準工具箱中，使用時需要設計者自己從部件中添加。具體方法為：翻開“部件對話框右擊“工具箱，選擇“部件“工程主菜單項選擇項中選擇“部件2. 選擇“MicroSoft Common

2、 Dialog Control 6.0 二、使用“公共對話框 “公用對話框控件在程序運行時是一個不可見的控件。在程序代碼中要用該控件的有關方法讓其顯示出指定格式的對話框。其方法有6種： 方法所顯示的對話框ShowOpen顯示“打開”對話框ShowSave顯示“另存為”對話框ShowColor顯示“顏色”對話框ShowFont顯示“字體”對話框ShowPrinter顯示“打印”對話框ShowHelp激活Windows幫助引擎1使用“翻開對話框主要屬性：FileName屬性：設置默認文件名或返回所選文件的路徑及名稱。Name=CommonDialog1.FileNameDialogTitle屬性：

3、設置或返回對話框的標題。CommonDialog1. DialogTitle請選擇文件InitDir屬性：設置或返回對話框訪問的初始文件目錄。CommonDialog1. InitDirD:ABCFilter屬性：設置文件的過濾條件。CommonDialog1.Filter = (*.*)|*.*| (*.txt)|*.txtCommonDialog1.ShowOpen1使用“翻開對話框該控件除了具有文本框控件的所有功能以外，還具有一些高級功能，如：同一文本框中的內容可以具有不同的顏色、字體、字號等屬性，并且可以將文本中的內容直接與文件的讀寫相聯系。 補充:Microsoft RichText

4、Box Control 6.0控件2使用“另存為對話框 CommonDialog1.ShowSavePrivate Sub Command1_Click() CD1.ShowSave RTB1.SaveFile CD1.FileName, 1End Sub 3使用“顏色對話框CommonDialog1.ShowColor Color屬性：設置初始顏色或返回用戶所選定的顏色。 Form1.BackColor=CommonDialog1.ColorFlags屬性：設置對話框的外觀等。 值含義&H2顯示全部的對話框，包括定義自定義顏色部分。 &H8使對話框顯示幫助按鈕。 4使用“字體對話框Commo

5、nDialog1.ShowFontColor屬性：記錄使用者所選擇的字體顏色。FontBold屬性：記錄使用者是否選擇了粗體字。FontItalic屬性：記錄使用者是否選擇了斜體字。FontStrikethru屬性：記錄使用者是否選擇了加刪除線。FontUnderline屬性：記錄使用者是否選擇了加下畫線。FontSize屬性：記錄使用者所選擇的字體大小。Flags屬性： 值含義&H1使對話框只列出系統支持的屏幕字體。 &H4使對話框顯示幫助按鈕。 &H100它指定對話框允許刪除線，下劃線，以及顏色效果。 5“打印對話框CommonDialog1.ShowPrinterCopies屬性：使用者

6、所設定的打印份數。 FromPage屬性：使用者所設定的開始頁碼。 ToPage屬性：使用者所設定的結束頁碼。 三、公共對話框的應用舉例 用輸入框輸入一些文字，在標簽中顯示，用顏色對話框設置文字的前景色和背景色，用字體對話框設置文字的字號及字體。 要求：不能有Bug！9.1 公共對話框回憶一、添加“公共對話框控件 “MicroSoft Common Dialog Control 6.0 二、使用“公共對話框方法所顯示的對話框ShowOpen顯示“打開”對話框ShowSave顯示“另存為”對話框ShowColor顯示“顏色”對話框ShowFont顯示“字體”對話框ShowPrinter顯示“打印

7、”對話框ShowHelp激活Windows幫助引擎92數據文件 數據文件在各種程序設計領域中，都占有極其重要的地位。一般而言，程序執行時用戶所輸入的數據都是存儲在RAM中，一旦程序運行結束或電源中斷，存儲器中的數據也隨之消失！假設想永久儲存，在程序中必須將RAM中的數據以文件的形式存儲到外存儲器中。當然，需要時程序也可以從文件中將數據讀出。VB中的文件有三種： 一、順序文件 二、隨機文件 三、二進制文件 一、訪問順序文件 順序文件也就是普通的文本文件，它是將字符的編碼按先后順序一個接一個地存放在文件中，因此占用的磁盤空間很小。但是，當用戶查找一個數據時，必須從文件的開頭一個一個地按順序找，直到

8、找到為止。因此，這種文件的缺點是數據訪問的靈活性差。一、訪問順序文件 1順序翻開的翻開與關閉翻開：Open For As 如：Open “d:abctest.txt for Output As #1關閉：Close 文件號列表說明：Input用來從文件中讀取數據，假設文件不存在，那么產生一個錯誤。Output用來創立一個待寫的文件；假設文件已存在，那么將覆蓋。Append用追加的方式翻開文件，假設文件不存在，那么創立該文件。文件號：1至511?？捎肍reeFile函數檢測可以使用的文件號。文件使用完后必須用Close語句關閉，否那么將可能喪失數據！關閉文件時，假設沒有指明文件號，那么關閉所有已

9、翻開的文件。 一、訪問順序文件 2順序文件的讀取操作 文件必須是以Input方式翻開的。LineInput#語句 格式：LineInput #FileNumber，VarName 功能：從指定的順序文件中讀出一行數據給一個字符串變量。Input#語句 格式：Input #FileNumber，VarList 功能：從指定的順序文件中讀取數據給變量序列。Input函數 格式：InputLength，FileNumber 功能：從指定文件中讀取指定長度的字符串作為函數值返回。實例：讀文件的內容讀至文本框。 一、訪問順序文件 3順序文件的寫入操作 文件必須是以Output或Append方式翻開的。P

10、rint語句 格式：Print #，,|;功能：將數據寫入指定的文件當中。數值有前后空格。Write語句 格式：Write #， 功能：將數據寫入指定的文件當中。字符串有雙引號。實例：將文本框中所寫的內容以文件的形式保存。 例9-2：簡易文本編輯器 缺陷：退出時或翻開別的文件時，對已修改的文件沒有任何保護措施！案例程序1：通用 號碼本 案例程序2：限時限制軟件使用的時間案例程序3：電子打鈴器二、訪問隨機文件 隨機文件是可以按任意次序讀寫的文件，它是以記錄為單位進行存儲的，每個記錄的長度相同，但具有不同的記錄號。當寫數據時，只要告訴記錄號就可以將數據寫入文件中的指定位置；而當讀取數據時，只要知道

11、記錄號就可以立即找到所要的數據，因此這種方法訪問數據速度快，但它占用的磁盤空間大。二、訪問隨機文件 1. 定義記錄類型Type personinfo 姓名、 、備注等信息的記錄類型 Name as String*40 Phone as String*40 Comments as String*100End TypeDim X As personinfo2翻開隨機文件 Open 文件名 For random As 文件號 Len=記錄長度 檢測記錄長度用Len函數：reclen=Len(Who)二、訪問隨機文件 3讀取隨機文件 Get #文件號 ，變量名 記錄號 = 2147483647，即Lo

12、ng類型數據的最大值。 變量名必須為與文件中數據類型相同的記錄類型。 假設省去記錄號，那么從當前位置讀??；但要注意“，不能省。4寫入隨機文件 Put #文件號 ，變量名 給文件寫數據之前，必須先將要寫入的內容存入記錄類型變量中。5. 例93 ,Page 191三、訪問二進制文件 1 翻開二進制文件 格式：Open file For binary As #filenumber 例如：Filenumber=FreeFile Open “d:vbsin.exe For Binary As #Filenumber2寫入二進制文件 格式：Put #文件號，字節數，變量名 功能：將變量中的內容寫入指定文件

13、中的指定位置。3從二進制文件中讀取數據 格式：Get #文件號，字節數，變量名 功能：從指定文件中的指定位置讀取數據給指定的變量。二進制文件是以字節為單位進行訪問的，文件翻開后可以在任何字節位置進行讀寫操作，所以二進制文件是最靈活的。三、訪問二進制文件 4. 舉例：窗體Click之后，將15這五個數據以二進制形式寫入Btest.dat文件中，隨后以同樣方式讀出。并在消息框中將其顯示出來。最后將該文件刪除。案例程序4：限次限制軟件使用的次數 92數據文件 回憶一、順序文件 二、隨機文件 三、二進制文件 9.3 文件系統控件 VB提供了三個與文件有關的控件，這些控件是制作文件對話框時必不可少的工具

14、。 二、目錄列表框：DirectoryListBox三、文件列表框：FileListBox 一、驅動器列表框：DriveListBox 一、驅動器列表框:DriveListBox 1重要屬性 Drive屬性：設定或讀取當前驅動器的名稱。 代碼中設定方法：驅動器列表框名.Drive = 盤符Drive1.Drive = E:2重要事件 Change事件：當前驅動器變更時發生。 二、目錄列表框DirectoryListBox 1 重要屬性 Path屬性：設定或讀取當前目錄的完整路徑。 代碼中設定方法：目錄列表框.Path = 路徑 Dir1.Path = E:vb 2 重要事件 Click事件和C

15、hange事件。 三、文件列表框FileListBox 1重要屬性Path屬性：設定當前目錄。代碼中設定方法：文件列表框.Path = 路徑FileName屬性：傳回所選定的文件名稱。Pattern屬性：設定文件名的過濾方式，即文件通配符。 代碼中設定方法：文件列表框.Pattern = 通配符2案例程序案例程序5：簡易音樂播放器 案例程序6：我的點歌臺 案例程序7：圖片自動連續顯示 案例程序8：成批更改文件名案例程序9：打印保存目錄名稱補充：文件操作類語句及函數 1.FreeFile函數得到一個在程序中沒有使用的文件號。2.Eof函數格式：Eof(filenumber)功能：檢測文件是否結束

16、，結束時返回True。3.ChDir語句格式：ChDir path功能：改變當前目錄。4.ChDrive語句格式：ChDrive Drive功能：改變當前盤。5.MkDir語句格式：MkDir path功能：建立子目錄。6.RmDir語句格式：RmDir path功能：刪除子目錄。7.FileCopy語句格式：FileCopy 源文件名，目標文件名功能：復制文件。8.Name語句格式：Name 舊名稱 As 新名稱功能：對文件或目錄進行更名。9.Kill語句格式：Kill Pathname功能：刪除文件。10.SetAttr語句格式：SetAttr 文件名，Attributes功能：設置文件屬性。vbNormal、VbReadOnly、vbHidden、vbSystem補充：文件操作類語句及函數 11.CurDir函數 格式：CurDir Drive 功能：返回指定盤的當前路徑。12.FileLen函數 格式：FileLen(pathname) 功能：返回指定文件的長度。13.Shell函數 格式：Shell(path