例11.2.txt

vb电子书籍

【例11.2】调整图11.2窗体的布局，添加一个目录列表框dirTest，窗体如图11.5所示。当选中某个驱动器后，将该驱动器的文件夹目录显示在目录列表框中。如果选中某个目录，用消息框显示被选中目录名。

双击一个目录，使其被打开，触发目录列表框的Change事件，程序如下： 
Private Sub dirTest_Change()