《07第7章 文件控件与文件操作》由会员分享，可在线阅读，更多相关《07第7章 文件控件与文件操作（38页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程序设计Visual Basic 程序设计河北科技大学 机械电子工程学院 授课教师 刘文学Visual Basic 程序设计第7章文件控件与文件操作第7章 文件控件与文件操作l主要内容： n文件控件 n利用文件控件来处理文件 nVB中的常用文件处理函数 nVB中对三类文件的操作（顺序文件、 随机文件、二进制文件）Visual Basic 程序设计第7章文件控件与文件操作7.1 文件控件l文件控件 nVB提供了3种可直接浏览系统驱动器 、目录结构及文件的文件控件： u驱动器列表框（DriveListBox） u目录列表框（DirListBox） u文件列表框（FileL
2、istBox）Visual Basic 程序设计第7章文件控件与文件操作l驱动器列表框（DriveListBox）n作用 u驱动器列表框（DriveListBox） 控件，通常 只显示当前驱动器名称，单击向下箭头，就 会下拉出本地计算机中拥有的所有磁盘驱动 器，供用户选择。 n常用属性（前面介绍的属性省略） uName属性 p驱动器列表框的对象名。缺省值为：“Dirve1” uDrive属性（设计时不可用）p设置和返回当前驱动器的盘符Visual Basic 程序设计第7章文件控件与文件操作p格式 Object.Drive = 驱动器盘符字符串 p例如： Private Sub Command
3、1_Click()Dim Str As StringDrive1.Drive = “C:“ 设置Str = Drive1.Drive 返回Print Str End Sub uList 属性（设计时不可用）p返回驱动器列表框中的列表项目（列表项目 是一个字符串数组） Visual Basic 程序设计第7章文件控件与文件操作p例如： Private Sub Command1_Click()Print Drive1.List(0)Print Drive1.List(1)Print Drive1.List(2) End Sub uListCount 属性 （设计时不可用）p返回驱动器列表框中列表项
4、目的个数。 p例 1： Private Sub Command1_Click()Print Drive1.ListCount End SubVisual Basic 程序设计第7章文件控件与文件操作p例 2：显示本地计算机所有的驱动器 Private Sub Command1_Click()Dim count, i As Integer获取本地系统驱动器盘符的个数count = Drive1.ListCount显示各驱动器盘符For i = 0 To count - 1Print Drive1.List(i)Next End SubVisual Basic 程序设计第7章文件控件与文件操作uL
5、istIndex 属性 （设计时不可用）p返回或设置当前驱动器列表框中列表项的索引号 p例如： 通过设置索引号来改变驱动器的盘符 Private Sub Command1_Click()Drive1.ListIndex = Drive1.ListCount - 1 最后一个 End Sub通过索引号来返回驱动器的盘符 Private Sub Drive1_Change()Print Drive1.ListIndex End SubVisual Basic 程序设计第7章文件控件与文件操作n常用事件 uChange事件 p在程序运行时，当选择一个新的驱动器或通 过代码改变Drive属性的设置时都
6、会触发驱动 器列表框的change事件发生。Visual Basic 程序设计第7章文件控件与文件操作 l目录列表框（DirListBox） n作用 u目录列表框（DirListBox） 控件用来显示 当前驱动器的目录结构及当前目录下的所 有子文件夹（子目录）。供用户选择其中 一个目录为当前目录。 n常用属性 uName属性 p目录列表框的对象名。缺省值为：“Dir1” uPath属性 （设计时不可用） p设置和返回当前路径（该属性在设计时不可 用）Visual Basic 程序设计第7章文件控件与文件操作p格式 Object.Path = 目录字符串 p例如： Private Sub Com
7、mand1_Click()Dim Str As StringDir1.Path = “C:Windows“ 设置Str = Dir1.Path 返回Print Str End Sub uList 属性（设计时不可用）p返回目录列表框中当前目录下的所有子目录 项（所有子目录项组成一个字符串数组）Visual Basic 程序设计第7章文件控件与文件操作uListCount 属性 （设计时不可用） p返回当前目录列表框中子目录的个数。 p例 1： Private Sub Command1_Click()Print Drive1.ListCount End Sub p例 2：显示当前目录下的所有子目
8、录名 Private Sub Command1_Click()Dim count, i As Integer获取当前目录下的子目录的个数count = Dir1.ListCount显示当前目录的所有子目录名For i = 0 To count - 1Print Dir1.List(i)Next End SubVisual Basic 程序设计第7章文件控件与文件操作uListIndex 属性 （设计时不可用）p返回或设置当前目录列表框中子目录的索引号 p例如： 通过设置索引号来改变子目录 Private Sub Command1_Click()Dir1.ListIndex = Dir1.Lis
9、tCount - 1 最后一个 End SubVisual Basic 程序设计第7章文件控件与文件操作注意：当前目录的索引号为 - 1 通过设置索引号来改变选中目录的位置 Private Sub Command1_Click()Static Result As BooleanDim i As IntegerIf Result ThenResult = False改变到当前目录Dir1.ListIndex = -1ElseResult = True改变到当前目录下的第一个子目录i = Dir1.ListCountIf i = 1 Then 如果存在子目录Dir1.ListIndex = 0En
10、d IfEnd If End SubVisual Basic 程序设计第7章文件控件与文件操作n常用事件 uChange事件 p在程序运行时，当选择一个新的目录或通过 代码改变Path属性的设置时都会触发目录列 表框的change事件发生。Visual Basic 程序设计第7章文件控件与文件操作 l文件列表框（FilelistBox） n作用 u文件列表框（FileListBox）控件用来显示 Path 属性指定的目录中的所有文件。该 控件用来显示所选择文件类型的文件列表 。 n常用属性 uName属性 p文件列表框的对象名。缺省值为：“File1” uPath属性 p设置和返回文件列表框中
11、所显示文件的路径 。（该属性在设计时不可用）Visual Basic 程序设计第7章文件控件与文件操作p格式 Object.Path = p例如： File1.Path =“ C:Windows“ File1.Path = Dir1.Path （直接从目录列表 框中获取路径） uList 属性（设计时不可用）p返回文件列表框中的所有文件名（所有文件 名组成一个字符串数组） uListCount 属性 （设计时不可用）p返回当前目录中文件的个数。Visual Basic 程序设计第7章文件控件与文件操作p例 1： Private Sub Command1_Click()Print File1.L
12、istCount End Sub p例 2：显示当前目录下所有文件的名称 Private Sub Command1_Click()Dim count, i As Integer获取当前目录下文件的个数count = File1.ListCount显示当前目录的所有文件的名称For i = 0 To count - 1Print File1.List(i)Next End SubVisual Basic 程序设计第7章文件控件与文件操作uListIndex 属性 （设计时不可用）p返回或设置当前文件列表框中文件的索引号 p例如： 通过设置索引号来选中的文件 Private Sub Command
13、1_Click()File1.ListIndex = File1.ListCount - 1 最后一个 End SubVisual Basic 程序设计第7章文件控件与文件操作uPattern属性p用来设置文件列表框中要显示的文件的类型 。该属性可以在设计阶段用属性窗口设置， 也可以通过程序代码设置。（可以使用通朽 符：“？”、“ * ”）（显示多类文件用分号“ ; ”分 隔） p如： File1.Pattern=“*.*” （显示所有 文件） File1.Pattern = “*.txt“ （显示txt文 件） File1.Pattern= “*.txt ; *.Doc “ （显示多类 文件
14、）Visual Basic 程序设计第7章文件控件与文件操作uFileName属性p设置和返回文件列表框中文件的名称（可以使用通 朽符）（该属性在设计时不可用） p格式： .FileName=文件名 p例如： Private Sub Command1_Click()Dim Str As StringFile1.FileName = “C:Windows*.txt“ 设置Str = File1.FileName 返回(先选中文件)Print Str End SubVisual Basic 程序设计第7章文件控件与文件操作n常用事件 uPathChange事件 p当文件列表框的Path属性改变时，
15、就会产生 PathChange事件。 uPatternChange事件 p当文件列表框的Pattern属性改变时，就会产生 PatternChange事件。 uClickp例如：单击输出文件名。 Private Sub File1_Click()MsgBox (“您选中了“ & File1.FileName & “文件“) End SubVisual Basic 程序设计第7章文件控件与文件操作uDblClick事件 p例如：双击执行可执行程序 Private Sub File1_DblClick()Dim StrDim Fname As StringIf Right(File1.Path,
16、1) = “ Then 判断右端 是否为“”Fname = File1.Path & File1.FileNameElseFname = File1.Path & “ & File1.FileNameEnd IfStr = Shell(Fname) 执行可执行程序 End SubVisual Basic 程序设计第7章文件控件与文件操作l示例：资源管理器 n代码 Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End SubPrivate Sub Dir1_Change()File1.Path = Dir1.Path End SubVisual Basic 程序设计第7章文件控件与文件操作lVB中常用的文件处理函数 nChDrive 语句u功能：改变当前工作驱动器。 u格式： ChDrive 驱动器盘符 u如： ChD
