vb基础 vb实例教程 api调用 控件使用 经验技巧 数据库操作 算法及技术 vb源码下载
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 返回首页  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> vb教程

vb神童教程第二章第十四节——文件操作控件
文章来源:赛迪 作者:小雷

  在一个应用程序中,对文件的处理是一个比较常用的操作,如打开文件、保存文件,等等。Visual Basic 提供了三个控件对磁盘文件夹与文件进行显示与操作,它们分别是:DriveListBox(磁盘列表框)控件、DirListBox(文件夹列表框)控件,以及 FileListBox(文件列表框)控件。如图一:


图一

一、DriveListBox(磁盘列表框)控件:
在工具箱面板上,DriveListBox 控件的图标如图二:


图二

在窗口中创建的磁盘列表框可以自动显示电脑上或网络上的所有磁盘驱动器,另外,还可以通过语法设置运行时显示的驱动器名称,这就要用到 Drive 属性。 磁盘列表框名称.Drive = Drive(如 C: ,或者 D:,等等)。 比如,要在窗体启动时把当前磁盘改为 F 盘,那么:

Private Sub Form_Load()
  Drive1.Drive = "F:"
End Sub


图三

二、DirListBox(文件夹列表框)控件:
在工具箱面板上,DirListBox 控件的图标如图四:


图四

文件夹列表框控件可以显示与设置文件夹的路径,当用户在窗口中创建 DirListBox 控件时,双击其中的文件夹,不需进行编程就能自动显示下一级的文件夹,如图五:


图五

本控件的主要属性是 Path 属性,用来返回或设置当前文件夹的路径,只能在程序运行中使用,其语法是: 文件夹列表框名称.Path = 具体的路径

比如,我们要在窗体启动时把默认显示的文件夹改为 D:\Mytool\ ,程序可以这样写:

Private Sub Form_Load()
Dir1.Path = "D:\Mytool\"
End Sub

三、FileListBox(文件列表框)控件:
跟前面两个控件一样,本控件能够自动显示符合条件的文件清单。如图六:


图六

文件列表框控件主要有两个属性,即 Path 属性与 FileName 属性,前者代表文件的路径,从显示路径的功能上来说,比后者更简便一些;后者则用来返回或设置所选文件的路径与文件名,其语法是: 文件列表框名称.FileName = 路径

比如,我们要在窗体启动时将 E:\稿件 目录下的所有 ZIP 文件列出来,程序可以这样写:

Private Sub Form_Load()
File1.FileName = "E:\稿件\*.zip"
End Sub

结果如图七:


图七

四、三个控件的连接:
上面我们就三个控件进行了分别的学习,在程序中,它们却是互不关连的,并不是只要在窗体中创建了它们,然后对某个控件(如磁盘列表框)进行操作,其他控件就会自动显示相应的磁盘下的文件,这需要用程序进行实现。

1、将磁盘列表框的操作赋值给文件夹列表框的 Path 属性,在磁盘列表框的 Change 事件中输入如下代码:

Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
End Sub

2、对文件夹列表框控件进行的操作,直接影响文件列表框所显示的内容:

Private Sub Dir1_Change()
  File1.Path = Dir1.Path
End Sub

最后结果如图八:


图八

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有