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

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

用Delphi编制MP3音乐点歌台 用Delphi编制趣味动画鼠标 用Delphi开发屏幕保护预览程序 用DEPHI3.0实现动画ABOUT窗口-Delphi资料 在Delphi下用Direct Sound 实现混音器组件 在Delphi中使用DirectX BDE的替代品大全(按数据库类型分)-Delphi资料 BDE的替代品大全(按应用类型分)-Delphi资料 bde的组态文件-Delphi资料 DBGrid中的下拉列表和查找字段编程方法-Delphi资料 Delphi 3.0 中 连 接 数 据 库 的 三 种 方 式 Delphi 3.0中连接数据库的三种方式 Delphi 4中开发数据库控件的方法 Delphi:MIDAS中动态强制约束编程 DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 关于WIN2K管理员密码 查找时,随便符合一个字段中的条件,是否可以用or ? 关于读取oracle中clob字段的中文信息的问题 如何让IE6不显示保存图片按钮? 時間比較問題 如何固定DBGridEh的列? 如何在vb.net里面使用资源文件 关于WIN2K管理员密码 在tomcat服务器上发布soap的问题,高分相赠 JSP在websphere4.0中的应用问题! 急,关于COM调用的问题 请问各位C#有DBChart控件吗????????? select的问题 有没有好一些的MP3播放器推荐 关于声音的问题…………等…… xml是不是马上必学的?????? 呜呼!我巍巍中华,铿锵汉字,终将进博物馆了吗? 创建虚拟目录,在另一计算机上的共享位置? 用javascript怎样remove掉数组中的一个元素???急 存储过程问题 java基础类 网络错误718,是什么问题呢?分不够可以再给,急呀!! 怎样加大数据库的连接时间,因为通过远程连接,所以想加大连接时间 紧急求救? 这样的弹性页面能实现吗? 100分求"公司网络管理办法" 寻开发公司 请帮我,关于从WIN2000到WIN98的问题(在线等) 关于firework的问题?急急急!!!!!!!!!!!! 用VC.net应该怎么调试.cpp文件 老有人反复发一些老帖子,早被别人转了几百遍了,烦啊! 展示 怎样删除页面布局表格 或 页面布局单元 各位大侠,外挂里的自动捡物是怎么实现的? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? 安装包怎么做? 怎样将mysql数据库里某个字段的所有值绑定到form的<select>选项里。 我的com+组件两台机器间不能执行方法 怎样获得InputBox、InputQuery的值? 我用的光盘版的maya5.0,serial number不对啊?谁有可以用的啊? 请教:MPP文档是什么概念啊? 哪里有VF做的工资管理系统下载 怎样在一个中英文混合的字符串中添加回车键后而不出乱字符 救命啊!!!!! 关于ocx的问题 如何响应Esc键按下? 寻开发公司 EVB 如何修改 Grid的字体? 怎样来查找在线游戏、即时聊天软件所使用的端口号? 搞过数据库的进来瞧瞧 表中有自增类型字段id,用TABLE 控件与之相连,记录增加时,ID怎么 我国有什么海洋的科研成果? 声称的近义词最正确的 我发现生命是如此的没有意义 用英语怎么讲 有关曝的成语,曝的意思必须是“晒” 声明的近义词是什么 如图所示,A球在斜面上的A点以水平速度v抛出,斜面的倾角为θ,设斜面足够长,问:自抛出起经过多长时间,小球离斜面最远?小球落点B距A点多远? 生命教育要从小开始? 电解电容上标的多少v是什么,标的一样的电容电压一样吗主板上两个标一样的电容,用万用表测量电压都不一样,一个十几v,一个二十几v. 教体艺 是什么? 水力学的三大方程是什么?最好把式子列出来 陈述的近义词是什么 是要什么特长? 第五签、中签丑宫:【刘晨遇仙】 求姻缘 此签何解第五签、中签丑宫:【刘晨遇仙】 一锥凿地要求泉,努力求之得最难;无意偶然遇知己,相逢携手上青天.诗意:此卦锥地求泉之象.凡事先难 蛛有什么组词 浊化音是如何产生的?例:在S后的t,k,p轻辅音全部都要念成浊辅音d,g,b sky发音是/sgai/ stop发音是/sdop/ australia发音是/ausdreilia/ 这是如何产生的? 请大师帮忙解命 解姻缘 观音灵签 第五签、中签丑宫:【刘晨遇仙】我农历1982年(第一个4月)23日 子时出生,男性,命运,婚姻如何 这几年家里帮相了几个女孩子到交情没有多久都是人 关于纺纱学配棉的问题用129(含杂1.8%)50%,229(含杂2.1%)30%,331(含杂1.5%)10%,回花10%配棉,试计算:(1)平均纤维长度(2)平均等级(3)平均含杂率我要问的是回花的纤维长度,等级是多少, s后面哪几个音要浊化 生命是什么? 生命为什么? 斜塔上的实验 第17段对教堂的环境描写有什么表达作用?_ 品牌kappa中文什么 为什么人一出生就开始走向生命的尽头 同样是常见的吃草动物,牛,羊,马,驴,为什么驴的药用价值最大? KAPPA 应该怎么叫那中文啊 在PS里要以中心旋转复制怎么做? 地球人都知道我爱上了你 用英语怎么说 蛛能组什么词 解签,求事业!一锥卓地要求泉,努力求之得最难;无意偶然遇知己,相逢携手上青天.欲望心事 西方可求曰:不如英动 立地可谋 生命的死亡就是开始之前的状态吗,为什么? 我什么都可以放弃,唯独你我不能放弃 帮我翻译英文 第五签,一锥卓地要求泉,努力求之得最难,无意偶然遇知己,相逢携手上青天,解欲望心事,西方可求 《地球人都知道我爱上了你》歌词 求“黄胜 是不是要等到我放弃了你才想到我对你的好”英文意思 一锥卓地要求泉,努力求之得最难.无意偶然遇知己,相遇携手上青天. "地球人都知道我爱上了你"是谁唱的啊在线等,谢谢啊 英语读音哪些情况下要浊化 凌晨3点,看到悬吊着的蜘蛛在头上,过了会又爬到身上,这是什么预兆啊?.. 为什么生命终于有一天要结束,那为何还要开始呢? 英语读音浊化有哪些单词开头为s的浊化现象,如stand,speak,sport,sky, 夸同学作文好用什么四字词语 天蝎座的格言? 那位科学家坚持对现代药物的研究是为了能改善人们的生活.中译英 《过草地》张爱萍 这首诗的意思这首诗是有关于红军长征的诗,有谁知道这首诗的意思吗?我有急用! 坏蛋是怎样练成的经典名言 人的性格是随着年龄变化的吗 如何面对困难的诗歌《过草地》 如果反比例函数Y=K/X的图象分布在第一.三象限,则直线Y=K(X-2)经过第_____象限. 人性格会随着年龄变化吗? 底力9是啥意思?弹幕里的 已知反比例函数的图象经过点A(3,-4).(1)这个函数的图象分布在哪些象限?在图像的每一支上,y随x的增大如何变化?(2)点B(-3,4),C(-2,6)和点D(3,4)是否在这个函数的图像上? 人的性格会随着年龄增长吗? 海洋科研属于工业么 高山流水 【急!】伯牙鼓琴,其友钟子期听之.方鼓琴而志在太山,钟子期曰:“善哉乎鼓琴!巍巍乎若太山!”少选之间,而志在流水,钟子期复曰:“善哉乎鼓琴!汤汤乎若流水!”钟子期死,伯牙破 找一部电影许多年前看的,大致剧情好像是讲17世纪左右的事,好像一个人是贵族,他很热爱科学,他研究人体,把好几个人的尸体拼起来,做了一个人,我记得电影一开始是在冰天雪地里,他做的那个 力竭斯底是什么意思啊? 蛛能组词什么 我想找一部电影电影讲的是一群互不相识的不同国籍的高手,被骗到一个岛上,岛上有一种怪物会隐身,怪物会把杀死的人为自己所用,去攻击这些不同国家的人,有美国人,日本人,还有别的国家的 那个底力究竟是什么公式计算的呀?激励哥,底力8级,气力120,满血时轰杂兵5000+,40%HP发动了底力,没有发动异性生命体(气力130).同一招,同一武器,同一杂兵,必定会心,12000+.有没有高手告诉怎么 他们说得什么海子体,韩寒体 是什么东西啊 电影万有引力22分钟那首歌是什么 就是高远追石晓琳那时候那首歌 一直run run run的 美国一推销员晚间即“变身”木乃伊 获“窃听门”庭审曝哈里王子曾被窃听南京市民成“雾都孤儿” 环保局受访称美国一长约4米重达330公斤巨鳄被捕美军无人机空袭巴基斯坦超过20人死亡土库曼斯坦总统力推与中国开展能源合作超1/5东日本大地震复兴预算被用于与日媒称日本也是美国情报机构监控对象洛杉矶国际机场因枪击案关闭近7小时后超1/5东日本大地震复兴预算被用于与美国83岁珠宝大盗偷走2万美元戒指被美军无人机空袭巴基斯坦超过20人死亡袖珍王国中的金融帝国——列支敦士登的万圣节女王超模克鲁姆逼真扮老 全身老2013国际变性人选美决赛在泰国落幕美国83岁珠宝大盗偷走2万美元戒指被三起编造虚假恐怖信息威胁民航安全案件美国83岁珠宝大盗偷走2万美元戒指被惠誉上调西班牙国债评级展望土库曼斯坦总统力推与中国开展能源合作六千多粉丝离奇消失 委内瑞拉总统谴责手游周边产业现洗牌:Fuse收购Co观点|铁血军魂,勇武传魂椰汁牛奶冻E-LINE依莱帮你远离毛躁静电悦读|观导弹发射有感北上广深:在中国,哪里的户口最抢手?谢逸枫:首套房首付降至二成半急救经济为“蛮拼的”人“点赞”金针菇韭菜炒鸡蛋9.29首发告捷 乐视第3代超级电视希腊和英国经济两重天:美国乃至世界会要达到什么水平才会被叫做大师?切看知注定 :一个女神,一个女汉子!超验:中国仪器仪表上市公司盈利能力大黄豆猪蹄汤面相:最易变坏的人中国将实施“欧版”量化宽松举措没有免费的午餐:细数微信群6种忽悠揭秘 | 都不打仗了,日本间谍到中国中国大量买入全球黄金的背后,真正原因焗意粉
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘