在窗口中创建的磁盘列表框可以自动显示电脑上或网络上的所有磁盘驱动器,另外,还可以通过语法设置运行时显示的驱动器名称,这就要用到 Drive 属性。 磁盘列表框名称.Drive = Drive(如 C: ,或者 D:,等等)。 比如,要在窗体启动时把当前磁盘改为 F 盘,那么: Private Sub Form_Load() Drive1.Drive = "F:" End Sub
本控件的主要属性是 Path 属性,用来返回或设置当前文件夹的路径,只能在程序运行中使用,其语法是: 文件夹列表框名称.Path = 具体的路径 比如,我们要在窗体启动时把默认显示的文件夹改为 D:Mytool ,程序可以这样写: Private Sub Form_Load() Dir1.Path = "D:Mytool" End Sub 三、FileListBox(文件列表框)控件: 跟前面两个控件一样,本控件能够自动显示符合条件的文件清单。如图六:
图片:50_214_513c97a19e31b0a.gif
图六
文件列表框控件主要有两个属性,即 Path 属性与 FileName 属性,前者代表文件的路径,从显示路径的功能上来说,比后者更简便一些?;后者则用来返回或设置所选文件的路径与文件名,其语法是: 文件列表框名称.FileName = 路径 比如,我们要在窗体启动时将 E:稿件 目录下的所有 ZIP 文件列出来,程序可以这样写: Private Sub Form_Load() File1.FileName = "E:稿件*.zip" End Sub 结果如图七:
图片:50_214_da5a6429e2ff691.gif
图七
四、三个控件的连接: 上面我们就三个控件进行了分别的学习,在程序中,它们却是互不关连的,并不是只要在窗体中创建了它们,然后对某个控件(如磁盘列表框)进行操作,其他控件就会自动显示相应的磁盘下的文件,这需要用程序进行实现。 1、将磁盘列表框的操作赋值给文件夹列表框的 Path 属性,在磁盘列表框的 Change 事件中输入如下代码: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 2、对文件夹列表框控件进行的操作,直接影响文件列表框所显示的内容: Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 最后结果如图八: