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

VB使用浏览器的文件复制对话框

HTML文档下载 WORD文档下载 PDF文档下载
VB使用浏览器的文件复制对话框

By John Percival

介绍

Ever wanted to use the dialog box that appears when you do file operations in Explorer? Well, it is not
that hard to work, and can be used to provide some very neat little features for your application.
One little warning before we go too much further: you can easily use this function to delete entire
directories without any confirmation; I recommend that you create some temporary directories that
you can play about with, rather than destroying any useful directories.


All the dialog boxes are based around one function, SHFileOperation. It is very easy to use, and
only has one parameter, a SHFILEOPSTRUCT user-defined type. Here are the declarations that
you will need:

Public Declare Function SHFileOperation Lib _"shell32.dll" Alias "SHFileOperationA" _(lpFileOp As Any) As LongPublic Declare Sub SHFreeNameMappings Lib _"shell32.dll" (ByVal hNameMappings As Long)Public Declare Sub CopyMemory Lib "KERNEL32" _Alias "RtlMoveMemory" (hpvDest As Any, hpvSource _As Any, ByVal cbCopy As Long)Public Type SHFILEOPSTRUCThwnd As LongwFunc As FO_FunctionspFrom As StringpTo As StringfFlags As FOF_FlagsfAnyOperationsAborted As LonghNameMappings As LonglpszProgressTitle As String 'only used if FOF_SIMPLEPROGRESSEnd TypePublic Enum FO_FunctionsFO_MOVE = &H1FO_COPY = &H2FO_DELETE = &H3FO_RENAME = &H4End EnumPublic Enum FOF_FlagsFOF_MULTIDESTFILES = &H1FOF_CONFIRMMOUSE = &H2FOF_SILENT = &H4FOF_RENAMEONCOLLISION = &H8FOF_NOCONFIRMATION = &H10FOF_WANTMAPPINGHANDLE = &H20FOF_ALLOWUNDO = &H40FOF_FILESONLY = &H80FOF_SIMPLEPROGRESS = &H100FOF_NOCONFIRMMKDIR = &H200FOF_NOERRORUI = &H400FOF_NOCOPYSECURITYATTRIBS = &H800FOF_NORECURSION = &H1000FOF_NO_CONNECTED_ELEMENTS = &H2000FOF_WANTNUKEWARNING = &H4000End EnumPublic Type SHNAMEMAPPINGpszOldPath As StringpszNewPath As StringcchOldPath As LongcchNewPath As LongEnd Type
保存复选框选项-VB资料 不用OCX来创建自己的控件(一)-VB资料 成组更新控件属性-VB资料 VB创建数据驱动窗体 得到鼠标位置 -VB资料 动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 给TreeView控件添加弹式菜单 -VB资料 计算从开机到现在用了多少秒-VB资料 将立体的ListView标题栏转换成平面式的标题栏 -VB资料 禁用窗体上所有控件 -VB资料 拷贝或移动列表框或组合框中的内容-VB资料 利用VB5开发ActiveX控件 利用VB三维面板控件设计流动条 浅谈用VB6.0编写BO程序 巧用Visual Basic的TIMER控件 VB取得控件绝对Top值 VB如何解决VB中的Grid 控件的打印问题 VB如果自定义 MsgBox 的按钮,标题等 VB如何创建数据绑定控件。 VB如何解决VB中的Grid控件的打印问题 VB如何强制文件对话框再次读取正确的磁盘? VB如何取得RichTextBox控件中光标所在行的值? VB如何设定 MsgBox 在若干时间之后若无回应則自动关闭? VB如何使用VB控件Commom Dialog VB如何用VB6写COM组件(二) VB如何用VB6写COM组件(一) VB如何在VB中使用Delphi的控件 VB如何在运行时动态增加控件 请问各位作过水晶报表的,我是用报表专家的提示连SQLSERVER2000数据库,但为何运行时提示:无法登陆!!有那位有过解决的经验??很急, 有人知道这是为什么吗? 用ASP可不可以显示数据库的表的结构啊? 2000个线程同时填数据库的测试结果 如何用VC来画座标图,望众高手献艺 怎么编译pro*c? (unix下)———在线等!!!! 今天升到5个裤衩,高兴,散分 有谁知道《斯托克代尔悖论》的内容? 使用VB6.0编程设置IIS5.0服务器 谁有InstallShield,包括汉化界面,中文语言包和注册码,200分回报 freedorm格式数据窗口打印问题,字太长如何自动换行, 一个头痛问题。 做过政府审计软件的请帮帮忙,怎么从十来套不同表结构的数据库导数据到一个固定表结构的数据库呢? 如何让菜单可用或不可用?急啊~~ Lotus中的js问题 哪有Oracle中文最新版下载呀, 请问各地delphi认证培训的费用是多少? re:下雨了 怎么样加提示框 借一个问题!XP里面网卡怎么工作不正常 请问有什么办法破VBA的密码 CEdit 背景色的问题 100 分 请问vb中浏览器控件是在哪个文件中,另外我想在vb程序中加入介绍性网页,应该怎么办! 了解jpeg的请进 高分急求数据库解决方案! 请问vb中浏览器控件是在哪个文件中,另外我想在vb程序中加入介绍性网页,应该怎么办! 存储类 在MainFrame里怎么得到一个指向MyDoc类的指针? 上海的弟兄前来领分!!!! 能ping通代理服务器,但不能上网(ftp等都不能用)。有那些原因! 谁有api做的串口通讯例子 很简单的Temporary used 问题,就是搞不清,请哪位详细点拨一下,铭谢 DataGrid中使用HyerLinkColumn,请怎样动态传递多个参数或改变DataNavigateUrlFormatString的值(在线等待答复) 在winsock1.1下怎样监听网络事件。(请给个API 的 sample ) 高分急求数据库解决方案! 高分求助软件稳定性问题! 高分请教exej4的问题!~ 我的代码可以被编译吗? 十万火急(在线等)关于发邮件问题!多谢了(最后50分了) 感谢各位的鼎力支持!!! 急:如何让sqlload使用命令行方式,把数据库中的指定几个表导出?(在线) 单元全局变量与工程全局变量有什么区别 问一个关于JSP和XML结合的问题. 请问怎样用ASP连接Mysql数据库,急! 有没有j2ee的qq群??? win2k里的smtp服务器,怎么是需要身份验证的? 怎样让智能ABC记住输入的词组呢? 你在delphi中,用到了多少面向对象的知识? Dragover事件什么情况下触发 北京还是深圳 如何实现两个类互相访问--急! 已知向量a,向量b,向量c共线,求证向量OA,向量OB,向量OC不共线 西周在治理国家有什么创新 已知一次函数y1=x+m与反比例函数y2=m-1/x(m≠-1)的图像在第一象限内的交点为P(x0,3)(1)求 x0,m 的值;(2)在同一坐标系中画出两函数的图像,并结合图像求出满足y1大于y2的取值范围. 函数y=a(x-2)的平方+b 经过点(-1,5),(m,5),求m及其解析式 C l fête des a h,Je t’aime 求意思?貌似是法语!他说前一句有潜伏在内 The students go to the Greats Wall by car.【对划线部分提问】划线部分是by car 请问各位最后一个拼音是什么?谢谢! 这句法语事什么意思啊j'ai des envies de是什么意思啊 j'ai des envies de 这两个微分方程的特解都一样吗?说明下理由 看了一下中华民族的历史,朝代交替,那中华人民共和国什么时候被推翻啊 工人阶级是我国领导阶级的原因是多选A中国共产党的工人阶级先锋队性质决定了工人阶级的领导地位B中国工人阶级是中国先进生产力和现金生产关系的代表C必须保障工人阶级的合法利益D工 地球以前的美 中国的封建主义彻底被推翻是在什么时候? 神经兴奋如何产生?与钠或钾离子移动关系。 地球的美在何处? 中国的帝制是什么时候被推翻的,什么时候被废除,在什么环境下废除的为什么废除了? 神经组织能产生刺激吗? 已知一次函数y=x+m与反比例函数y=m+1/x(m≠-1)的图象在第一象限内的交点为P(Xo,3)(1)求p点的作标 还可以用哪些词可以形容 第一第二 第三 状元 榜眼探花 冠亚季军.还有什么?有创意更好. 请问西方经济学(微观)中,脊线的准确定义是什么? il est tard, on a encore des gens a voir avant l'heure du dejeuner.这句话直译是什么意思?on和a是什么意思? 求证:在周长一定的矩形中正方形面积最大. 微观经济中“均衡价格”的概念是什么求完整概念.这是习题中的解释概念一题. Quartier des fleurs, à Face résiduelle rire, rire les gens du commun . 谁会这句话的意思? 灯泡发光的强度与灯丝的电阻有关系么 请问下西方经济学(微观部分)和微观经济学是不是一个概念? 各秋万代是什么意思? 周长一定的所有矩形中正方形面积最大.类比到空间可得结论是什么 帮我把字查出拼音,帮我把词查出解释, Forever是永远的意思吗? 请问一个高阶线性微分方程的问题把n阶线性微分方程转化为一个一阶n元线性微分方程组之后,先求其齐次方程组的基解矩阵,再用常数变易公式求得其非齐次方程组的解,然后其第一个分量就 看拼音写词.求学霸看一看题目有没有错 公有制经济和非公有制经济在我国国民经济中发挥着怎样的作用 高阶线性微分方程怎么求解啊? 5均量线金叉10均量线,凡是5天之内符合这个条件的个股,如何公式?也就是金叉后,5天或者小于5天的,都要选出来,如何公式?就是最近5天(含5天)金叉的,都要选出来! 龙眼干怎么晒 导数证明, 在可降价的高阶微分方程中有两种形式的微分方程:y''=f(x,y') 和y''=f(y,y').其中前面的方程可设y'=p,那么y''=dp/dx=p',来求得答案,而后面的方程则用y'=p,则y''=p*dp/dy来求得答案.举例说明:yy''-y'^2=0 已知一次函数y=x+m与反比例函数y=m+1/x(m≠-1)的图象在第一象限内的交点为P(Xo,3)(1)求Xo的值(2)求一次函数和反比例函数的解析式麻烦解答下. 六年级数学练习册p12答案2.1的 请问(y')^2+1=2*y*y'' 这个微分方程应该怎么求?做不来啊... 晒龙眼干怎么晒 拼音这道题谁教教我? 地的人口出生率为3.5%,而自然生长率为2%,那么该地有可能是 晒龙眼干的步骤,是晒,不是烘焙!晒龙眼干要不要剥壳晒? ___the days _____hotter and hotter ,our summer vacation is nearer and nearer.A.As ,beingB.With being请说明理由 若OB(向量)= m*OA(向量)+ n*OC(向量),且A,B,C三点共线,(改直线不经过O),为什么m+n=1 龙眼干可以晒好吗,有什么步骤呢 Our vacation lasts 20 days.中20 days 做什么成分 因式分解:(x2-2x)(x2-2x-3) (a2-5a+5)(a2-5a-3)-9 (a+1)(a+3)(a+5)(a+7)+15 请帮我回答谁sb 2010六年级上册语文题组训练(人教版) 急用 新民主主义革命的领导阶级是 法、英等国袭击利比亚卡扎菲军队,如果俄罗斯帮助卡扎菲反攻,会引发第三次世界大战吗? 非洲为什么是人口自然生长率最高的大洲? 如何使神经高度兴奋真诚求答 , 新鲜龙眼怎么做龙眼干 已知函数f(x)= -2m的平方+m+3 x (m€z)为偶函数,且f(3) 用显微镜观察玻片标本,目镜是12.5×,物镜是40×,请问,这家显微镜能将观察到的玻片标本放大多少倍?算式哦 龙眼是怎样制造成龙眼干 欧洲大部分国家27日结束夏时制泰国首都曼谷的房产经意大利议员:美国监控如拖网捕鱼 一网欧洲大部分国家27日结束夏时制多国外交官出席水文化论坛 看好中国瓶世界主要城市10月26日天气预报朝鲜通过板门店送还6名韩国人外交部就俄罗斯、印度、蒙古三国总理访欧盟为防美将设新“反监控法” 美企或民营医院在中国起步 公立国有民营趋势印东部洪灾致20万人受灾 逾5万人被欧盟主席谈隐私 被称暗示美国搞监视是世界旅游业看好中国客源市场 各国力推24架美军“鱼鹰”运输机落户冲绳 半摩洛哥少年网上称要杀死奥巴马 被判入中国将向安哥拉派遣第三批医疗队英国三季度经济环比增速创纪录钟山呼吁中欧克制使用贸易救济措施钟山呼吁中欧为多哈回合谈判注入动力安倍驳小泉言论 称日现在承诺零核电不美国与多国情报机构合作搜集中俄等国情579元 玩转六大海滨城市荆州电梯事故死者丈夫:妻子快下电梯,精功大力队笑着离开302名湖北考生梦圆北大清华全球最牛“带电”跑车在汉开卖赛琳娜号带你开启“海上罗马假日”武汉市内有个夏威夷度假胜地皇马三球轻取国米狼狗咬爆警车轮胎被驯服 路人调侃称想“低头族”甩手乘手扶电梯中国女足1-3武汉U17男足 媒体:米饭里包进缤纷水果五问A股为何再次“跌倒”创作歌手金玟岐9月武汉开唱我总想找个更好的……纯电动的士再增百辆上路距离无法跨越吗避暑漂流2种玩法2种选择闭嘴或者走开40多所高校二本投档线过一本神农架邀你过夏天
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘