|
|
域名空间 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>VB编程>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
从公共对话框控件中提取多个文件名称http://www.iyit.net 日期：2006-4-29 22:29:47 来源： 点击： |
使用公共对话框控件 Visual Basic的公共文件对话框控件允许程序员为用户提供对硬 盘上的目录和文件结构进行访问的功能。例如,如果用户需要选择一 个文本文件,可以显示出一个公共文件对话框控件,以允许用户浏览各 个目录,直至找到需要的文件位置。 通过将公共对话框控件的Flags属性设置为常量值OFN_ALLOWMULT ISELECT,可以使用户能够选择几个文件以进行工作。可以通过在按住 Ctrl键的同时单击每个文件名称来选中多个文件,这些被选中的文件 名称将被高亮显示。 为了使程序能够针对用户所选择的文件进行工作,需要从控件的F ilename属性中提取每个文件的名称。所有被用户选中的文件名称都 被作为一个长字符串而存储在该属性中。每个文件名称之间用一个空 格字符分开。 可以使用InStr函数来搜索分界的空格字符,以从公共对话框的Fi lename属性中提取每个文件名称。该InStr函数返回在Filename属性 字符串中空格字符的位置,得到空格字符的位置后,就可以使用Mid函 数来将独立的文件名称从该字符串中移出。 样例程序 该程序显示了如何提取在公共文件对话框控件中所有被选中的文 件名称。 步骤如下: 1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。 2.在Form1上添加一个公共对话框控件,采用缺省的方法建立Comm onDialog1。 3.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。 4.在Form1上添加第二个文本框控件,采用缺省的方法建立Text2 。将它的MultiLine 属性设置为True。 5.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comand 1。将它的Caption 属性设置为"打开文件对话框"。 6.将如下代码添加到Command1的单击事件中: Private Sub Command1_Click() Dim I As Integer Dim Y As Integer Dim Z As Integer Dim FileNames$() Const OFN_ALLOWMULTISELECT = %26H200%26 CommonDialog1.filename = "" CommonDialog1.Filter = "All Files|*.*" CommonDialog1.Flags = OFN_ALLOWMUL- SELECT CommonDialog1.Action = 1 CommonDialog1.filename = CommonDi g1. filename %26 Chr(3 2) Z = 1 For I = 1 To Len(CommonDialog1.filename) I = InStr(Z, CommonDialog1.filename, Chr(32)) If I = 0 Then Exit For ReDim Preserve FileNames(Y) FileNames(Y) = Mid(CommonDialog1.filename, Z, I - Z) Z = I + 1 Y = Y + 1 Next If Y = 1 Then Text1.Text = FileNames(0) Else Text 2.Text = "" For I = 0 To Y - 1 If I = 0 Then Text1.Text = FileNames(I) Else Text2.Text = Text2.Text %26 UCase(FileNames(I)) %26 Chr$(13) %26 Chr$(10) End If Next End If End Sub 按下F 5运行本程序,单击命令按钮。公共文件对话框控件将被显 示在屏幕上。然后,从文件列表中选择几个文件名称,这可以通过在按 住Ctrl或Shift键的同时单击文件的名称来实现,如图1所示。在选择 了适当的文件之后,单击确定(OK),则文件名称将被显示在第二个文本 框控件中,而目录的名称将被显示在第一个文本框控件中 编辑： [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：创建自定义的光标 下一篇：防止将重复项目添加到列表框控件中 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 最新更新 | 热点排行 | 推荐新闻 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 友情链接 | ||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术