VB考试教程：文件处理之文件控件

文件管理在计算系统中一直是一个非常重要的概念。所谓文件，是指存储在外部存储介质上的数据和程序。

在windows中编程时，以下功能非常重要:添加、移动、修改、创建和删除文件夹(目录)和文件，以及获取信息和操作驱动器。

VB允许以下两种不同的方法来操作驱动器、文件夹和文件。传统的方法有Open statement、Write#等。或文件系统对象(FSO)对象模型。从vb的第一版到现在，文件处理都是通过使用Open语句等相关语句和函数来实现的，并将逐渐转向FSO对象模型。如果设计应用程序使用数据库文件，则不需要在应用程序中提供直接文件访问。日期控件和绑定控件都可以向数据库读写数据，这比直接使用文件访问更容易。

以下是一些常见的文件控件。

一.文件控制

在VB6.0中，有四种文件类型控件，分别是DriveListBox控件(驱动器列表框)、DirListBox控件(目录列表框)、FileListBox控件(文件列表框)和CommDialog控件，可以实现不同的功能。

1.DriveListBox控件

DriveListBox控件的功能是在程序运行期间为用户提供有效磁盘驱动器的选择。该控件可用于显示用户系统中所有有效磁盘驱动器的列表。

后面介绍的DriveListBox控件、DirListBox控件、FileListBox控件都有很多标准属性，包括Enable、FontBold、FontItalic、FontName、FontSize、Height、Left、Name、Top、Visible、Width等等。此外，DriveListBox控件最重要的属性之一是Drive属性，它用于更改DriveListBox控件的默认驱动器。该驱动器属性只能在程序代码中设置，不能通过属性窗口设置。它的格式是:

驱动器列表框名称。驱动器[=驱动器名]

这里的“驱动器名”是指定的驱动器。如果省略，则引用当前驱动器。如果当前系统中不存在选定的驱动器，将会产生错误。

每次重置驱动器列表框的Drive属性时，都会引发Change事件。

下面是一个用DriveListBox控件编程的例子。

(1)添加控件

首先，在white 空表单上放置一个DriveListBox控件。

(2)添加代码

在窗体的Form_Load()事件中添加以下代码:

private form _ load()
drive 1 . drive = " e:\ " '将控件的默认驱动器设置为e，
End Sub

程序说明:程序运行时会激活Form_load()事件。然后，控件的默认驱动器将被语句Drive1设置为E。Drive="e:\ "

(3)存储文件和运行程序。

因为在程序的Form_Load()事件中，DriveListBox控件的默认驱动设置为E drive，所以DriveListBox控件在程序的开始界面显示E drive。

2.目录列表框控件

DirListBox控件的功能是在程序运行期间显示一个分层列表。DirListBox控件有几个重要的属性，如Path属性、List属性和ListCount属性。

(1)路径属性

Path属性在目录列表框和文件列表框中用于设置或返回当前驱动器的路径。属性的值是指示路径的字符串，如“e:\user”或“c:\PWIN95\MEDIA”。它的格式是:

【形式。]目录列表框│文件列表框。路径[= "path"]

Path属性只能在程序代码中设置，不能通过属性窗口设置。

在一般应用程序的设计中，如果使用了DirListBox控件，就要同时使用DriveListBox控件与之关联，如下:

添加DriveListBox控件和DirListBox控件。

设置两者之间的同步(当DriveListBox控件的驱动器改变时，DirListBox控件中的内容与之同步):

private Sub drive 1 _ change()
dir 1 . path = drive 1 . drive '设置DirListBox控件的路径以与DriveListBox控件的路径同步
End Sub

设置DriveListBox控件的默认驱动器，如“C”驱动器:

private form _ load()
drive 1 . drive = " C:\ " '将控件的默认驱动器设置为C，
End Sub

(2)列表属性

list属性的作用是返回或设置控件列表部分的项目。

语法如下:

【形式。]控制。列表(索引)[=字符串]

列表属性语法包含以下部分:

控件:组合框、列表框、驱动器列表框、目录列表框、文件列表框等。
index:某种列表框中项的下标。
string:字符串表达式
对于DirListBox控件，在运行时创建控件时，索引号序列(index)基于当前目录和子目录。当前展开的目录用索引值-1表示，当前展开的目录的前一个目录用绝对值较大的负索引值表示。例如，-2是当前展开目录的父目录，-3是其父目录。当前展开目录下的目录范围是从0到ListCount-1。

示例:添加一个DriveListBox控件和一个DirListBox控件，并设置以下代码:

private form _ load()
drive 1 . drive = " C:\ " '将控件的默认驱动器设置为C，
End Sub

private Sub drive 1 _ change()
dir 1 . path = drive 1 . drive '设置DirListBox控件的路径以与DriveListBox控件
End Sub同步

private dir 1 _ change()
msgboxdir 1 . list(-2)'通过对话框显示所选目录的上一个目录。