Visual Basic 文件系统控件

文件系统控件包括:驱动器列表框(DriveListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)。文件系统控件可以单独使用,也可以组合使用,如图6.1所示。

图6.1 文件系统控件

1. 驱动器列表框

驱动器列表框用于选择一个驱动器,是一个下拉列表框,其在工具箱中的图标为

。默认状态时,顶端突出显示系统的当前驱动器名称。

该控件最重要的属性为Drive,当用户在列表中选择一个驱动器代号,运用这个属性值可以判断选定的驱动器数据,或指定列表框中显示的驱动器名称,如下面的程序代码:

Drive1.Drive = "C:\"

利用ChDrive语句可以将指定的驱动器设为当前驱动器,如:

ChDrive Drive1.Drive

2. 目录列表框

目录列表框在工具箱中的图标为

,用于显示一个磁盘的目录结构。显示从根目录起的所有子目录,用户可以选择不同目录项目使其反白,成为当前所在的目录。

通过目录列表框的Path属性,可以读取或指定当前的工作目录。例如可以将驱动器列表框选定的驱动器名称设置为工作目录:

Dir1.Path = Drive1.Drive

上行程序代码可以使目录列表显示驱动器列表框选择的驱动器、所有可用的目录及子目录。配合ChDir语句的使用,就能将工作目录改变为目录列表框中所选择的目录,如:

ChDir Dir1.Path

3. 文件列表框

工具箱中文件列表框的图标为

。当程序运行时,文件列表框可列出特定目录中的所有文件名称,该目录是根据Path属性值来指定的。利用这个Path属性可以显示当前工作目录中的所有文件,例如:

File1.Path = Dir1.Path

Pattern属性用来设置在程序运行时FileListBox中要显示的文件种类。默认时Pattern属性值为"*.*",即显示所有类型的文件。VB支持通配符"*"和"?",如*.frm、???.bmp。例如,要将文件类型设置为*.txt文件:

File1.Pattern = "*.txt"

利用分号可指定多种类型的文件显示,如:

File1.Pattern = "*.txt;*.exe"

另外还有一些属性项目也能限制文件列表框所显示的文件,如Archive,Hidden,Normal,ReadOnly,System属性。文件列表框的MultiSelect属性决定用户能否选择多个文件,默认只能选择单一文件。

文件系统控件的事件如表6.1所示。

表6.1 文件系统控件的事件

|--------------|---------------|--------------------------|
| 控件名 | 事 件 | 触发时刻 |
| DriveListBox | Change | 选择新驱动器或修改Drive属性 |
| DirListBox | Change | 双击选择新目录或修改Path属性 |
| FileListBox | PathChange | 设置文件名或修改Path属性 |
| FileListBox | PatternChange | 设置文件名或修改Pattern属性改变文件的格式 |

通常,DriveListBox,DirListBox和FileListBox控件一起使用,在改变驱动器列表框中的驱动器时,目录列表框中显示的目录也应同步变化,可通过DriveListBox控件的Change事件的以下语句来实现同步:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

同样,目录列表框中目录改变,同时使文件列表框也同步改变,可通过在DirListBox控件的Change事件的以下语句来实现:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

【例6.1】 图形浏览器的设计。

首先,在窗体上添加一个图像框Image1,并将其Stretch属性设置为True。然后依次在窗体上添加一个文件列表框File1,一个目录列表框Dir1,一个驱动器列表框Drive1,以及3个用于说明的标签,如图6.2所示。

图6.2 图形浏览器

其程序代码如下:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

File1.Pattern = "*.bmp;*.wmf;*.ico"

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)

End Sub

单击驱动器可以相应地改变目录列表框中的目录,单击目录列表框可以相应地改变文件列表框中的文件名,在文件列表框单击文件名即可在图形框中显示所选择文件的图形。另外,为了在程序开始运行时,文件列表框就显示指定类型的文件,可在Form_load事件过程中设置文件列表的Pattern属性,也可在设计时直接修改此属性值。

相关推荐
思茂信息18 小时前
CST软件对Customer Success OPPO手机电源适配器EMC仿真
开发语言·嵌入式硬件·matlab·3d·智能手机·cst
缺点内向19 小时前
如何在 C# 中将 Excel 工作表拆分为多个窗格
开发语言·c#·.net·excel
少废话h20 小时前
解决Flink中ApacheCommonsCLI版本冲突
开发语言·python·pycharm
天命码喽c20 小时前
GraphRAG-2.7.0整合Milvus-2.5.1
开发语言·python·milvus·graphrag
后端小张20 小时前
【JAVA进阶】Spring Boot 核心知识点之自动配置:原理与实战
java·开发语言·spring boot·后端·spring·spring cloud·自动配置
Mr_Xuhhh1 天前
YAML相关
开发语言·python
咖啡の猫1 天前
Python中的变量与数据类型
开发语言·python
前端达人1 天前
你的App消息推送为什么石沉大海?看Service Worker源码我终于懂了
java·开发语言
汤姆yu1 天前
基于springboot的电子政务服务管理系统
开发语言·python
全栈师1 天前
C#中控制权限的逻辑写法
开发语言·c#