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

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

VB中多级下拉列表的实现 VB中防止将重复项目添加到列表框控件中 VB中实现菜单分割 VB中实现带预览的对话框 VB中实现同一窗口的多个实例及控件的动态增减 VB中阴影字体的实现 VB自定义数据结构的传输转换 Visual Basic 窗体背景花纹的实现 Visual Basic 中的界面设计原则和编程技巧 Visual Basic 中文本框处理技巧集萃 Visual Basic 中字符淡出淡入的实现 Visual Basic窗体背景花纹的实现 Visual Basic下工具条的制作 Visual Basic中的界面设计原则和编程技巧 Visual Basic中在同一界面输入大量数据的几种方法 VisualBasic中的界面设计原则和编程技巧 VisualBasic中用户界面的设计原则 把 VB 标准的工具栏变成平面式 把窗体卸载干净-VB资料 保持初始的窗体大小-VB资料 编程实现将所有窗口最小化-VB资料 不规则形状窗口详细说明 -VB资料 不用 API ,直接调用关联的程序 -VB资料 处理过程时的鼠标显示 -VB资料 窗口处理技巧大全 -VB资料 窗口事件的发生顺序-VB资料 VB创建不规则窗口 VB创建透明窗体 VB创建位图菜单 VB创建无 Icon 的窗口 打开 Win95 的创建快捷方式窗口-VB资料 一个捉摸的问题,、高分请解决! 在WEBLOGIC5.1上发布EJB1.1的一个小问题 请教,如何用jbuilder 写midas的服务器, 我们公司一个程序员的头式太难看了,我每次见他就恨不得拿剃头的推子给他剃光光! 寻最好的ftp软件 autoCAD的问题 找本站里面《程序员测试软件》的注册码 刚毕业的不能报? .lib 文件到底是怎么回事?如何查看它的内容? 请问,下面的警告提示什么意思(关于sybase) 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 在打印或打印预览前如何获取报表页数 求助.希望有人帮忙!! 我用ACTIVE REPORT出了问题....相教 请问如何获得硬盘的序列号? 请问各位,有什么好的方法来为用户分配权限,要多少分就给多少? 我有一个www.cnjava.com,有没有人愿意要这个域名? 请问Delphi中关于fropro数据库的软删除问题!急用!谢谢! 当两个表用主键关联时,删除主表的一条记录,关联表对应的记录能不能自动删除(不用代码)? 大家来谈谈各自在制作网页时的css于inc的运用吧 小弟对Java及C#的一点看法-请大家指正! 高手请进,帮我看看这是什么意思?感谢非常 基于组件的三层应用程序怎么打包?200分相赠!!! 如何执行带OUT参数的ORACLE的存储过程 有谁做过矩阵奇异值分解的程序? 讨论:爱需要表白吗? 修一条路,第一天修了全长的3分之1,第二天修了全长的4分之1,两天共修了84米,这条路全长多少米? 某工人三天做完一批零件,第一天做了84个,第二天做了余下的2/7,第三天和前两天做总数一样多,这批零件有几算式 工程队用了2天修了一条路,第一天完成全程的百分之50还多72米,第二天修的相当于第一天修的5分之3,这条路全长多少? 修一条路,第一天修了全长的8分之3,第二天修了全长的4分之1,两天共修了1500米,这条路长多少米? 小王三天做完一批零件,第一天做了总数的1/4,第二天比第一天多做了5个,第三天做了25个这批零件有多少个 工程队用两天时间修完一条路,第一天完成全程50%多72米,第二天修的是第一天修的3/5,这条路长多少米?不要方程 筑路队修一条路,第一天修了全长的1/20,第二天比第一天多修了o.5千米,两天共修了4千米.这条路 王师傅用3天共加工零件1200个,他第一天加工了总数的3分之1,第二天加工了余下的8分之3,第3天加工多少个 工程队修一条路每天修72米,28天可以修完,如每天修96米,多少天能修完?以---为等量关系,设X天修完,方程是: 筑路队修一条路 第一天修了全长的1/20,第二天比第一天多修了0.5千米,两天共修了4千米.这条路全 某工人1月份生产某零件1200个 修路队用两天时间完成一条公路,第一天修了全程的50%还多72米,第二天修的相当于第一天修的1/3这条公路长多少米(方程) 修路,第一天修了这条路的3/8,第二天修的路程比第一天少了总路长的1/16,两天一共修了这条路的几分之几? 某车间原计划加工1200个零件,实际第一天完成了原计划的3/8 ,第二天完成了原计划的5/12,第三天加工的是前两天的和,实际超过原计划的几分之几? 工程队修一条路,第一天修了全长的5分之2,第二天修了全长的百分之25,还剩154米没修,这条路全长多少米? 修路队修一条公路,第一天修了这路的1/4,第二天修了余下的2/3,两天共修了1200米,这条路全长多少米?的解方程的详细过程 王师傅要加工一批零件,第一天完成计划的58 ,第二天完成计划的712 ,实际完成的超过原计划的几分之几?怎怎么做 工程队修一条路,第一天修5分之1,第二天修4分之1,第二天比第一天少修25米这条路有多少米?工程队修一条路,第一天修总路程的5分之1,第二天修总路程的4分之1,第二天比第一天少修630米这条路 修一条公路,第一天修了全长的1/4,第二天比第一天多修20米 还剩100米 两天共修了全长的几分之几 红旗车间三天生产了一批零件,第一天生产了总数的 ,第二天比第一天多生产20个,第三天生产了55个.这批零 工程队修一条路,第一天修了全长的5分之1,第二天与第一天所修的长度比是4比3,这时还剩下600米没修,这条路全长多少? 先不加分,等回答完加 修一条1200米的路,第一天修了全长的3分之1,第2天修了4分之1两天共修了几分之几,两天修了多少米 红旗车间三天生产了一批零件,第一天生产了总数的七分之二,第二天比第一天多生产了20个,第三天生产了55个这批零件宫有多少个? 工程队已修了一条路的3/8,还剩下1000米没修,要修的这条路长多少米? 李师傅三天完成一批零件的加工任务.第一天加工的零件数与总零件数的比是2:9,第二天加工了180个零件,前李师傅三天完成一批零件的加工任务。第一天加工的零件数与总零件数的比是2:第 李师傅计划三天内运完一批货物,第一天运了42吨,占这批货物的五分之二,第二天与第三天的运货量之比是4:3.李师傅第二天运货多少吨. 工程队修一条路,第一天修了全长的8分之3,第二天修了剩下的5分之2,第三天比第二天多修640米,这条路长多少米 李师傅3天完成一批零件的任务.第一天加工的零件数与总零件数的比是2:9,第二天加工了180个零件,前两天加工的零件数正好占总零件数的2—.李师傅第一天加工了多少个零件?3 搬运工计划三天内运完一批货物,第一天运了42吨,占这批货物的5分之2,第二天与第三天的运量比是4比3,第二天运多少吨 某工程队修一条路,第一天修了全长的5/27,第二天修了余下的3/11,第三天修了第二天余下的5/6,第四天修8千米, 李师傅三天完成一批零件的加工任务,第一天加工的零件数与未加工零件数的比2:7,第二天加工180个零件,前两天加工的零件数正好占零件总数3分之2,李师傅第一天加工了多少个零件?容易看懂~ 青年运输队计划3天运完一批货物.第一天运480吨,占这批货物的40%.第二天运的和第三天运的比是3比5.问:第三天的货物有多少吨? 工程队修一条路,第一天修了240米,第2天修了余下的40%,其余的第2天修完,已知第三天修的与全长的比是1:3.这条路有多少米 小李四天做完一批零件,第一天和第二天共做了54个,第二天,第三天,第四天共做90个,已知第二天做的个数占这批零件的五分之一,这批零件有多少个? 某建筑队计划3天修完一条公路,第一天修了全长的五分之二,第二天修的是第一天的百分之八十,第二天比第一天少修120米问这条路长多少米?第三天修了多少米?怎么列式谢谢 某工程队修一条路,第一天修了全长的27分之15第二天修了余下的11分之3,第三天修了第二天余下的6分之5,第四天修了8千米,正好修完,求这条路的长度. 小李四天做完一批零件,第一天和第二天共做了54个,第二,第三和第四天共做了90个,已知第二天做的个数占这批零件的5分之1,这批零件一共有多少个? 修路队计划修一条长1500m的公路,第一天修了全长的五分之二,第二天修了全长三分之一,还剩下多少米 工程队两天修完一条路,第一天修了5分之3千米,比第二天多修了8分之1千米,这条路 小李四天做完一批零件,第一天和第二天共做了54个,第二天、第三和第四工共做了90个,已知第二天做的个数占这批零件的5分之一,这批零件共有多少个? 市公路管理计划修一条全长200千米的公路,第一天计划修全长的五分之二,余下的第二修完,第二天计划修多少千 某工程队修一条路,第一天修了全长的27分之5,第二天修了余下的7分之3,第二天修了8千米,求这条路的长度.尽量用算术法,不然我不懂,也可以用方程, 张师傅四天做完一批零件,第一天和第二天共做了54个,第二、第三、第四天共做了90个,已知第二天做的占这批零件的五分之一.这批零件共有多少个? 王师傅计划3天内运完一批货物,第一天运了42吨,占这批货物的2/5,第二天与第三天的重量比是4:3第二天运货多少吨(要有详细的算式) 工程队修完一段公路,第一天修了全长的30%,第二天修了150米,第三天修了全长的2/5,第三天正好完成,这段公路长多少米 王师傅3小时制作了48个机器零件,照这样计算,制作80个零件,需要多少小时? 码头上有一批货物,计划三天运完.第一天运走了全部的五分之三,第二天运走了五分之三吨,第三天还要运四分之三吨.第二天和第三天共运了多少吨?第二和第三天共运的是这批货物的几分之几? 工程队修公路,第一天修全长的4分之1,第二天修150米,第三天修8分之1,三天完成,这段公路长多少米 王师傅4小时制作了96个机器零件,照这样计算,制作72个零件需要多少小时?(用方程解) 王师傅计划3天内运完一批货,第一天运了42吨,占这批货的5分之2,第二天与第三天运的重量比是4:3,第二天运多少吨?(上下接着的)急, 工程队修公路,第一天修了公路全长的8分之1,第二天修了后已修的长度与未修的比是3:5,工程队第二天公路修了全长的几分之几?(用比例来列)2.一个零件长2cm,它的长度与模型的长度比是1:5,模 两台机器生产同一种零件,第一台3分之一小时生产20个零件,第二台每小时生产80个零件.两台机器同时生产70两台机器同时生产70个零件需要几小时. 某工人计划在3天内加工完一批零件,第一天加工480个,占这批零件的40%,第二天与第三天加工零件数的比是2: 某个工程队修一条路,第一天修了全长的3分之一.第二天修了全长的4分之一 某车间计划加工一批零件,第一天加工了计划总数的1/4,第二天比第一天多加工1/3,第三天比第一天少加工1/3某车间计划加工一批零件,第一天加工了计划总数的1/4,第二天比第一天多加工1/3, 某工厂计划在3天内加工完一批零件,第2天加工了480个,占这批零件的五分之二,第二天与第三天加工的个数比是3比5,第二天加工了几个? 工程队修一条公路,第一天修了公路全长的1/8,第二天修了后,已修的长度与未修的比是3:5,工程队第二天公路全长的几分之几?(用比例解) 工人师傅加工一批零件用了3天,第一天加工的零件时零件总数的5分之2,第二天加工的零件时零件总数的7分之2第3天加工的零件时零件总数的几分之几? 某工程队修一条路,第一天修了全长的5/27;第二天修了某工程队修一条路,第一天修了全长的5/27,第二天修了余下的3/11,第三天修了第二天余下的5/6,第四天修了8千米,正好修完.求这条路全长多 某工程队修一条公路,第一天修了全长的5分之1,第二天修了全长的8分之3,___________.这条公路长多少千米1、第一天修了3.2千米.列式:.2、两天一共修了9.2千米.列式:.3、第二天比第一天多修2.8
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn