说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
从公共对话框控件中提取多个文件名称 -VB资料

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

使 用 公 共 对 话 框 控 件
---- Visual Basic 的 公 共 文 件 对 话 框 控 件 允 许 程 序 员 为 用 户 提 供 对 硬 盘 上 的 目 录 和 文 件 结 构 进 行 访 问。 例 如, 如 果 用 户 需 要 选 择 一 个 文 本 文 件, 可 以 显 示 出 一 个 公 共 文 件 对 话 框 控 件, 以 允 许 用 户 浏 览 各 个 目 录, 直 至 找 到 需 要 的 文 件 位 置。
---- 通 过 将 公 共 对 话 框 控 件 的Flags 属 性 设 置 为 常 量 值OFN_ALLOWMULTISELECT, 可 以 使 用 户 能 够 选 择 几 个 文 件 以 进 行 工 作。 可 以 通 过 在 按 住ctrl 键 的 同 时 单 击 每 个 文 件 名 称 来 选 中 多 个 文 件。 这 些 被 选 中 的 文 件 名 称 将 被 高 亮。

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

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

样 例 程 序
---- 该 程 序 显 示 了 如 何 提 取 在 公 共 文 件 对 话 框 控 件 中 所 有 被 选 中 的 文 件 名 称。 步 骤 如 下:
在Visual Basic 中 开 始 一 个 新 的 工 程, 采 用 缺 省 的 方 法 建 立Form1。

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

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

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

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

将 如 下 的 代 码 添 加 到Command1 的 单 击 事 件 中:
Private Sub Command1_Click()
Dim I As Integer
Dim Y As Integer
Dim Z As Integer
Dim FileNames$()

Const OFN_ALLOWMULTISELECT = &H200&

CommonDialog1.filename = ""
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.Flags = OFN_ALLOWMULTISELECT
CommonDialog1.Action = 1

CommonDialog1.filename = CommonDialog1.filename & Chr(32)

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
Text2.Text = ""
For I = 0 To Y - 1
If I = 0 Then
Text1.Text = FileNames(I)
Else
Text2.Text = Text2.Text & UCase(FileNames(I))
& Chr$(13) & Chr$(10)
End If
Next
End If
End Sub

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

Android版Chrome 27浏览器正式上架 机器人——数据中心的新“网管” George Chu:在雅虎打造真正的工程师文化 2013,303+家中国云计算企业的“生态系统”之梦! 高访问量Web应用跨云端迁移的原因:权限和易用性 Web应用开发者福音 Chrome 28新增丰富通知中心功能 帷千兰旭:推广渠道鱼龙混杂,开发者请小心 关于IE 10 你应该知道的6件事 Spring Framework 4.0M1发布,支持JDK 8、Java EE 7 “渣打科营编程马拉松赛”正式启动 官网同时上线 Android应该支持OpenCL的十大理由 传谷歌考虑和Facebook竞购众包地图Waze 谷歌工程师再次公布Windows漏洞 并称微软很难合作 Glassdoor评前景最令员工乐观的十大科技公司 华为上榜 下一代Android深度前瞻 第18级API功能揭秘 Web开发者不容错过的20段CSS代码 8大核心要点:我们能用HTML5 Canvas做什么? 移动周报:直接拿来用!最火的Android开源项目 前MySQL CEO:云将重新定义开发者的每一件事 CIO必知六件事,至少必须想到的! PPT集萃(四):来自五位中外专家分享的虚拟化和云存储实践 Jolla和Sailfish OS,那些你应该知道的事儿 不仅保值还能升值:过时的苹果电脑创下67.1万美元售价 三十天完成跨平台办公套件Joeffice的开发 jQuery 1.10.0和2.0.1同时发布 软件初创公司招投的九个必备技巧 BYOD浪潮即将来袭 六大年轻杀手重塑企业软件 灵活运用AppFlood:提高APP eCPM的10个技巧 事半功倍:你应该知道的HTML5五大特性 创建API监视器的五大技巧 流量激增15倍+ 乐蜂网桃花节大促背后的技术事 分页处理的问题(在线等待) 关于自画菜单的问题,请高手指点 新手请教,关于tomcat配置的问题 关于jar包中使用URLConnection的问题 1.在程序中用static final与用static或不加上这些标志的具体区别是什么? 2.工程建库 怎么样才能去掉字符串中的双引号呢? 关于在J2EE项目中客户端打印的问题,急!!!! SQL Server与Oracle的转换 一个VBA控制office问题 关于用纯asp代码实现文件上传的问题! JComboBox的下拉列表怎么让它显示出来? 除非我把那个控件拉的很难看它才能像ComboBox一样工作但是那样大小是原来的n倍 高分求救~~WIN98的问题 高分求救~~WIN98的问题 Grid中的數據源刷新問題?? 在c#中如何开辟一块指定的内存空间? 聊天室的隐藏框架怎样做啊,我把框架尺寸设成0了,鼠标还是不停的闪/ 出什么事情了? listView怎么加入打印功能? 如果你拽的话:50分全是你的啦。帮我看看这条sql语句错在那里? Excelsior JET Professional Edition 谁有这个版本啊,破解的??在线等待…… 我的程序编译通过了,为什么测试通不过??代码在下面,大家看看是关于数据库和哈希表的 如何用DELPHI制作卸载程序 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 关于dinstinct的问题(100分!) 怎样将GIF文件包含到资源文件及如何调用? 如何在程序中屏蔽掉系统热健:如 ctrl+alt+del, alt+tab等等 怎样在子线程的运行过程中获得主窗口的指针? 50分征解50分征解!!!!! 如何在listbox中显示多列,并加上标题(每一列都有自己的标题) 现有一DBF数据库,如何把它倒到SQL里? 没分了,仅此10分求日期的正则表达式,希望帮忙 PPT 文件变得好大 oracle8.1.5中transaction slot的问题 怎样在linux下设置有管理员权限的用户!在线等待!!!! 出学者界面实做---STEP 4 小小的堆栈问题 可不可以在一个视图中加入不同数据库的数据? 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 求JPAD PRO的破解 PPT 文件里插入Organization Chat 请教static问题 我要离开现在的公司了,去寻求新的发展...... 请教各位高人,一个循环定义问题 Win98下为什么拦截不到从另一线程发过来的自定义消息 public class myclass 与 class myclass 一样吗? dbgrid 中,titleclick事件,如何判断选中的是 哪个字段 呢? 很简单 ADOtable 不支持 FindKey, 请教: 应该如何解决记录定位? 火急请教个“重新验证组织单元”问题! 想做一个报表但设置DataEnvironment的连接失败,不知为何错? 请教!linux下将.h和.c文件编译成动态连接库!!! 你真的懂SQL语句的编写吗?快来,我给你分 重载与模板的问题 四大名著的作者是谁 是《鹿和狼的故事》 《晒晒我的鹿晗》作文500~600 驴什么马什么 鹿和狼的故事中的 关于exo鹿晗的作文我是一名标准的鹿饭,想要写一篇关于鹿晗的作文,开始不知道怎么写,能给我一篇吗?字数600以上 马骡子与驴骡子的区别在哪? 《行道树》 《第一次真好》课文 作者简介初一课文课文 当一个男孩(或女孩)只称呼你名字中的一个字时,说明什么呢?例如,只称呼其姓,不称呼其全名等大家说说自己的看法请大家积极参与回答 <忆读书>阅读分析答案 行道树和第一次真好课文字词解释和问题今天就要,一下就是行道树字词:雏形:________________________低回:________________________珍重:________________________红灯绿酒:____________________繁炫急管:________________ 三字经的读后感 学校买来排球和足球共64个,从中借出排球个数的四分之一和足球的三分之一后,还剩下46个.买来排球和足球各多少个? 《行道树》 《第一次真好》课文 作品介绍 那一本读物上有关于鹿晗的文章? 2013年最美孝心少年的观后感 禁止抄袭! 只有一个地球哪里什么说明方法 《三字经》读后感(作文) 作文 我在阳光下成长 600字 以上 要求 写人 写小孩子 13岁的 要编的 本人 急 忆读书的阅读答案 我的中国梦诗歌?我是一位初中生,请帮我修改一下我的诗歌我是一株小草,在您甜美乳汁下萌芽,在您温暖阳光下茁壮.前进曙光熠熠生辉,青春之梦火热炽烈,您——祖国,是否发现,发现您广阔胸 中央一台最美孝心少年读后感 2013年11月8日 怎么样背课文,背英语文章又快又好记,还不容易忘. 一个男的叫女的名字的最后一个字并且加了“儿” 美容新术 短文两篇(行道树)(第一次真好)分别用( ) 和( )的写法揭示主旨 求范文:《方仲永巧遇吕蒙》吕蒙遇到方仲永会对他说什么?会怎样劝他读书?(提示:自从孙权劝吕蒙读书后,吕蒙变得很聪明.方仲永天生聪明,但他不接受后天教育,最后变成了一个很普通的 六年级第14课鹿和狼的故事的解词5个 故圣人耐以天下为一家,以中国为一人者,非意之也,必知其情,辟于其义,明与其礼,达于其患,然后能为之 当吕蒙遇到方仲永他们会说什么?300字左右 14课鹿和狼的故事其中维护什么(词语搭配) 故圣人耐以天下为一家.出自哪里? 苏教版四年级下册语文练习与测试单元练习五 14课鹿和狼的故事的说明方法 以共筑中国梦为题材的诗歌、文章,5分钟要可以读完,最好有视频. 有关于我的中国梦的诗歌800字左右 马、骡子、驴的区别是什么? 我的中国梦的短诗最近举行一个主题是“我的中国梦”的书法比赛 我要参加 写一幅软笔书法作品,内容扣紧主题,20字左右 关于鹿晗的作文 在一幅图上,已知学校距离小明家 2cm , 商场距离小明家 2.5cm , 停车场距离小明家 4cm .若学校距离小明家 400m , 那么商场和停车场分别距离小明家多少 m ? 小张和小李两人分别从甲乙两地同时由西向东而行,小张骑摩托车从甲地出发,速度是45千米/时,小李骑自行车从乙地出发,速度是15千米/时,2小时后小张追上了小李.求甲乙两地的距离用方程,还 关于中国梦的诗歌 小明从家到学校,中途遇到小燕,这时已行的路程比全程的60%少180m剩下的距离比全程的二分之一多60m小明家到学校有多少m 《吕蒙巧遇方仲永》这篇文章怎么写? 你爱鹿晗吗?爱鹿晗就留下你的理由!长的很萌,从不做作,做真实的自己,只会照顾别人,不会照顾自己的小傻瓜.我一直爱你,鹿晗♥ 明明从家到学校,已经走的路程是未走路程的三又二分之一倍,已经走的路程比未走的路程多百分之几? 三字经读后感,快急用!大概1000字左右吧!12.16要交! 写作文 鹿晗关于鹿晗的作文题目叫《风雨中绽放》600字以上 小明从家到学校行了全程的百分之七十五,正好到广场.到校原路返回,行了全长的五分之一时,离广场还有400米,家离学校多远?一条路,已修的与未修的比是1比4,修了60千米后,已修的和未修的比是 吕蒙巧遇方仲永kkkkkkkkkkkkkkkkkkkkkkk 鹿晗英文怎么写 作文感悟自然600字初一的,话题作文不要太深,要东北那边的,500字也行。着急用, 有个宫女一开始是皇后身边的宫女,皇后是个小孩,还是皇上的外甥女,后来这个宫女当了皇后,请问下这本书的名 三字经 读后感用三字经中的话 来写一篇400字的文章 提纲就行了复制就免了! 好多书里都出现了宫娥一词到底是什么意思啊 你在皇后娘娘身边做宫女,有一天,皇上,看中了你,你会怎么办? 假如方仲永巧遇吕蒙后的对话 以“家中的中秋节”为话题的初三500字作文 鹿和狼的故事是真实的的故事. 求写人的作文写鹿晗的,大约五六百字.要写人的关于鹿晗的,不要有什么爱不爱的,毕竟是学生交给老师不好.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘