VisualBasic程序设计第3版电子教案第10章.pptVIP

10.4 文件操作控件 为了适应在应用程序中处理文件的需要，VB提供了3种文件系统控件：驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）。利用文件系统控件可以设计出用户所喜爱的、具有不同风格的对话框，利用它们进行文件管理十分方便。 10.4.1 驱动器列表框 驱动器列表框控件在工具箱中（如图10-16所示），可以通过单击该图标并用鼠标在窗体上拖曳出一个驱动器列表框。 图10-16 文件系统控件 驱动器列表框最重要的属性是Drive属性，它用来设置当前驱动器，但不能在设计阶段使用此属性，必须在程序中设置或引用，格式如下： [对象.]drive[=drive] 其中，对象是驱动器列表框的名字。 10.4.2 目录列表框 目录列表框用于显示当前磁盘驱动器下的目录。 目录列表框有一个重要属性——Path（路径）属性，用来设置和返回当前的路径。Path属性也不能在设计状态时设置。 格式如下： [对象.]Path[=pathName] 其中，对象是指目录列表框或文件列表框。pathName是一个路径名字符串。同驱动器列表框一样，每次Path属性的改变都会引发Change事件。 可以把驱动器列表框和目录列表框结合起来用，使二者“同步”，这需要编程实现。如在代码窗口加入如下事件过程： Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 当驱动器列表框中改变驱动器时，就会触发Change事件，执行Drive1_Change过程，在过程执行时就把刚选定的驱动器目录结构赋给目录列表框Dir1的Path属性，因此在目录列表框就“同步”显示选定的驱动器的目录结构。 10.4.3 文件列表框 文件列表框列出在当前目录下的文件名。文件列表框有3个重要的常用属性：Path，Pattern和FileName。 1．Path属性 Path属性用来指定当前路径，缺省值为系统的当前路径。 2．Pattern属性 Pattern属性用来指定在文件列表框显示的文件类型，它的缺省值为“*.*”，即显示所有文件的名字。 3．FileName属性 FileName属性用来在程序运行时设置或返回所选中的文件名。格式如下： [对象.]FileName[=pathName] 其中，对象是文件列表框，pathName是一个指定文件名及其路径的字符串。 下面就通过一个例子来进一步说明驱动器列表框、目录列表框和文件列表框的使用，从而帮助读者设计自己喜欢的文件管理界面。 【例10.11】设计一个图10-17所示的“打开可执行文件”管理界面。 图10-17 文件系统控件应用示例 控件属性设置如表10-11所示。 对 象 属 性 设 置 Form1 Caption BorderStyle MaxButton MinButton 打开可执行文件 1-Fixed Single False False Label1 Caption 驱动器列表： Label2 Caption 文件夹列表： Label3 Caption 文件列表： Label4 Caption 文件名： Label5 Caption 文件类型： Text1 Text 空白 Command1 Caption 确定 Command2 Caption 取消 表10-11 控件属性设置 其他控件属性均使用默认值。 程序代码如下： Dim fullName As String Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Command1_Click() File1_DblClick End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Dir1_Change() Text1.Text = Dir1.Path File1.Path = Dir1.Path End Sub Private Sub Dri