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

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

访中粮我买陈伟伟:高并发大压力挑战架构师极限 左路Deep Learning+右路Knowledge Graph,谷歌引爆大数据 数据库排行榜:关系型居首,NoSQL整体人气最高 联通:要做PaaS,存储最低为TB 百度资深交互设计师谈微信4.5版本 TalkingData推出移动游戏数据分析平台 一周消息树:著名计算机黑客Aaron Swartz自杀身亡 使用Windows 8模拟器及Visual Studio 2012调试IE 10触控及响应式Web设计 Azure、AWS要来了 IDC抱团取暖还是各找出路 C#使用ICDBurn实现CD刻录 验证码识别基础方法及C#/.NET源码 傲逆软件CEO周鲁:核心游戏精神,在移动游戏创作中传承 Kim Dotcom推出新文件存储服务平台Mega 用户数一天达百万 美FCC:希望全美在2015年部署千兆以太网 iOS和Android双平台:帷千动媒SDK 3.0发布 移动周报:2013年移动App设计13大精髓 构建高可扩Web架构和分布式系统实战(下) API设计的十大最差和五大最佳实践 Hadoop:为什么RAID-0不行? 电子前沿基金会:实现互联网自由需翻越5座大山 安全无小事:2013年最令人期待的15家安全公司 移动电商:更喜欢用HTML5代替原生APP Talkingdata行业预警:移动游戏正在变成红海 微软无视W3C 拒绝遵循WebRTC标准 Linux下使用MongoDB+GridFS实现备份作业的优化和监视 AWS建新数据中心 老用户获益不易 铜导线退出历史舞台 激光传导速度将达100G bps 大众点评推出首个O2O开放者平台:高德、盛大加入 从APM角度上看:NoSQL和关系数据库并无不同 新浪微博商业化:大树底下真的好乘凉吗? 亲爱的GitHub,我们怎么访问不了你? Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 一个简单问题:我在给Access数据表中增加记录,其中一字段是CTime类型,但老是非法操作。调试后错误出现是:return (GetLocalTm(NULL)->tm_year) + 1900 不知如何解决。请各位大师救救我把。 动态的保存datawindow object的问题 怎么给一个(tab control)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 圆内有一个最大的正方形,已知正方形的面积为40平方厘米,求阴影部分的面积? 已知m=2*3*4,那么m的全部约数共有()个 约数之和(除其本身)恰好等于它本身的数叫什么? 正方形的面积是40平方厘米,计算阴影部分的面积? C语言编写函数fun,函数的功能是,求1到100之间的偶数之积我没有多少分,实在拿不出分,我明天就用, 求1~2000的数中,所有偶数和所有奇数之和的差个反复反复反复反复反复反复反复反复 如图,正方形的面积是40平方厘米,求阴影部分的面积一个圆在右下角的4分之1有一个正方形,有一点留在外面)求在外面的面积《可先画图,用算术方法 利用函数fun.把数组9.1.4.2.3.6.5.8.7中偶数删掉,奇数安顺序输出,奇数个数通过函数反回 什么是单项式,多项式,整式.它们的区别与联系一定要准确啊 一个数由14个百,15个十分之一,14个千分之一组成,这个数是( )有( )个0.001.要说明过程.分析.急`` C语言 已知一个大小为15的数组,随机生成15个100-200之间的数存入该数组中并显示出数组中的偶数已知一个大小为15的数组,随机生成15个100-200之间的数存入该数组中并显示出数组中的偶数 甲数等于2*3*5*7,甲数有几个约数?快 一个数由15个百和15个十分之一组成,这个数是( ),有( )个0.001? 罗马废墟函数FUN的功能是:把形参a所指数组总的奇数原顺序依次存放到a[0],a[1],a[2].……中,把偶数从数组中除,奇数个数通过函数值返回.例如:若a所指数组中的数据最初排列为:9、1、4、2、3、6 怎样区分单项式和多项式?就像那个单项式集合和多项式集合我就会分乱了,搞不清楚,就连单项式和多项式的次数次数都搞不清楚,你们能给我详细解答还有举例子吗?(请你们回答时要一个一 已知阴影部分的面积是40平方厘米,求空白部分的面积. 7个1、3个十分之一和9个千分之一组成的小数是? 怎样区别单项式和多项式?如:x分之3,x+1,-2又2分之一,4分之a,0.72xy,2分之x-1中单项式有几个?分别是?多项式有几个?分别是?并且还要说出你怎样区别单项式与多项式 已知阴影部分正方形的面积是40平方厘米,这个图形中空白部分扇形的面积是( )平方米. 5个十分之一,7个千分之一组成一个小数,这个小数是() 单项式与多项式区别 已知阴影部分的面积是40平方厘米,求空白部分的面积.求算式, 12个一、7个十分之一、5个千分之一组成的小数是什么呢?会的话就写小数和读作 C#输入一组非0整数(以0作为输入结束标志)到一维数组中,求出这一组数的平均值,统计出正数和负数的个数.如,输入4,5,6,0,则输出 5是C#的问题,求解 已知300=2*2*3*5*5,则300一共有( )个不同的因数.你是怎样想的? 空白部分的面积比阴影部分的面积大40平方厘米,求阴影部分的面积长:20厘米宽:16厘米 C语言:编写一个函数,输入n为偶数时,调用函数求1/2+1/4+…+1/n,当输入n为奇数时,调用函数1/1+1/3+…+1/n(利用指针函数).#includevoid main(){. 关于x的多项式-3x的平方+2x的二次项系数、一次项系数和常数项分别是( ) 如图,面积为30平方米的大正方形的四个角都是面积为3平方米的小正方形,用计算器求阴影部分的正方形的边长. 一数组,得出出现偶数次的奇数,并排序,用一语言写一函数?给一整型数组,得出出现偶数次的奇数,并排序,用一语言写一函数? 示例:{1,2,8,9,1,12,13,9,13,1} 结果:{9} 不改变0.7的值,改写成已千分之一为单位的数是? 如图,面积为30平方米的大正方形四个角上的小正方形面积均为2平方米利用计算器就a的值(结果精确到0.1m) M和N两个数只含有因数3和5,它们的最大公约数是75,已知A有12个约数,B有10个约数,求M+N (如何解答,) 不改变0.9的值,改写成以千分之一为单位的数是 一个大正方形被分成四个小长方形,其中在阴影部分是一个小正方形,那么它的面积是多少平方米? 已知m、n两个数都只含质因数2和3,它们的最大公约数是18,已知m有12个约数,n有10个约数,则数m与n的和为( 不改变0.6的值,把它改写成以千分之一为单位的数是( ) 如果多项式x^4+4x^2+ax+b能被x^2+2x-3整除,求a与b 输出区间m到n内所有的完全数,完全数就是小于本身的约数的和等于本身,6的约数1 2.3,#include int main ( ){int i,n,m,a,b;i=0;printf("m n");scanf("%d %d",&m,&n);for(a=m;a 把0.68万改写成以“一”为单位的数,写作().不改变0.7的值,改写成以千分之一为单位的数是() 求几道编程题(QUICK BASIC)一.选择题1.一下不合法的整形数是( )A. 1234% B.0% C. -999% D.2.001%2数值24.876表示成科学记数法,错误的是( )A.0.24876E2 B.24.876E1 C.2487.6E-2 D.2.4876E+13.下面几个式子中不 M/\除以N=3,那么M是N的约数吗 五个连续奇数的和是125,这五个连续奇数是多少?五个连续偶数的和是130,这五个连续偶数分别是多少?快快快,跪求!!!!!!1 VB编程 累加运算1~100的和 100的奇数和 偶数和 三个都要 完整的编程式 先求图形中涂色部分的面积,再求小正方形的面积(边长四分米)大长方形的边长是4分米 大正方形边长10CM,小正方形边长2CM,大正方形的面积比小正方形的面积多百分之几 有一个圆环,其一个正方形覆盖在左下角,已知阴影部分面积为40㎡,求圆环面积 先求右面图形中涂色部分的面积,再求小正方形的面积. 4分米 7个百 6个十分之一 5个千分之一组成的是什么数 如图,面积为36㎡的正方形的四个角是四个面积为2㎡的小正方形,求a长 下面的3个正方形大小相等.每个正方形中的涂色部分占正方形面积的几分之几?【下面图和问题】下面的3个正方形大小相等.每个正方形中的涂色部分占正方形面积的几分之几?哪个正方形中的 一个数由5个百,9个千分之一,6个千分之一组成,这个数是? 用小数表示,一个百和五个千分之一 1到20数中奇数有几个?偶数有几个? 如图所示,长方形中有两个正方形,已知大正方形的面积为64cm²,小正方形面积为16cm,求阴影部分面积. 7个百和7个千分之一组成的小数是 100以内恰有4个约数的数有多少个? 如图,已知正方形的面积是40平方厘米,求阴影面积? 若m×(m+1)(m+2)(m+3)(m+4)共有40个不同的约数,则m= 输入一个数求1到这个数的奇数和与偶数和用JAVA写.想了很就
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn