《Visual Basic 6.0程序设计案例教程 教学课件 ppt 作者 宫强 模块十》由会员分享，可在线阅读，更多相关《Visual Basic 6.0程序设计案例教程 教学课件 ppt 作者 宫强 模块十（31页珍藏版）》请在金锄头文库上搜索。
1、模块八 图形和图像,任务一利用文件系统控件设计文本浏览器,任务二 Drive对象的使用,任务三 Folder对象的应用,任务分析: 计文本浏览器，打开指定类型的文件，并将文本内容显示在RichTextBox控件中。使用DirverListBox 、DirListBox、FileListBox和RichTextBox控件，实现打开指定类型的文件，并将文本内容显出来。 理论知识: 在Visual Basic应用程序开发中，文件目录操作是非常重要的内容。文件操作需要定位、复制、删除、重命名等操作。目录操作需要显示、改变、删除目录等操作。 文件是以一定的结构和形式存储到硬盘上的数据，可以在需要的时候读
2、出。 文件是Windows操作系统基本组成部分。文件操作在Visual Basic应用程序中起到很重要的作用。主要包括文件读写、文件定位、文件删除、文件复制、文件重命名等。,一、文件系统控件 Visual Basic中提供了3个文件系统控件，它们分别是驱动器列表框(DriveListBox控件)、目录列表框（DirListBox控件）、文件列表框(FileListBox)，通过对它们的使用可以实现文件系统的操作。下面将对这3个文件系统控件进行介绍：驱动器列表框控件（DriveListBox）、目录列表框控件（DirListBox）、文件列表框控件（FileListBox）。,1、驱动器列表框控
3、件（DriveListBox），用下拉式列表框显示计算机系统上的驱动器，包括软盘、硬盘、光盘和网络映射驱动器等。 常用属性： (1) Name属性：设置驱动器列表框控件的名字，默认值为Drive (2) Drive属性：返回或设置运行时选择的驱动器。 格式为：. Drive=“驱动器名“,常用事件： Change事件：当用户选择新的驱动器时，会触发该事件。 2、目录列表框控件（DirListBox），用于显示当前驱动器的目录结构。 常用属性： (1) Name属性：用于设置目录列表框控件的名字，缺省值为Dir1。 (2) Path属性：用于返回或设置目录列表框中的当前目录，只能通过程序代码设置
4、。 设置格式为：.Path=“路径名“,(3) ListIndex属性：返回目录列表框中突出显示的目录序号。双击某一项目录时，控件将自动把当前目录给Path属性，由Path属性所指定目录的序号为-1，上一级为-2，再上一级为-3、，它的第一个子目录为0，第二个子目录为1，依此类推。例如，当前目录为G:世界名曲精选01VB参考，它的目录序号为-1，它的上一级目录G:世界名曲精选01的目录序号为-2，它的的子目录G:世界名曲精选01vb章节的目录序号为0。,(4) ListCount属性：是Path属性指定的当前目录中子目录的个数。只能通过代码读取。 (5) List属性：返回目录列表框中各项值。
5、其值是一个字符串数组，数组中的每一个元素包含了控件中相应条目的目录名（带有完整路径）。 常用事件 Change事件：在目录框发生变化时，会触发该事件。,3、文件列表框控件（FileListBox），用于显示由文件列表框控件的Path属性指定目录中的所有文件。 常用属性： (1) Name属性：用于设置文件列表框控件的名字，缺省值为File1。 (2) Pattern属性：使用通配符来限制文件列表框只显示某种类型的文件。值为具有通配符的文件名字符串。缺省值为“*.*”，即所有文件。 格式为：.Pattern=文件名字符串,(3) FileName属性：用来设置和返回文件列表框中的文件名，在属性窗
6、口中不可用。 (4) Path属性：用来设置和返回文件列表框中所选中文件的路径（不包括文件名）。只能在程序代码中对其进行设置。 (5) MultiSelect属性：用来设定是否允许用户进行多重选择。 (6) Readonly属性、Archive属性、Normal属性、Hidden属性和System属性：用于设置要显示文件的属性。分别决定是否可以显示只读文件、存档文件、普通文件、隐藏文件和系统文件。,二、文件的打开与关闭 在Visual Basic文件的操作按以下步骤进行： 1、使用Open语句打开文件，并为文件指定一个文件号，程序根据文件的存取方式使用不同的方式打开文件。 2、进行读写操作 。
7、 3、文件操作结束，使用Close语句关闭文件。,三、顺序文件的读写 文本文件格式包括两种：自由格式和顺序文本文件。顺序文本文件说明该文件按顺序存储文本信息。自由格式说明该文件没有固定结构，由开发人员来决定如何设定该文件格式。 顺序文本文件编辑非常简单。记事本等文本编辑器都可以直接改写顺序文本文件内容。 1、打开文件 Open PathName（文件名） For Mode（方式） Access 存取类型 lock As #fileNumber（文件号） Len=reclength（记录长度）,2、关闭文件 Close# fileNumberlist（文件号） ,fileNumberlist（文
8、件号） 文件号：打开文件时指定的文件号。 功能： 关闭指定的文件号连接的文件。如果不指定文件号将关闭所有打开的数据文件。 关闭的操作主要是将缓冲区中的数据写入文件中，并且取消文件号与文件的关联。 除了Close外，当程序运行结束时，也会关闭所有的数据文件。,3、读取语句 Line Input #fileNumber, varName 顺序文本文件写入需要使用Print#和write#语句。Print语句标准语法如下： Print #fileNumber, outputlist Write语句标准语法如下： Write #fileNumber, outputlist,四、随机文件的读写 随机文件
9、与顺序文本文件不同，顺序文本文件没有任何结构。随机文件可以定义文件结构，便于开发人员开发程序过程中查找定位需要的数据。本节介绍随机文件操作使用方法。 1、随机文件可以自定义文件结构，使用Type语句可以创建用户自定义数据类型。 Private | Public Type varName elementName (subscripts) As Type elementName (subscripts) As Type . . . End Type,2、写入随机文件记录使用put语句。标准语法如下： Put #fileNumber, recNumber, varName Put #1, Recor
10、dNumber, MyRecord 将记录写入文件中。 读取随机文件使用get语句来读取信息返回给记录类型变量。 Get #fileNumber, recNumber, varName Get #1, Position, MyRecord 读记录。 查找随机文件使用seek语句。 Seek #fileNumber, position,五、二进制文件的读写 二进制文件是二进制数据的集合。它存储密集、空间利用效率高，但操作起来不太方便，工作量也较大。 在Visual Basic中，以Binary方式可以打开二进制文件，基语法如下： Open FileName For Binary As # Fil
11、eNumber 关闭文件用Close # FileName即可。 对二进制文件的读写同随机文件一样有Get#和Put#语句。语法如下： Get # FileNumber,Position,VarName Put # FileNumber,Position,VarName,六、常用文件操作函数和语句 在Visual Basic应用程序开发中，Visual Basic提供了一些常用的文件操作函数和语句，使用这些文件操作函数和语句用户可以在应用程序的开发中实现改变目录、文件定位、文件删除、文件复制、文件重命名等操作。,1、取得当前目录信息 要取得当前目录信息，可以使用CurDir函数，其语法如下：
12、CurDir(drive) 2、文件定位 进行各种文件操作之前必须对文件进行定位。主要使用Dir函数，其语法如下： Dir(PathName, Attributes),3、文件复制 在Windows操作系统中，复制文件是非常普通操作。Visual Basic开发应用程序时实现该功能也非常简单，语法如下： FileCopy source, destination 4、文件删除 文件在开发过程中从磁盘中删除文件使用kill函数。 Kill PathName PathName参数用来指定一个文件名气字符串表达式，可以包含目录或文件夹，以及驱动器。 5、文件重命名 Name oldPathName A
13、s newPathName,1、新建工程。 2、在窗体上添加控件并设置属性，界面设计如图 3、编写事件处理过程 4、保存工程与窗体文件。,返回,任务分析: 在窗体上点按钮，会弹出对话框，显示指定驱动器的信息。 创建FSO对象，使用GetDrive方法返回一个与指定路径中的驱动器相对应的 Drive 对象。,理论知识: 一、文件系统对象 从Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句或函数来实现的。从VB6.0开始，微软提出了一个全新的文件系统对象FSO。 二、文件系统对象的概念 文件系统对象FSO的英文全称是File S
14、ystem Object ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。,三、FileSystemObjec对象 FileSystemObject对象的创建可以用两种方法来实现： 由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中，所以在使用前首先需要在在工程中引用这个文件，单击【工程】【引用】，然后在【引用】对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。,要创建F
15、SO对象可以采用两种方法，一种是将一个变量声明为FSO对象类型： Dim fsoTest As New FileSystemObject； 另一种是通过CreateObject方法创建一个FSO 对象： Set fsoTest = CreateObject(“Scripting.FileSystemObject“)； 在实际使用中具体采用哪种声明方法，可根据个人的使用习惯而定。,四、管理驱动器(Drive对象) Drive对象是用来获取当前系统中各个驱动器的信息的。由于Drive对象没有方法，其应用都是通过属性表现出来的，所以我们必须熟悉Drive对象的属性。,1、新建工程。 2、单击【工程】
16、【引用】，然后在【引用】对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。 3、在窗体上添加一个命令按钮，其“Caption”设置为“确定”，“名称”属性为“DriveMessage”，然后在Click事件中加入代码。 4、编写代码。,返回,运行程序，实现创建文件夹、删除文件夹以及获取文件夹的有关信息。 创建FSO对象，用来创建、删除文件夹以及获取文件夹的有关信息。,管理文件夹(Folder对象) FSO 对象模型中，提供了丰富的有关文件夹操作的方法，这些方法分别是： FileSystemObject对象有关文件夹的方法： CreateFolder ：创建一个文件夹 。 DeleteFolder：删除一个文件夹 。 MoveFolder ：移动一个文件夹 。 CopyFolder：复制一个文件夹 。 FolderExists： 查找一个文件夹是否在驱动器上 。 GetFolder ：获得已有Folder对象的一个实
