从公共对话框控件中提取多个文件名称

发表日期：2006-2-27

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

-在VisualBasic程序中，公共文件对话框控件让用户很容易地选取一个或多个文件，文本将介绍如何从公共对话框控件中提取所选择的文件名称。

使用公共对话框控件

----VisualBasic的公共文件对话框控件允许程序员为用户提供对硬盘上的目录和文件结构进行访问。例如，如果用户需要选择一个文本文件，可以显示出一个公共文件对话框控件，以允许用户浏览各个目录，直至找到需要的文件位置。

----通过将公共对话框控件的Flags属性设置为常量值OFN_ALLOWMULTISELECT，可以使用户能够选择几个文件以进行工作。可以通过在按住ctrl键的同时单击每个文件名称来选中多个文件。这些被选中的文件名称将被高亮。

----为了使程序能够针对用户所选择的文件进行工作，需要从控件的Filename属性中提取每个文件的名称。所有被用户选中的文件名称都被作为一个长字符串而存储在该属性中。每个文件名称之间被一个空格字符分开。

----可以使用InStr函数来搜索分界的空格字符以从公共对话框的Filename属性中提取每个文件名称。该InStr函数返回在Filename属性字符串中空格字符的位置。得到空格字符的位置后，就可以使用Mid函数来将独立的文件名称从该字符串中移出。

样例程序

----该程序显示了如何提取在公共文件对话框控件中所有被选中的文件名称。步骤如下：

在VisualBasic中开始一个新的工程，采用缺省的方法建立Form1。

在Form1上添加一个公共对话框控件，采用缺省的方法建立CommonDialog1。

在Form1上添加一个文本框控件，采用缺省的方法建立Text1。

在Form1上添加第二个文本框控件，采用缺省的方法建立Text2。将它的MultiLine属性设置为True。

在Form1上添加一个命令按钮控件，采用缺省的方法建立Comand1。

将如下的代码添加到Command1的单击事件中：

PRivateSubCommand1_Click()
　　DimIAsInteger
　　DimYAsInteger
　　DimZAsInteger
　　DimFileNames$()
　　
　　ConstOFN_ALLOWMULTISELECT=&H200&
　　
　　CommonDialog1.filename=""
　　CommonDialog1.Filter="AllFiles|*.*"
　　CommonDialog1.Flags=OFN_ALLOWMULTISELECT
　　CommonDialog1.Action=1
　　
　　CommonDialog1.filename=CommonDialog1.filename&Chr(32)
　　
　　Z=1
　　ForI=1ToLen(CommonDialog1.filename)
　　　　I=InStr(Z,CommonDialog1.filename,Chr(32))
　　　　IfI=0ThenExitFor
　　　　ReDimPreserveFileNames(Y)
　　　　FileNames(Y)=Mid(CommonDialog1.filename,Z,I-Z)
　　　　Z=I 1
　　　　Y=Y 1
　　Next
　　
　　IfY=1Then
　　　　Text1.Text=FileNames(0)
　　Else
　　　　Text2.Text=""
　　　　ForI=0ToY-1
　　　　　　IfI=0Then
　　　　　　　　Text1.Text=FileNames(I)
　　　　　　Else
　　　　　　　　Text2.Text=Text2.Text&UCase(FileNames(I))
　　　　　　　　　　　　　　&Chr$(13)&Chr$(10)
　　　　　　EndIf
　　　　Next
　　EndIf
EndSub

----按下F5运行本程序，单击命令按钮。公共文件对话框控件将被显示在屏幕上。然后，从文件列表中选择几个文件名称，这可以通过在按住ctrl或shift键的同时单击文件的名称来实现，如图1所示。在选择了适当的文件之后，单击确定（OK），则文件名称将被显示在第二个文本框控件中，而目录的名称将被显示在第一个文本框控件中.->

关注此文的读者还看过：
·2012-5-21 15:53:56 VisualBasic6.0FAQ
·2012-5-21 15:50:48 开发ADOCE搭配WinCE资料存取应用程序(1)
·2012-5-21 15:50:37 VB从零开始编外挂(三)
·2012-5-21 15:47:28 用VB实现实时曲线的绘制和保存
·2012-5-21 15:47:00 用ParamArray接收任意个参数
·2012-5-21 15:46:59 如何取得汉字的区位码
·2012-5-21 15:45:48 VB编程的几个API函数的应用问题
·2012-5-21 15:42:38 VB5.0中实现字体闪烁效果
·2012-5-21 15:35:41 Sql Server中Image类型字段在VB.NET中的读写操作

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·汽车配件网站制作 50000元
·整站SEO优化
·课件门户网程序
·求长期合作网站设计制作高手
·公司网站重新改版 8000元
·asp企业网站小改动
·网站flash片头
·文化传播公司网站设计稿
·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·做B2C网站 20000元
·Android或QT软硬件平台设计（工
·网站首页FLASH

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<Visual Basic教程>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发