文件系统控件.pptxVIP

在应用程序中常常需要对文件进行处理，例如打开文件、保存文件、复制或删除文件、文件改名等。在VB和其他Windows应用程序中提供了十分方便的进行上述操作的方法。例如，当VB用户选择“文件”→“打开工程”命令时，屏幕上出现一个打开文件对话框（见图10.1），在这个对话框中，包括驱动器的选择、目录（文件夹）的选择、文件的选择，以及文件类型的指定等。;;为了在应用程序中能处理文件，VB提供了三种文件系统控件：驱动器列表框、目录列表框和文件列表框。利用它们可以自己设计出各种处理文件的对话框。当然也可以直接利用在第7章介绍过的VB提供的标准“打开”（Open）、“另存为”（Save As）对话框，但是，利用本章介绍的文件系统控件可以设计出满足用户特殊要求的、具有不同界面风格的对话框，利用它们进行文件管理十分方便。 10.1　驱动器列表框 驱动器列表框控件（Drive List Box）在工具箱中的图标为 。我们通过一个简单的例题说明驱动器列表框的作用。;【例10.1】 在窗体上添加一个驱动器列表框，一个“退出”命令按钮。当单击驱动器列表框中的某个驱动器名称时，用消息框显示所选的驱动器。 用鼠标单击工具箱中的驱动器列表框图标，并用鼠标在窗体上拖拉画出一个驱动器列表框（见图10.2）。 ;;从图10.2中可以看到驱动器列表框的右端有一个下三角按钮，在程序运行时，单击此按钮可以打开一个列表，列出当前系统中所能使用的驱动器的名字（见图10.3），列表框的顶部显示当前驱动器的名字，用户如单击列表框中某一驱动器的名字，则顶部立即改为用户所选的驱动器名。;;驱动器列表框最重要的属性是Drive属性，它用来设置或返回当前驱动器名，但在设计阶段不能使用这个属性，必须在程序中赋值，如： drvTest.Drive=“a:” 其中drvTest是在属性表中已指定的驱动器列表框的“名称”属性值（即该控件的名字）。执行此赋值语句后把当前驱动器改为“a:”。当用户单击列表框中某一驱动器名时，该驱动器名就成为该列表框的Drive属性值，也就是说，Drive属性可以用来设置当前驱动器，也可以接收并返回用户选定的驱动器名。 当Drive属性值发生改变时??就发生Change事件。例如，执行上面的赋值语句后，就触发 ;　drvTest_Change( )事件过程。为了显示选中的驱动器名，编写如下事件过程： Private Sub drvTest_Change ( ) MsgBox 选中的驱动器是： + drvTest.Drive End Sub 例如，选中驱动器f后，驱动器列表框中显示该驱动器名，并弹出消息框，如图10.4。 ;;10.2　目录列表框 目录列表框用于显示当前磁盘驱动器的目录。目录列表框控件（DirList Box）在工具箱中的图标为 。 【例10.2】 调整图10.2窗体的布局，添加一个目录列表框dirTest，窗体如图10.5。当选中某个驱动器后，该驱动器的目录显示在目录列表框中。如果选中某个目录，用消息框显示被选中目录名。;;从图10.5中可以看到顶部是根目录“c:\”，下面列出“c:\”下的子目录名，其中“VB98”被点亮，表示它是系统的当前目录。列表框右侧有一个垂直滚动条，在程序运行时移动滚动条可以浏览全部目录。从图中可以看到，只有当前目录（VB98）是打开的，其他子目录全部是关闭的（VB98左侧的文件夹图标是打开的）。 双击一个目录，使其被打开，触发目录列表框的Change 事件，程序如下： Private Sub dirTest_Change ( ) MsgBox 选中的目录是： + dirTest.Path End Sub;Path（路径）属性是目录列表框的重要属性之一，用来设置和返回当前的路径。上面事件过程中的dirTest.Path返回当前的路径。 到目前为止，窗体中的驱动器列表框和目录列表框相互之间尚未建立联系，也就是说，改变驱动器名时，目录列表框中内容不能随之变化。若要把驱动器列表框和目录列表框结合起来用，使二者“同步”， 需要编写一段程序。 Private Sub drvTest_Change ( ) dirTest.Path = drvTest.Drive End Sub;例如，当驱动器列表框中当前目录由“c:\”改变为“d:\”时，发生了Change事件，执行drvTest _Change过程，drvTest.Drive的值已变为“d:\”，把它赋给目录列表框dirTest的Path属性，因此在目录列表框就显示“d:\”的目录结构，见图10.6。这样，驱动器列表框和目录列表框能够同步变化。 ;;10.3　文件列表框 文件列表框显示当前目录下的文件。文件列表框控件（File List Box）在工具箱中的图标为 。 【例