Visual Basic程序设计 第三版 作者 丁爱萍 第6-11章 项目十.pptVIP

项目十　文件、驱动器和文件夹 　　　　　任务10.1 文件系统控件　　任务导入　　计算机的文件系统包括用户建立的数据文件和系统软件及应用软件中的文件。为了管理计算机中的文件，VB提供了文件系统控件。 　　文件系统控件的作用是显示出关于驱动器、目录和文件的信息，并从中进行选择，以便执行进一步的操作。通过使用DriveListBox(驱动器列表框)、DirListBox(目录列表框)和FileListBox(文件列表框)三种控件的组合，可以创建自定义文件系统对话框。　　 　　学习目标　　(1) 会使用DriveListBox(驱动器列表框)控件。　　(2) 会使用DirListBox(目录列表框)控件。　　(3) 会使用FileListBox(文件列表框)控件。 　　任务实施　　1. 了解驱动器列表框　　驱动器列表框DriveListBox是下拉式列表框，它与目录列表框、文件列表框一样，有许多标准属性，包括Enabled、Visible等。 　　此外，它还有一个Drive属性，用来设置或返回所选择的驱动器名。Drive属性只能用程序代码设置，不能通过属性窗口设置。设置格式为　　驱动器列表框名称.Drive[=驱动器名] 　　【说明】　　(1) 格式中的“驱动器名”是指定的驱动器，如果省略，则默认为当前驱动器。　　(2) 在程序执行期间，显示当前磁盘驱动器名称。如果单击驱动器列表框右端的下拉箭头，则显示计算机中所有的驱动器名称，如图10.1所示。单击某驱动器，可把它变为当前驱动器。 图10.1 在运行期间的驱动器列表框 　　(3) 使用ChDrive语句可以将指定的驱动器设为当前驱动器，如：　　ChDrive Drive1.Drive 　　　‘ 将用户在列表框中选择的驱动器设为当前驱动器　　ChDrive “D” 　　　 将D:设为当前驱动器 　　(4) 每次重新设置驱动器列表框的Drive属性时，都将引发Change事件。驱动器列表框的默认名称为Drive1，其Change事件过程的开头为　　　Private Sub Drive1_Change() 　　2. 了解目录列表框　　目录列表框用来显示当前驱动器上的目录结构，刚建立时显示当前驱动器的顶层目录和当前目录。顶层目录用打开的文件夹表示，当前目录用加阴影的文件夹表示，当前目录下的子目录用关闭的文件夹表示，如图10.2所示。 　　在目录列表框中只显示当前驱动器上的目录。如果要显示其他驱动器上的目录，必须改变路径，即重新设置目录列表框的Path属性。　　Path属性适用于目录列表框和文件列表框，用来设置或返回当前驱动器的路径。Path属性在设计模式下不可用。其语法格式为　　[窗体.]目录列表框. |文件列表框. Path [ = 路径 ] 图10.2 在设计阶段的目录列表框 　　【说明】　　(1) 格式中的“窗体”是目录列表框所在的窗体，如果省略，则为当前窗体。如果省略[= “路径”]，则显示当前路径，如：　　Dir1.Path = “c:\windows”　‘ 将当前目录设为c:\windows　　其中，Dir1是目录列表框的默认控件名。 　　(2) 使用ChDir语句也可以改变当前的目录或文件夹，如：　　ChDir Dir1.Path ‘ 将用户在目录列表框中选取的目　录设为当前目录　　(3) 驱动器列表框与目录列表框有着密切的关系。在一般情况下，改变驱动器列表框中的驱动器名后，目录列表框中的目录应随之变为该驱动器上的目录，也就是使驱动器列表框和目录列表框产生同步效果。 　　3. 了解文件列表框　　用驱动器列表框和目录列表框可以指定当前驱动器和当前目录，而文件列表框可以用来显示当前目录下的文件(可通过Path属性改变)。　　文件列表框的默认控件名是File1。与文件列表框有关的属性较多，其主要属性如表10-1所示。 　　【课堂演练】　　【实例10-1】 在实际应用中，驱动器列表框、目录列表框和文件列表框往往需要同步操作，请编写程序使三者同步。　　【实现步骤】　　可以通过改变Path属性来引发Change事件：　　Private Sub Dir1_Change()　　 File1.Path = Dir1.Path　　End Sub 　　该事件过程使窗体上的目录列表框Dir1与文件列表框File1产生同步。类似地，增加下面的事件过程就可以使三者同步：　　Private Sub Drive1_Change()　　 Dir1.Path = Drive1.Drive　　End Sub　　同步操作情况如图10.3所示。 图