vb的课件VB7文件

《vb的课件VB7文件》由会员分享，可在线阅读，更多相关《vb的课件VB7文件（54页珍藏版）》请在金锄头文库上搜索。

1、第 7 章 文 件,2,掌握文件管理控件的主要属性、事件和方法 掌握文件的基本概念 掌握文件的常用函数、语句 掌握 顺序文件的读、写操作 了解随机（记录）文件 了解二进制文件,教学要求,3,7.1 文件管理控件 7.2 文件处理 7.3 顺序文件 7.4 随机文件处理,教学内容,4,7.1 文件管理控件 VB 提供了驱动器列表框、目录列表框和文件列表框三个特殊的控件，将他们组合起来使用，可以创建与文件操作有关的界面。,驱动器列表框 DriveListBox,目录列表框 DirListBox,文件列表框 FileListBox,5,7.1.1 驱动器列表框（DriveListBox） 功能： 一

2、个下拉式列表框，显示当前系统的所有驱动器列表，顶端显示的是当前选定的驱动器。,常用属性：,Name:名称属性，缺省时该属性值为Drive1;,Drive:当前驱动器属性，该属性为运行态属性；可以用于返回在驱动器列表框中当前选取的驱动器号，也可用于指定在驱动器列表框顶端显示的驱动器；,常用事件：,Change:当用户在驱动器列表框中选择一个驱动器，或在列表框顶端输入一个驱动器标识，或通过赋值语句修改了驱动器列表框的Drive属性都会激活该事件。,一般在此事件中，用drive属性更新目录列表框的path属性，保持驱动器列表框和目录列表框的同步变化。,6,常用语句： 格式：ChDrive Drive

3、 功能：改变当前工作驱动器 对文件进行存取操作时的缺省驱动器。 说明： Drive参数是字符型，必须为系统有效的驱动器名。 例如： ChDrive “D:” 注意：该语句的执行与驱动器列表框无关，既不会改变列表框的drive属性，列表框顶端的显示，也不会引发驱动器列表框的Change事件。 同样，在驱动器列表框中选定某驱动器，并不能直接将其变更为当前工作驱动器，必须使用如下语句： ChDrive drive1.drive,7,7.1.2 目录列表框( DirListBox ) 功能：显示系统当前驱动器的目录结构，并突出显示当前目录。显示从根目录开始，到当前目录这条路径上的所有目录，以及当前目录

4、的下属所有第一级子目录。,目录索引： 当前突出显示的目录，索引值为-1，紧邻其上的目录为-2，再上一层为-3，依次类推；而当前工作目录的第一个子目录的索引值为0，其他子目录的索引值顺次递增。,-4 -3 -2 -1 0 1,8,常用属性： Name:名称属性，缺省时为Dir1; Path:设置和返回目录列表框中的当前目录，为运行态属性；可以通过如下两种方式设置：一是赋值语句；二是双击目录列表框中某项。 注意：一般目录列表框中显示当前驱动器上的目录，即目录列表框与驱动器列表框必须同步，必须使用如下语句： .path=.drive 此语句通常在驱动器列表框的Change 事件中执行。 例如：,Pr

5、ivate Sub Drive1_change() Dir1.path=Drive1.drive End Sub,9,常用事件 Change: 当用户双击目录列表框中的目录项，或通过赋值语句改变了目录列表框的Path属性，都会引发该事件。 一般在此事件中，用path属性更新文件列表框的path属性，保持文件列表框和目录列表框的同步变化。 常用语句： 格式：ChDir Path 功能：改变系统当前工作目录。 说明： （1） ChDir语句改变的是当前驱动器（或指定驱动器）的工作目录，而不能改变工作驱动器； （2）该语句与目录列表框无关，即不会改变目录列表框的当前目录，也不会触发Change事件。

6、 同样，在目录列表框中选定某目录，并不能将其变更为当前工作目录，必须使用如下语句： ChDir dir1.Path,10,7.1.3 文件列表框( FileListBox ) 功能：显示系统当前目录下的文件列表。 常用属性： Name：名称属性，缺省时为File1； Path：设置和返回文件列表中所显示文件的路径，为运行态属性 注意：一般文件列表框中显示当前目录之中的文件，即文件列表框与目录列表框必须同步，必须使用如下语句： .path=.path 此语句通常在目录列表框的Change 事件中执行。 例如：,Private Sub dir1_change() file11.path=dir1.

7、path End Sub,11,Pattern:文件种类，设置文件列表框显示文件的种类, 缺省为*.* 例： File1.Pattern=“*.txt ; *.frm” FileName:设置和返回文件列表框中将显示的文件名称，为运行态属性； 例： File1.fileName=“d:*.frm” ListCount:返回文件(组合框、驱动器、目录)列表框中的所列项目的总数，为运行态属性； ListIndex:设置或返回当前控件上所选择项目的“索引值”，为运行态属性，列表框中的第一项为0，第二项为1，依次类推，若文件列表框中一项也没有选定，则返回-1； dir1.listindex = -2

8、drive1.listindex = 2,12,常用事件 PathChange: Path属性改变时引发该事件； 注意：在程序中，给文件列表框的Filename属性赋值，也会自动改变它的Path属性，触发本事件。 file1.filename=“c:config.sys” PatternChange: Pattern属性改变时引发该事件； Click:单击事件。,13,文件属性：指定在文件列表框中显示某类属性的文件 ReadOnly:只读属性，缺省值True； Hidden:隐含属性，缺省值False ； System:系统属性，缺省值False; Archive: 存档属性，缺省值True

9、； Normal: 通常属性，缺省值True; 说明：当Normal属性为True 时，System 、Hidden 文件不显示；当Normal属性为False 时, 文件类型置为True的可显示。 file1.normal=false file1.system=true,14,7.1.4 组合使用文件管理控件 为使文件管理控件协调工作，关键点是使驱动器、目录、文件列表框同步，通过下述两个事件过程实现： 保证目录列表框与驱动器列表框同步更新。 保证文件列表框与目录列表框同步更新。,来看个例子吧例2。,Private Sub drive1_change() dir1.path=drive1.dr

10、ive End Sub,Private Sub dir1_change() file11.path=dir1. path End Sub,例：文件控件的组合使用。,Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path File1.Pattern = “*.wmf“ End Sub Private Sub File1_Click() Dim name As String If Right(File1.Path, 1) “ Then

11、name = File1.Path & “ & File1.FileName Else name = File1.Path & File1.FileName End If Picture1.Picture = LoadPicture( name ) End Sub,P134,16,.2 文件处理 文件： 所谓文件，是一组相关信息的集合，是存放在磁盘上一系列相关的字节. 文件访问类型： 顺序访问：从文件头开始，依次访问其中数据，适用于文本文件； 随机访问：适用于以记录形式保存的二进制文件，可以存取任意指定位置的记录； 二进制访问：适用于任意二进制文件 , 以字节为单位存取数据。,17,文件操作的

12、一般步骤： 首先将文件“打开”，即将相关信息加载进内存，建立文件与内存中某个文件缓冲区的关联； 文件“存取”操作； 最后“关闭”文件，即释放文件所占用的文件缓冲区。,文件操作,18,7.2.2文件访问的语句和函数,P136 表7-2,19,1打开文件 Open语句 对文件进行操作之前，必须用Open语句打开或建立一个文件 功能： 为文件的输入输出分配缓冲区，指定文件的存取类型(模式)和存取方式，定义与文件相关联的文件号。 格式： Open 文件名 FOR 模式 Access 存取类型 锁定 AS #文件号 Len=记录长度 说明： 格式中的Open、 FOR、 Access、AS、Len为关键

13、字 文件名(Filename)： 文件的名字，可用字符串或字符型变量表示。可以包括盘符和路径。 3） 模式(mode)：,20,说明访问文件的方式： OutPut 设定为顺序输出模式 InPut 设定为顺序输入模式 Append 设定为添加模式，与OutPut方式不同， 以Append方式打开顺序文件时，文件指 针定位在文件末尾，写入的数据添加到 原来文件的后面。 Random 设定为随机访问的模式 Binary 设定为二进制访问模式 如果缺省FOR子句，将以随机访问模式Random打开文件。,21,程序,磁盘文件,输入 数据,磁盘文件,输出 数据,读文件方式: Input,写文件方式: Ou

14、tput Append,22,4) 存取类型(Access) 用来指定访问文件的类型。可以是： Read 对打开的文件只能进行读操作 Write 对打开的文件只能进行写操作 Read Write 对打开的文件可读可写,5) 文件号(Fileno) 取值范围在1511范围之内。执行Open语句时，文件与分配给定的文件号相关联。 6) 记录长度(Reclength) 是一个整型表达式，其值32767。 对顺序文件，用该参数设定缓冲区的大小。 不指定，缓冲区的缺省值为512个字节。,23,注意： 1) 如果以Output、Append、Random和Binary模式打开一个不存在的文件，Visual

15、 Basic会创建一个相应的文件。 2) 在Input、Random和Binary模式下，可用不同的文件号打开同一个文件。但以Output和Append模式打开的文件在关闭之前不能用不同的文件号重复地打开它。 3) 所有当前使用的文件号必须是唯一的。即当前使用的文件号不能再分配给其他文件。 4) 如果以Output模式打开一个已存在的顺序文件，则该文件中原来数据将被覆盖。,24,1) Open “Exam“ FOR Output AS #5 如果文件“Exam”不存在，则建立一个新文件，可以将数据写入到文件中去。如果文件“Exam”已存在，则该语句打开已存在的文件，新写入的数据将覆盖原来的数据

16、。 2) Open “Exam“ FOR Append AS #5 如果文件“Exam”不存在，则建立一个新文件，否则打开已存在的名为“Exam”的文件，新写入的数据添加到文件的后面，原来的数据仍然存在。 3) Open “Exam“ FOR Input AS #5 打开已存在的名为Exam的文件，可从中读出数据。如果文件“Exam”不存在将产生“File Not Found”错误。,P138,举 例,25,2、关闭文件 格式：Close # 功能：关闭指定的文件号对应的文件。,释放相应缓冲区和与该文件相联系的文件号。,说明： （1）该语句适用于任何文件； （2）语句中可以包含多个文件号,文件号之间用逗号分隔 （3）若语句中缺省文件号参数，则关闭所有用Open语句打开的文件； （4）当应用程序结束时，会自动关闭所有文件。 例1：Close #1,#2 例2：Close