VB6.0基础教程 目录列表框

兔纸兄

    目录列表框用于显示当前驱动器上的目录结构。它以根目录开头，显示的目录按照子目录的层次依次缩进，如图10.2所示。

    双击某一目录，可打开该目录，即显示该目录中的所有子目录。被打开的目录的图标为一个打开状的文件夹。双击打开的目录可将其关闭，其中的子目录不再显示出来，并且目录的图标变成一个关闭状的文件夹。

    目录列表框的最重要的属性是Path,该属性用来在运行时设置或返回所选择的路径，在设计时不可用。

    同样，改变目录列表框的Path属性的设置值会触发它的Change事件。因此，在Change事件过程中，可用ChDir语句来更改系统当前路径，语句如下：

    ChDir Dirl.Path

    目录列表框只能显示当前驱动器下的目录，如果要显示其他驱动器下的目录结构，则必须使用Path属性来设置它的路径，最佳选择是将目录列表框与驱动器列表框配合使用。

    实例10.1目录列表框与驱动器列表框的配合使用。

在窗体上放置一个驱动器列表框、一个目录列表框、一个标签控件和一个文本框控件。如图10.3所示，其中各对象属性的设置如表10.2所示。

    编写代码如下：

Private Sub Drver_Change()    Dirl.path=Drivel.drive End Sub Private Sub Dirl_Change()    Text1.Text=Dirl.Path End Sub

    运行程序，在驱动器列表框中选择驱动器，则目录列表框中的目录会同步发生相应的改变；在目录列表框中选择目录，则文本框中会显示出当前所选择的路径，如图10.4所示。

longtengxp

羡慕楼主的确是很羡慕,顶一下

剑齿虎233

来错板块了？