二、目录列表框(DirListBox) 显示某目录下的目录结构；可通过双击打开 某目录（选定）。 Path属性：引用或设置所选定目录的路径。 访问Path属性的语法形式： 对象名.Path[=pathname] Change事件：Path属性值改变时触发。 6
6 二、目录列表框(DirListBox) 显示某目录下的目录结构；可通过双击打开 某目录（选定）。 Path属性：引用或设置所选定目录的路径。 访问Path属性的语法形式： 对象名.Path[=pathname] Change 事件：Path属性值改变时触发
例： Private Sub Form Load() Dirl.Path "e:\wx" '设置选定的目录 End Sub Private Sub Dir1 Change() Print Dir1.Path 返回选定目录的路径 End Sub 7
7 Private Sub Form_Load() Dir1.Path = "e:\wx" '设置选定的目录 End Sub Private Sub Dir1_Change() Print Dir1.Path '返回选定目录的路径 End Sub 例：
如何实现目录列表框与驱动器列表框同步？ Private Sub Drivel Change() Dir1.Path Drivel.Drive End Sub 8
8 如何实现目录列表框与驱动器列表框同步？ Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
三、文件列表框(FileListBox) 显示某目录下的文件。 Path属性：引用或设置文件所在的路径，同目录列表框。 Pattern属性：引用或设置所显示的文件类型。 对象名.Pattern[=value] value的值如：“*.*”、“*.bmp”、“*txt”、 “*.fm”等 例：Filel.Pattern=“*.fm 9
9 三、文件列表框(FileListBox) 显示某目录下的文件。 Path属性：引用或设置文件所在的路径，同目录列表框。 Pattern属性：引用或设置所显示的文件类型。 对象名.Pattern[=value] value的值如：“ *.* ” 、 “ *.bmp ” 、 “ *.txt ” 、 “ *.frm ” 等 例：File1.Pattern= “ *.frm
例：三种列表框组合使用，达到同步效果。 Private Sub Drivel Change() Dir1.Path Drivel.Drive End Sub Private Sub Dirl Change() Filel.Path Dir1.Path End Sub 10
10 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 例：三种列表框组合使用，达到同步效果