文件操作控件.pdf

《文件操作控件.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、l掌握磁盘驱动器控件的属性、事件及其用法l掌握文件夹控件的属性、事件及其用法l掌握文件列表框控件的属性、事件及其用法l掌握三种控件同步的方法及相应的编程技艺第十二讲——文件操作控件在一个应用程序中，对文件的处理是一个比较常用的操作，如打开文件、保存文件，等等。VisualBasic提供了三个控件对磁盘文件夹与文件进行显示与操作，它们分别是：DriveListBox（磁盘列表框）控件、DirListBox（文件夹列表框）控件，以及FileListBox（文件列表框）控件。如图一：图一一、DriveListBox（磁盘列表框）控件：在工具箱面板上，DriveListBox控件的图标如图二：图二在窗

2、口中创建的磁盘列表框可以自动显示电脑上或网络上的所有磁盘驱动器，另外，还可以通过语法设置运行时显示的驱动器名称，这就要用到Drive属性。磁盘列表框名称.Drive=Drive（如C:，或者D：，等等）。Drive属性，它用来设置或返回当前驱动器的名字，但在设计阶段不能使用这个属性，必须在程序中赋值，如执行上面的的赋值语句后，把当前的驱动器改为“c:或d:”当用户单击列表框中某一驱动器名时，该驱动器名就成为该列表框的drive属性值，也就是说,drive属性可以用来设置当前驱动器，也可以接受并返回用户选定的的驱动器名。比如，要在窗体启动时把当前磁盘改为F盘，那么：PrivateSubForm_

3、Load()Drive1.Drive="F:"EndSub图三例：在窗体上添加一个驱动器列表，一个“退出”命令按钮。当单击驱动器列表框中的某个驱动器名称时，用消息框显示所选的驱动器。用鼠标单击工具箱中的驱动器列表框图标，并用鼠标在窗体上拖出一个驱动器列表框。驱动器列表框的右端有一个下三角按钮，在程序运行时，单击此按钮可以打开一个列表，列出当前系统中所能使用的驱动器名字，列表顶部显示当前驱动器的名字，用户单击列表框中某一驱动器的名字，则顶部立即改为用户所选的驱动器的名字。当drive属性值发生改变时，就发生change事件。例如，执行上面的赋值语句后，就触发drive1_change()事件过程

4、，为了显示所选中的驱动器名，编写下列代码：privatesubdrive1_change()msgbox“选中的驱动器是：”&drive1.driveendsub二、DirListBox（文件夹或目录列表框）控件：在工具箱面板上，DirListBox控件的图标如图四：图四文件夹列表框控件可以显示与设置文件夹的路径，当用户在窗口中创建DirListBox控件时，双击其中的文件夹，不需进行编程就能自动显示下一级的文件夹，如图五：图五本控件的主要属性是Path属性，用来返回或设置当前文件夹的路径，只能在程序运行中使用，其语法是：文件夹列表框名称.Path=具体的路径比如，我们要在窗体启动时把默认显示

5、的文件夹改为D:Mytool，程序可以这样写：PrivateSubForm_Load()Dir1.Path="D:Mytool"EndSub例2．在上例的基础上，添加一个目录列表框dir1，当选中某个驱动器后，该驱动器的目录显示在目录列表框中。如果选中某个目录，用消息框显示被选中的目录名。从例2中可以看到顶部的根目录是“c:”,下面列出了“c:”下的子目录名，其中“VB98”被点亮，表示它是系统的当前目录。列表框右侧有一个垂直滚动条，在程序运行时移动滚动条可以浏览全部目录，从例中可以看到，只有当前目录（VB98）是打开的，其他子目录全部是关闭的。双击一个目录，使其被打开，触发目录列

6、表框的change事件程序如下privatesubdir1_change()msgbox“选中的目录是：”&dir1.pathendsub到目前为止，窗体中的驱动器列表框和目录列表框相互之间尚未建立联系，也就是说，改变驱动器名时，目录列表框中内容不能随之变化。若要把驱动器列表框和目录列表框结合起来，使二者“同步”，需要编写一段程序。privatesubdrive1_change()dir1.path=drive1.driveendsub例如，当驱动器列表框中当前目录由“c:”改变为“d:”时，发生了change事件，执行drive1_change过程三、FileListBox（文件列表框）

7、控件：跟前面两个控件一样，本控件能够自动显示符合条件的文件清单。如图六：图六文件列表框控件主要有两个属性，即Path属性与FileName属性，前者代表文件的路径，从显示路径的功能上来说，比后者更简便一些，path的缺省值是系统的当前路径。；后者则用来返回或设置所选文件的路径与文件名，其语法是：文件列表框名称.FileName=路径比如，我们要在窗体启动时将E:稿件目录下的所有ZIP文件列出来，