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

从公共对话框控件中提取多个文件名称 -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), 则 文 件 名 称 将 被 显 示 在 第 二 个 文 本 框 控 件 中, 而 目 录 的 名 称 将 被 显 示 在 第 一 个 文 本 框 控 件 中

《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 【CTO讲堂】Box首位华人核心工程师的回国创业之路 【探秘ES6】系列专栏:ES6简介 专访《Javascript设计模式与开发实践》作者曾探:爱编程 爱生活 【探秘ES6】系列专栏:迭代器和for-of循环 【CTO讲堂】UCloud联合创始人兼CTO莫显峰:如何成长为技术合伙人? 【探秘ES6】系列专栏:生成器 工作很非常特别烦心,散分 如何监控网络中的打印 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 感动中国人物的故事 作文 550字 中国三大平原是哪些? 23.增值税一般纳税人销售货物适用13%税率的有(ACD)A.销售材料  B.销售钢材  C.销售图书  D.销售自来水 理由 中国的三大丘陵有那些 春作者朱自清,现代著名散文家、( )、( )、( ).他的代表作有( )等 甲乙合作一工程要6天,如果甲先做3天,再由乙继续做8天刚好完成.若甲独做这一工程,要多少天呜呜呜,烦死了,端午节也在写作业,好多应用题不会, 有什么适合女生唱的英文歌?最好是有创意的,比如cups那类的~`星期一就要在英语课上表演了.就是课前.不要太长,好听一点 我国的三大平原是哪些 一项工程,甲独做6天完成,乙独做8天完成.两人合做3天,完成这项工程的 李华读一本书,第一天读了全书的1/5,第二天读了全书的1/3,这是时还剩350页 ,这本书一共有多少页? 请告诉我一篇《清晨》三年级作文有多少字 一项工程,甲独做6天完成,乙独做8天完成,两人合做( )天完成,所以尽量将清楚 以“守候”为话题的作文怎么写?只需提纲!提纲格式参照问题补充一.标题二.中心论点三.开头(必须是一整段文字,不能概括)四.主体.1.分论点 论据 说理方式 2.分论点 论据 说理方式 3.分论 用好像仿写句子,不是比喻句.好的要重谢!还有分 一项工程,甲单独做6天完成,乙单做8天完成,两人合做多少天完成? 超市买的瓷茶杯怎么检测是否含有有毒物质?如何消毒? 作文:清晨,我走进校园写清楚走进校园看到的、听到的、想到的,描写要具体,想想要合理. 一项工程,甲乙合做8天完成.如果先让甲独做6天,再由乙独做,完成任务时发现乙比甲多了3天,乙独做这项工程要几天完成? 中国的三大平原 有带像、似乎但又不是比喻句的句子吗? 找一篇题目为等待的作文,字数600左右,要中学生水平. 杯子怎样消毒 以舒适的早晨为题,写一篇350字左右的作文!急!一定要快!1快!有急用!!! 以"春节,我最快乐的一件事"为题,写一篇作文,字数500字左右, 新买的白瓷杯子怎么消毒还有 可以盛沸水吗 用不用每次盛沸水的时候先温一温杯子? 雨后的早晨(400字左右作文)《雨后的早晨》400字左右作文,急!好心人帮帮忙吧!还有,要怎么样点击才能选择满意答案呢? 我是个高中生,我写作文总是没话说,所以常因字数不够被扣分,怎样才能改善呢,还有怎样写好作文 目前,普遍使用什么消毒茶杯?A.煮沸 B.高压蒸汽 C.红外线 D.速消净 用上‘好像’一词 写一个不是比喻句的句子怎么写呢 我作文总是写不够字数怎么办?怎么才能有话说,凑够字数?基础差我看到作文就觉得没话说.怎么才能把文章写细腻,写够字数?800字 关于初三离别的作文 用好像一词写一个不是比喻句的句子 已知圆锥的底面半径是3,母线长为6,则该圆锥侧面展开后所得扇形的圆心角为需要讲解下.. 作文提纲,根据以下一段话,列作文提纲.“华盛顿走上大街,挥动礼帽,向群众致意.人们依依难舍,不愿离去,跟随他的马车一直走到他的寓所门前,这是任何语言也难以描绘的情景,这是任何人为的 小明,小英和小美三人定期向李老师求教,小明每六天去一次,小英每八天去一次,小美每九天去一次.他们每多少天会同时想李老师求教?最先的再加5分 帮我点评一下这篇托福作文,看看能多少分求 各种拍砖People work because they need money to live.What are some other reasons that people work?Discuss one or more of these reasons.Use specific examples and details to support your ans 总有一种期待的作文提纲 有没有否定语气的比喻句?就是,有“不像”的句子是不是比喻句?比如说,桥像彩虹,这是比喻句,并且是肯定句。有本体和喻体。但是,如果变为“桥不像彩虹”本体和喻体还成不成立呢? 励志名言名句,附带一篇演讲稿 位于我国地势第二级阶梯上的地形区是 A阴山山脉,吐鲁番盆地 B武夷山山脉,四川盆地 求作文提纲——等待不如行动以 “等待不如行动” 为中心,列出三个分论点以及论证事例.最好是用辩证性思维去论证……EG:标题XXX分论点:1XXX(用XX、XX事例←一两句话概述)……可以多送 什么句子有“如”,“像”却不是比喻句,能举例子吗,比喻句有什么特点?"如玩电脑那般激动"是不是把干某件事情的心情比作玩电脑时的心情呢? 描写泰山的语句 比较优美的哲理性散文有哪些?要朱自清的.(全文) 为什么句子中有“像”字却不是比喻句? 含有昆虫的成语 甲乙两队修一条路,甲队独自修10天完成,乙队独自修15天完成.之后他们两队一起修,乙队因事请了几天假,之后两队一共用了8天,乙队请了几天假. 一项工作甲单独做需要5天完成,乙单独做要10天完成,若甲单独做了x天后,甲乙合作y天,则一共完成了( ) 崇尚科学,反对邪教 征文 我国三大平原是哪些? 一件工作,甲单独做X天可以完成,若甲、乙一起做,Y天可以完成,那么乙单独做几天可以完成 老师有100张面值50元和20元的人民币,一共有4100元,50元和20元的人民币各有多少张? 春是一篇 散文?朱自清是现代著名 ,,,. 一项工程甲乙合干12天完成,乙丙合干15天完成,甲丙合干20天完成,如果甲乙丙三人合干几天完成? 中国的三大平原是什么?主要山脉和主要丘陵呢? 我国的三大平原 《青鸟》读后感50字0000000000000000000000000000000000000000000000000000青鸟》讲述的是:圣诞节前夜,伐木工简陋的小屋里,男孩蒂蒂和女孩咪蒂正在眺望富人家的孩子过节.仙女装扮成老太太请他们为她 中国三大丘陵包括哪些? 求一篇朱自清的2000字散文 一项工程,甲队6天完成,乙队8天完成,两对合作多少天完成工程的3分之2 ? 外媒:美国债务乱局给中国敲响“警钟”英国BBC知名主播再添性侵罪名 下月美国财长呼吁朝野同意以合理减支取代自沈阳“土豪大院”违法违规 辽宁省纪委沈阳一村主任哥哥占地800亩建房 村长沙官方调查投资1000余万建设村民少女黄鳝血放入下体冒充处女 敲诈嫖客21岁丽水姑娘惨遭男友碎尸 锯下人头女学生与男老师谈爱获赠5万多元 师母明孝陵六国语言碑:系清朝设立 警告洋北京地铁10号线一个月“挂”五回 官中疾控首席专家被指盗用数据 系全国政清华大三学霸超强履历曝光 网友自称瞬北京脖颈卡护栏女子恢复呼吸 丈夫否认一家四口开车往返各商场偷名牌:需要什部分赣南脐橙由青果催熟 染色打蜡后上财政部:314项省级行政事业性收费即流浪杭州8个月生下龙凤胎的姑娘牵动很临平新城打造杭州城东副中心 计划20浙江推广餐馆厨房阳光化 从洗菜到上菜日本自卫队下月将出动逾3万人 演练登最佳影片:《为奴十二年》德阳举行公安武警联合应急处突演练血液中心供血1505袋奶荒暂缓 昆明液态奶价格松动福岛“核难民”起诉日本政府医院虚假宣传多 患者点赞“好评度”调中国出台指导意见促进低成本航空发展出发去武隆 最美时段特惠之旅咽喉不适 饮食可调秘境泼水狂欢节自驾游火热招募想进银行 先拉200万存款射击考核就像打仗“神枪手”都有点慌了新股再疯狂 建议获利了结做完妊娠手术 美女长出两撇胡子内江市城管局召开廉政警示教育大会20分钟查处十余辆逆行电动车 超载驾券商集合资管产品备案大增我的心 在等待定格时间 珍藏回忆玉溪考核出租车服务质量得“A”才算及想给小区添绿 树种有讲究
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘