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

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
微软是否应该提高Windows版本的推送频率? 咸鱼大翻身?索尼将发展可穿戴游戏设备 popping:基于Facebook Pop引擎的iOS动画库 《近匠》专访极路由CTO康神 真正智能中心应当这样做 为什么说Android才是游戏开发者的乐土? 开发移动医疗应用必知的10个掘金点 个推CTO叶新江:云推送技术如何助力产品开发 《近匠》Face++:漫谈人脸识别 无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase 十款最新的JavaScript开发工具 JavaScript Promise启示录 百度携多位安全专家深入探讨安全人才快速培养机制 卡饭技术代表严佳:引入安全人才,企业应遵循S.L.E.E.P、S.T.A.R法则 百度资深研发工程师周晓波:平台+数据 百度培养安全人才的重要思路 代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 算法与数据结构 寻找关于Dsound,Dplay方成的书籍或方档!! 如何在xsl中使用setTimeout()而得到渐显的效果? 在外面工作,做底层有钱途吗? 关于form的简单问题 搞过用TurboC开发图像,不知道转VC困不困难 有谁知<<终极杀阵>>游戏(Project IGI)第四回合怎玩的? 不知是否荒唐,大虾请 如果大家有问题告诉我(anjie@zj.soim.com) 如果大家有问题告诉我(anjie@zj.soim.com)一起讨论吗 想跟我交朋友anjie@zj.soim.com tc++3.0如何编写读鼠标程序(急) 都进来看看,程序员的下场... 各位高手,小弟问一个傻问题:怎么在播放一个AVI的时候用自定风格的滑块控制? 我上次在CSDN 上看到有人发贴子说自己写操作系统,我现在有个朋友也在写,想和他联系,但是我现在找不到那个贴子了, 有谁记得那个人的名字或贴子的位置请说.谢谢. 求助:打开网上邻居很慢为什么? 问一个蠢问题:控件何时获得焦点 请问一下哪里再收购软件呢? 请问一下在哪里可以找到收购软件的公司呢? 想作一个DOS程序,实现多台电脑间通过网卡传输文件. 辞职信 application.initialize完成了什么 高手来帮忙啊~ 看看java的魅力 如何通过自制程序的编辑框向现有一般应用程序编辑框传送内容? 窗口执行顺序问题,请多帮助,谢谢 如何自动取得server的日期和时间 怎样让文件指针指到文件末尾,必须skipline一行一行跳吗? 我想在菜单前添加图标,使用Bitmap属性但是为何只能载入*.bmp文件而不能使用*.ico文件,我只有*.ico的图标,请问该如何解决。 有新建一个文本文件并给其命名的函数吗,怎么用 我还真不懂呀? 这个COLTYPE是怎么用的呀?你说它怎么得到表中字段的类型呀? 有关存储器(ram,rom)的编址问题。以及32位或更多位芯片的问题。 一些汇编问题。想来问bcb的兄弟{bcb里好象有不少汇编高手} 救命:在安装了sco openserver之后,系统不能启动,先前安装的win98和win2k也不能。 请问如何进行URL译码??? 请问怎样截取一个string中的一段? 请问delphi做的exe最小可以到多少?怎么做? 我想请问一下WINGATE的具体怎样在WIN2000服务器版中进行设置。 ASP的同志们,能不能留一下QQ号码? 请问何处有破解ACCESS2000的程序或源代码呢? 请问要在TEdit.text组件文本串中找出当前光标在第几个字符上怎么办?谢谢! 请问关于dbImage控件的使用方法? 关于HDC及双缓冲的问题? xxxbird(*说你行,你就行,不行也行*),来领“我遇到几个怪问题。。。。。。”中的分 为什么ASP没法向SQL Server中写入数据?代码什么地方错了 大家帮忙找一下,找到我给50分 exe 捆绑机怎么做? 大家谈谈JSP的设计模式怎末了?我有个题目,设计好的大大有奖! 浏览器下的那个进度条是怎么弄出来的? C中的typedef struct和C++中的 struct有何区别? C中的typedef struct和C++中的 struct有 什么区别?谢谢 如图,半圆内的△ABC的面积是80平方厘米,BD长8厘米,求阴影部分的面积. 如图所示,直径为30厘米的半圆旋转了30度,求阴影部分的面积~ 如图1,周长为46CM的长方形,把长截去5CM后的面积,比宽截去5CM的面积多35CM^2,求原长方形面积 半圆o内的三角形ABC的面积是80平方厘米,BD=8厘米.求阴影不分面积. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的周长与面积 一个长方形的周长是55cm,已知长比宽长3.5cm,这个长方形的长和宽各是多少厘米? 如图,半圆内三角形ABC的面积是24平方厘米,高BD是4厘米,求阴影部分面积是多少平方厘米. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的面积和周长. 一张长方形的纸,长12cm,宽5cm,把两张这样的长方形的纸拼在一起,拼成的新长方形的周长是多少? 右图中BC是半圆的直径,图中阴影部分1的面积比2的面积少5.12平方厘米.AC长多少厘米?(BC等于8厘米) 如图所示,直径为30厘米的半圆旋转了30°,求阴影部分的面积 将半径3厘米和2厘米的两个半圆按如图放置.求阴影部分的周长. 下图的比例尺是1:500,在图上量得长是15cm 宽是8cm ,求阴影部分的实际面积是多少? 将半径分别是3厘米和2厘米的两个半圆如图放置,求阴影部分的周长 将半径3厘米和2厘米的两个半圆按如图放置.求阴影部分周长. 下图的比例尺是1:500,在图上的距离长是15cm,宽是8cm,求两个阴影三角形合起来的面积的面积. 右图是由直径分别为2厘米,4厘米,6厘米的3个半圆所组成的图形,求图中阴影部分的周长和面积.图 将半径为五厘米和三厘米的两个半圆如图放置求阴影部分的周长 下图的比例尺是1:500,在图上的长是15厘米,宽是8厘米,求阴影部分的实际面积是多少平方米?4月17号就要大家看见的都来帮帮忙谢谢了! 如图,图中有三个半圆,已知最大的半圆直径是10厘米,那么阴影的周长是多少厘米? 将两个半径分别为6厘米和9厘米的半圆如下图放置,求阴影部分的周长. 小圆直径8厘米,比大圆半径少3/11.小圆的面积是( ),大圆周长是( ). 如图 ,直径为30厘米的半圆旋转了30°,求阴影部分的周长 将半径分别为4厘米和3厘米的两个半圆按如图放置,求阴影部分的周长 大圆的半径是12厘米,小圆的直径是8厘米,大圆周长和小圆周长的最简整数比是多少?面积比又是多少?要有算式 如图 大半圆的半径是3.5厘米,小半圆的直径是5厘米,求阴影部分的周长是多少厘米 半圆直径8厘米,在里面画个最大的圆,剩余的为阴影部分,阴影部分的周长是多少? 大圆的直径是8厘米,小圆的直径是6厘米,大圆和小圆半径的比是( ),周长的比是( ),面积的比是( ) 求图中阴影部分周长.单位:厘米.图中半圆直径18厘米. 求阴影部分周长 小圆的半径是8厘米,大圆的半径是12厘米.小圆和大圆的直径比是(),周长比是(),面积比是(). 将半径分别为4厘米和3厘米的两个半圆如图放置,则阴影部分的周长是多少A.21.98厘米 B.27.98厘米 C.25.98厘米 D.31.98厘米 求具体方法 求阴影部分的周长,明天就要上学啦! 小圆直径8厘米,大圆直径比小圆直径多三倍,小圆周长是大圆周长几分之几?小圆面积是大圆面积几分之几? 将两个半径分别为6厘米和9厘米的半圆如下图放置,求阴影部分的周长.跟下图一样,只不过数是6和9. 六、计算下面左边图形阴影部分的周长和右边图形阴影部分的面积. 小圆直径是4厘米,大圆半径是4厘米,小圆面积是大圆面积的几分之几? 一个半圆的半径上有半圆的直径两个分别12cm和5cm,求阴影部分的周长 求阴影部分的面积和周长 如图,已知小圆的直径等于大圆的半径,求阴影部分面积是大圆面积的几分之几 求下图中阴影部分的周长,单位:(cm) 半径为5cm.还有一个是点O.有点不像 如图,已知圆O1与圆O2相交于A,B两点,圆O2过O1,且AB是圆O2的直径,若圆O1的半径为4,求图中阴影部分的面积 如图,大圆半径为6,求其阴影部分面积 将半径分别为3cm 和2cm 的两个半圆如下图放置,求阴影部分的周长. O1的半径为4㎝,O2的半径为2㎝,求这个图形阴影部分的周长. 如图 ,大圆半径为6,求其阴影部分的面积 将半径分别为3cm和2cm的两个半圆如图放置,求阴影部分周长?图不太清晰哈…… 如图,AB是⊙O1的直径,AO1是⊙O2的直径,弦MN‖AB,且MN与⊙O2相切于C点,⊙O1的半径为2,求阴影部分面积 一个长方形长10厘米,宽8厘米,里面有一个为5厘米的半圆,其余部分为阴影部分,求阴影部分面积. 如图,小圆的5分之2是阴影部分,大圆的8分之3是阴影部分,求大圆面积与小圆面积的比. 可半径为4cm和 6cm的两个半圆重叠放置,求阴影部分的周长 ❕ 如图二所示,ABCD是一个长方形,长是8厘米,阴影部分的面积是()平方厘米?圆没画好!求阴影! 如图,大圆半径=小圆直径=8cm,求图中阴影部分的面积. 将半径3CM和4CM的两个圆如图所示放置,阴影部分的周长是图片有错啊!是半径4cm、3cm不是直径! 一个长方形里有一个半圆,长方形的长是8厘米,求阴影部分面积 如图,阴影部分的环宽恰好等于较小圆的半径,阴影部分的面积是较大圆面积的()A.1/4 B.1/3 c3/4图在下面速回答,明天交.今日回答奖励50分! :求出下面图形的周长和面积!上面是个半圆,下面是个长方形,长方形的长是4cm,宽是5cm.:求出下面图形的周长和面积!上面是个半圆,下面是个长方形,长方形的长是4cm,宽是5cm. 下图中等腰三解形的腰长8厘米,求阴影部分的面积 如图直径为30厘米的半圆旋转了30度,求阴影部分的面积与周长 已知长方形的周长是38cm,长比宽多5cm,求长方形的周长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn