《产学研中心教学文稿》由会员分享，可在线阅读，更多相关《产学研中心教学文稿（14页珍藏版）》请在金锄头文库上搜索。
1、VB6程序设计,第六部分VB中的图形处理及文件操作,产学研中心,教学目标：1.掌握：文件控件和文件操作 2.理解：文件类型及结构 教学内容：利用文件控件处理文件的方法、文件处理函数、文件系统对象(FileSystemObject)编程。 在计算系统中，文件管理一直是一个非常重要的概念。所谓的文件是指存放在外部存储介质上的数据和程序等.,利用文件控件 在VB6.0中包括四个文件类型控件，它们分别是DriveListBox控件、DirListBox控件、FileListBox控件和CommDialog控件，可以实现不同功能。,1.设置初始窗体属性,窗体属性设置,3.编写程序的初始化代码 在窗体的设
2、计阶段双击窗体，在窗体的form_load（）事件中添加下列代码： Private Sub Form_load() Drive1.enabled=true Dir1.enabled=true File1.enabled=true 设置控件的有效状态 File1.pattern=*.exe设置过滤器，使之只显示可执行文件 Drive1.drive=c: 设置控件的初始驱动器为C盘 End Sub 程序说明： 程序首先通过Drive1.enabled=true，Dir1.enabled=true，File1.enabled=true来设置控件的有效状态，然后设置文件的过滤器为.exe和控件的初始驱
3、动器为c:，这样只有在c盘下面的以.exe结尾的可执行文件才能够显示出来。,4.响应DriveListBox控件的Change事件 Private Sub Drive1_change() Dir1.path=Drive1.Drive 改变驱动器，使目录列表框中的内容跟着所选驱动器的变化而变化 End Sub 程序说明： 在程序的运行阶段，改变驱动器时，就会激活DriveListBox控件的Drive1_Change()事件，然后通过Dir1.path=Drive1.Drive来使DriveListBox控件显示改变驱动器后的目录。,5.响应DirListBox控件的Change事件 Priva
4、te Sub Dir1_change() File1.path=Dir1.path 改变目录，使目录列表框中的内容跟着所选文件夹的不同而不同 End Sub 程序说明： 在程序的运行阶段，改变目录时，就会激活DirListBox控件的Dir1_change()事件，然后通过File1.path=Dir1.path来使FileListBox控件显示改变目录后的文件列表。 存储文件，运行程序,VB6.0的文件处理函数 在VB6.0中，除了可以利用文件控件来对文件进行处理外，还可以通过一些函数和方法来处理文件，常用的文件处理函数和方法有Kill,FileCopy.RmDir,Shell和Name等。
5、,Kill语句的功能是从磁盘中删除文件，它的语法结构如下： Kill pathname 其中参数pathname是用来指定一个文件名的字符串表达式，pathname要包含文件所在的目录或文件夹以及驱动器。Kill支持多字符（）和单字符（？）的统配来指定多重文件。,FileCopy语句的功能是复制一个文件 ，它的语法结构如下 FileCopy source,destination 在FileCopy语句的语法中包括两个参数，其中soure用来表示要被复制的源文件名，而destination用来指定要复制的目的文件名 在source和destination参数中都要包含文件所在的目录或文件夹以及驱
6、动器。,Shell函数的功能是执行一个可执行文件，同时返回一个Variant(Double),如果成功的话，代表这个程序的任务ID,若不成功，则会返回0.它的语法结构如下： Shell(pathname,windowstyle） 参数说明： pathname为所要执行的应用程序的名称及其路径和必要的参数；,RmDir 语句的功能是删除一个存在的而且为空的目录或文件夹，它的语法结构如下所示： Rmdir path 其中参数Path是一个字符串表达式，用来指定要删除的目录或文件夹。如果在参数Path中没有指定驱动器，则Rmdir会在当前驱动器上删除为空的目录或文件夹。,Name语句的功能是重新命名一个文件、目录或文件夹，它的语法结构如下： Name oldpathname As newpathname 其中包括以下两个部分： oldpathname 为字符串表达式，由它来指定已存在的文件名和位置，在其中包含目录或文件夹以及驱动器。 newpathname也是字符串表达，它指定新的文件名和位置，同样要包含目录或文件夹以及驱动器。,
