VB程序设计课件第11章

《VB程序设计课件第11章》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VisualBasic程序设计VisualBasicProgramming第十一章文件操作1.掌握文件系统控件的使用2.了解文件的结构和分类3.掌握文件操作语句和函数4.掌握顺序文件、随机文件及二进制文件的特点和读写操作5.在编写应用程序中熟练使用文件本章学习目标11.1文件系统控件11.4顺序文件的访问11.2文件结构及分类11.3文件操作的语句和函数11.5随机文件的访问11.6二进制文件的访问1.驱动器列表框2.目录列表框11.1文件系统控件文件系统控件3.文件列表框4.目录列表框文件系统控件的同步操作VB为用

2、户使用文件系统提供了两种选择：一、由CommonDialog控件提供的通用对话框；二、驱动器列表框（DriveListBox）目录列表框（DirListBox）文件列表框（FileListBox）1.驱动器列表框2.目录列表框11.1文件系统控件驱动器列表框(Drive1)3.文件列表框4.目录列表框文件系统控件的同步操作驱动器列表框(DriveListBox)，是下拉式列表框，是一种能显示系统中所有有效磁盘驱动器的列表框。其默认控件名是Drive1。1.驱动器列表框2.目录列表框11.1文件系统控件重要属性3.文件

3、列表框4.目录列表框文件系统控件的同步操作Drive属性：用于返回或设置驱动器的名称，默认为当前驱动器。其格式为：对象.Drive[=<驱动器名>]说明：(1)其中“对象”为驱动器列表框对象的名称。例如：Drive1.Drive=“C:”(2)从列表框中选择驱动器并不能自动改变系统当前的工作驱动器，必须通过ChDrive语句来实现。例如：ChDriveDrive1.Drive(3)该属性只能在程序运行时设置1.驱动器列表框2.目录列表框11.1文件系统控件重要事件3.文件列表框4.目录列表框文件系统控件的同步操作C

4、hange事件：程序运行时，从列表框中选择一个新驱动器或通过代码改变Drive属性的设置时会触发驱动器列表框的Change事件。例如：将在驱动器列表框中选择的驱动器设置为当前驱动器，可在该事件中编写代码：PrivateSubDrive1_Change()ChDriveDrive1.DriveEndSub1.驱动器列表框2.目录列表框11.1文件系统控件目录列表框(Dir1)3.文件列表框4.目录列表框文件系统控件的同步操作目录列表框(DirListBox)：用来显示当前驱动器目录的层次结构，供用户选择其中一个目录为当

5、前目录。其默认控件名是Dir1。1.驱动器列表框2.目录列表框11.1文件系统控件重要属性3.文件列表框4.目录列表框文件系统控件的同步操作Path属性：用于返回或设置当前路径，必须通过程序代码设计其属性值。其格式为：对象.Path[=<字符串表达式>]说明：(1)“对象”为目录列表框对象；“字符串表达式”用来表示路径名。默认为当前路径。例如：Dir1.Path=“C:hp”(2)从目录列表框中选择目录并不能自动改变系统当前的工作目录，必须通过ChDir语句来实现。例如：ChDirDir1.Path(3)该属性只能

6、在程序运行时设置1.驱动器列表框2.目录列表框11.1文件系统控件重要事件3.文件列表框4.目录列表框文件系统控件的同步操作Change事件：程序运行时，双击一个目录项或通过代码改变Path属性的设置时触发目录列表框的Change事件。事件过程为：PrivateSubDir1_Change()…EndSub1.驱动器列表框2.目录列表框11.1文件系统控件文件列表框(File1)3.文件列表框4.目录列表框文件系统控件的同步操作文件列表框(FileListBox)是一个带滚动条的列表框，用来显示特定目录下的文件，其默

7、认控件名是File1。1.驱动器列表框2.目录列表框11.1文件系统控件重要属性3.文件列表框4.目录列表框文件系统控件的同步操作属性名属性值说明Path字符串设置或返回当前目录的路径名。该属性只能在运行阶段设置。Pattern字符串设置要显示的文件类型，默认时表示所有文件。FileName字符串返回所选文件的文件名(不包括路径)，该属性在设计状态下不可用。ListCount数值返回文件列表框中匹配Pattern属性设置的文件个数。该属性在设计状态下不可用ListIndex数值返回控件中当前选择项目的索引号，其值范围

8、为1～ListCount-1。该属性只能在运行中引用。List(i)字符串返回或设置文件列表框控件的列表部分的列表项目的内容。1.驱动器列表框2.目录列表框11.1文件系统控件说明3.文件列表框4.目录列表框文件系统控件的同步操作(1)Pattern属性的格式为:对象.Pattern[=值]例如：File1.Pattern=“*.TXT”'只显