具有微软风格的Explore

2008-04-09 04:40:56来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  尽管Visual Basic标准控件DriveListBox、DirListBox和FileListBox在一些环境中能很好使用,但若想显示类似Windows Explorer的文件夹结构就显得力不从心了。这时就必须使用TreeView控件,因为它为文件、文件夹和驱动器显示提供了完善的解决方案,并且系统的FileSystemObject对象能有效地获得主机的目录信息。

  本文将介绍如何使用FileSystemObject将指定的目录或全部的驱动器与TreeView控件相结合,以及如何消除当驱动器全部文件列表填充TreeView时所遇到的缺陷。作为技巧,文中还讨论如何用SendMessage()的API函数来对TreeView内容的快速清除。事实上,这是一种最快捷的方法,它也可用于其他控件中。

关于FileSystemObject对象库
  众所周知,FileSystemObject对象库是在Visual Basic Scripting Edition 2.
中发布的,它包括一系列用于驱动器、文件夹和文件的操作。为了能在Visual Basic中使用FileSystemObject,必须引用SCRRUN.DLL文件以便能使用它的属性、方法和事件。在VB工程中添加SCRRUN.DLL的引用,是通过选择"Project"(工程)->"References"(引用)命令,然后选定"Microsoft Scripting Runtime"项来进行的。一旦引用后,就可用FileSystemObject方法获得文件夹名称以及每个文件夹下的文件名。
  FileSystemObject允许用户在当前磁盘中进行文件操作,如复制、删除以及其他文件夹、文件操作等。本文着重讨论与文件夹结构相关的方法,即如何获得文件夹和文件名称。

创建示例
  示例创建的过程是这样的,首先在默认的表单中添加必要的控件;然后添加代码,用来将目录内容添加在TreeView中;最后,利用SendMessageLong() API函数添加一个过程,用来清除TreeView中的内容。

创建用于文件和文件夹的表单
  首先,创建一个新的Visual Basic工程;然后,将默认的表单标题设置为"Exploring the Windows' directory",再在表单上添置一个TreeView控件和一个命令按钮控件,保留默认名称。最后,将命令按钮的标题设置为"Fill TreeView"。

声明两个重要的变量
  在这一步中,我们需要为表单添加一些代码。首先,需要安装SCRRUN.DLL的引用,从菜单栏上选择"Project"(工程)->"References"(引用)命令,在弹出的对话框中,选中"Microsoft Scripting Runtime"项。单击[OK]按钮关闭对话框。然后,在表单中右击鼠标,从弹出的快捷菜单中选择"View Code"命令,在声明部分添加下列语句:
Const DEFAULT_DRIVE = "C:\"
Dim FSO As New Scripting.FileSystemObject
  这里为简单起见,我们用一个常量来指定建立的目录树的默认驱动器。当然,最好能让用户对这个值作出选择。
  用户或许想知道为什么在表单层中声明一个FSO变量,而不是在实际读取文件信息的过程中声明。这完全是一次偶然机会的心得,因为在许多好的程序中,通常允许用户用多种方式处理选择的文件。在表单层范围内定义一个FSO变量,其目的是可以处理所有其他FileSystemObject成员,而不必每次都有定义一个对象变量。
  基于这种考虑,在表单被调用时应对FSO变量进行初始化,而当表单关闭后,该变量应被清除。这项工作的最终完成是通过下面的代码:
Private Sub Form_Load()
  Set FSO = New FileSystemObject
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Set FSO = Nothing
End Sub

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB实现数据的加解密算法

下一篇:用vb6设计缩略图功能的图片浏览器

热门词条
热门标签