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

VB如何使用文件复制对话框?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使用文件复制对话框?

Visual Basic 提供了过时的FileCopy语句.问题是使用该函数时并不显示文件复制对话框,也就是说,当拷贝一个大文件时,用户看不到Windows的标准文件复制对话框,无法从进度条上判断当前复制的进度.那么,如何做到这一点呢?请看下面:

Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_COPY = &H2
Public Const FOF_ALLOWUNDO = &H40

Public Sub ShellCopyFile(Source As String, Dest As String)
Dim result As Long
Dim fileop As SHFILEOPSTRUCT
With fileop
.hwnd = 0
.wFunc = FO_COPY
'The files to copy separated by Nulls and terminated by 2 nulls
.pFrom = Source & vbNullChar & vbNullChar
'or to copy all files use this line
'.pFrom = "C:\*.*" & vbNullChar & vbNullChar
'The directory or filename(s) to copy into terminated in 2 nulls
.pTo = Dest & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With
result = SHFileOperation(fileop)
If result <> 0 Then 'Operation failed
'Msgbox the error that occurred in the API.
MsgBox Err.LastDllError, vbCritical Or vbOKOnly
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox "Operation Failed", vbCritical Or vbOKOnly
End If
End If
End Sub

只需调用ShellCopyFile FileA, FileACopy
可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? Github 终于开始认真考虑开源项目许可证了 雅虎发布今年第二季度财报 总营收为11.35亿美元 既然无法避免被GAE锁定,何不考虑其中的机遇并自力更生 19亿美金背后的分析:91为什么要卖?百度为什么要买? 直接拿来用!最火的iOS开源项目(三) 让代码飞一会儿,超级有用的CSS编码工具集 创业者如何在Demo演讲上打动投资人? 微软小打小闹的移动版Outlook Web App,会不会被用户抛弃? 哪门编程语言影响力最大? 微软启动“Companion Web”计划 可互连多屏幕设备 让你望而却步的密码管理服务已获得100万美元的种子基金 SDCC 2013开始公开征集讲师和演讲主题 不用图片和JS,照样创建绚丽的动态CSS3菜单 是福还是祸?开发者饱经风雨的内心独白 设计师/开发者看过来,七月35款新工具速递! Hadoop进军机器学习:Cloudera收购Myrrix共创“Big Learning” 张民杰:三人团队的OpenStack机会 White Elephant:开发者必备的Hadoop利器 不及分析师预期:微软第四季财报揭晓 净利49.7亿美元 Facebook收购英国手机代码验证公司Monoidics Apache基金会废弃其C++标准库 鲍尔默宣称微软有一百万台服务器,这个数字真的靠谱吗? 全球6000开发者:iOS、Android、WP最痴情谁? 提升网站知名度的十大方法 IBM移动平台首席架构师Greg Truty:MobileFirst从底层架构开始 Hallo.js:一款所见即所得的Web编辑器 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对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)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 那里有C++ Primer这本书 十万火急!!!怎么在oracle+developer2k中取得本机ip.——高分奉上!! 如何判断输入的信息是中文? dll调用找不到程序入口?? 怎么用win2000来制作一张可以代光盘启动的启动盘 我怎么用一个ALT 封装一个 ToolBar Control的 ActiveX的控件! 谁有什么好的例子吗! 给个意见,是联通好呢?还是移动好? Paramstr如何正确处理带空格的参数? 我在表中插入记录可流览时却见不到新插入的记录只有关闭程序然后重新运行才能看见新插入的记录. 用awt控件制作的下拉菜单,为什么在IE环境下无法正常显示? 请CommerceServer(商业秘密[::路德一族::])luojx(大鱼儿)koyia(koyia) 三位高手再去谁能单独解决~谁能独享100分!绝不食言(再详细点!)) 怎样让程序只运行一次? 怎样合并两个EXE文件? 把数据库表转换成文本文件,有什么好办法吗/ 怎么才能当鼠标移到表格上,然后表格的颜色改变 请kylincn(随心所欲),lianghu(山人)进来拿分; 另外 斑竹帮我给分http://www.csdn.net/expert/topic/389/389544.shtm 哪儿可以找到一些游戏的算法 谁帮我写一段程序啊!用JS求1-100之间的偶数之和的、、 用C语言编写一程序,统计从键盘输入的任意自然数中偶数的个数并求其和#include "stdio.h"main(){\x05int num,count=0,sum=0;\x05printf("please input one number(>0):\n");\x05scanf("%d",&num);\x05for(;num!=-1;)\x05{\x05\x05if(num% 阴影部分的面积是5平方米求环形的面积是多少 程序填空:求100~200之间的偶数之和(存放在S中)的程序CLEARS=________X=100DO WHILE _________IF ___________________ENDIF X=_________ENDDO明天就考试了! 综合除法和余式定理 1.设多项式f(x)=(x+3)(x-2)+5,若f(x)除以x-k之余数为k^2,则k=?1.设多项式f(x)=(x+3)(x-2)+5,若f(x)除以x-k之余数为k^2,则k=?2.设f(x)=x^3-2x^2-x+2,则多项式g(x)=f(f(x))除以x-1所得之余式为? 看到一个背单词的诀窍,背单词的诀窍:首先Z,Y,X,Q,J,K,U,然后V,W,N,O,L,接着B,D或E,R或F,G或T,I或H,M,最后挑战BOSS:C,P,A,S,不久你会发现,在英语的世界里,单词会主动认识你. 如图,一个梯形的面积是4/3平方米,阴影部分的面积是多少平方米上底5米下底8米的梯形 图中大正方形的面积是40平方米,求阴影部分面积 下图中阴影的面积是5平方分米,求圆环的面积 梯形的面积是25平方米 其他条件如图所示(上底是4米、下底是6米)求阴影部分的面积.一只三角形的底是6米 高未知 三角形的高就是梯形的高 想办法求出梯形的高 若多项式x^3-2x^2+x+3除以x-2的余数为a,求2x-y-4的绝对值 + 根号a-x-y =0的解 空调作用原理 问:只含字母x的五次多项式,最多有()项,最少有()项. 图中大正方形的面积是60平方米,小正方形的面积是多少?希望不要用60除以2,有没有别的方法? 右图中阴影部分的面积是40平方米,求环形的面积 四级要怎么提高这次四级我听力147 阅读160 综合39 写作63 总分409,差一点点!我知道写作很差 那要怎么重点复习翻译和作文呢?作文是不是字迹也很重要?听力也不是很好,请帮我综合分析下我要 5个连续偶数之和是100,这5个偶数分别是多少? 1.5v干电池电压升到4V驱动发光二极管,求详细的原理 关于英语四级,请看一下如何才能在提高听力142 阅读127 综合38 写作98总分405 这是2013年6月份的成绩,下半年的题型还会改,请帮忙参谋参谋,我想下半年就过了.我想了解那部分应该重点加强以及 5个连续的偶数和是100,其中最小的一个和最大的偶数分别是多少? 帮我做一下,阴影部分的面积是20平方厘米,求环形的面积是多少平方米?图片上传不了 0--100之间的偶数之和是多少? 100以后的4个连续奇数和偶数是什么? 下图中阴影部分的面积为5平方厘米 求环形面积·求高手如题 0到100的实数中有哪些是偶数0到100中那些事偶数=】请教 5个连续的偶数和是100, 世界大学排名前一百名?求2010年最新数据!亚洲的占多少?中国的占多少?权威报告 如图,已知阴影部分的面积是73.6平方分米.求梯形的面积.梯形是直角梯形,上底3.2分米,上底右边的边是直角边,边长未知,左边边长未知,下底6.8分米,梯形内花了一条从左上角向右下角直线,先下 五个连续的偶数的和是100,其中最大的一个数是多少? 编写VB程序 输出1至100(包括1和100)内能被7整除的所有整数用 循环语句 编写WHILE 或者 UNTIL 如图,阴影部分的面积是是6平方分米,求梯形的面积. 关于余数定理的问题~多项式余数定理是指一个多项式 f(x) 除以一线性多项式 x - a 的余数是 f(a).例如,(5x3 + 4x2 - 12x + 1) / (x - 3) 的余数是 5(3)3 + 4(3)2 - 12(3) + 1 = 136这里x=3,这样分母不就为0了吗?我 有一个自然数含有10个不同的约数,但质因数只有两种:2和3.这个自然数最大是 梯形的面积是45平方分米,高6分米.求图中阴影部分的面积. 余数定理问题已知f(x)除以x-n/m的余数是k,那么f(x)除以mx-n的余数是?为什么答案依为k,如果可以详细,能不能给我具体深入讲一下,我才学余数定理请说具体点, 91的92次幂 除以100的余数 二项式定理解答 要求详细说明-919 怎么就算出 81的余数 下面程序计算100以内正偶数之和,错在哪里?main(){int sum,i;for(i=100;i>=0;i--);if(i%2==00sum+=i;else sum=0;printf("和为:%d\n",sum);} 什么是中国余数定理? 1.化简(√2+1)^5+(√2-1)^5= 2.利用二项式定理证明命题:15^8-1能被64整除 3.67^200除以9所得的余数是PS:67^200意为:67的200次方 那个英语四级阅读你是怎么提高的? 余数定理高手进1.已知关于X的整式能被X+3整除;除以X+2,X-3时,余数分别是-4,6,求满足上述条件的次数最低的整式2.已知F(X)=X的三次方+2X的二次方+3X+2除一整系数多项式G(X)所的的商式及余 英语四级各题的具体分值? 关于多项式恒等定理f(x) g(x)究竟表示什么~还有~x前面的系数究竟取什么啊~没有要求随便取得嚒~不好意思我初中的~没学过这个东西~、 阴影部分的面积是25平方米,求圆环的面积 下图中圆的半径是2厘米,长方形长与宽的比是3比2,求阴影部分的面积 关于多项式定理求[xk+x(k-1)+x(k-2)...+x2+x1]n的展开式其中xk为X的K次幂,依次类推 还有最好能对上面的公式做一下解释 下图中阴影部分的面积是25平方厘米,你能算出环形的面积是多少吗? 已知下图中的长方形长是8厘米,宽是4厘米,求阴影部分的面积 因式定理和余数定理是什么请用初中知识解决,详细一点拜托 阴影面积是25平方米求圆环面积 求下图中阴影部分的面积,长方形长是8米,宽是4米 504中有几个约数,其中有多少个是3的倍数急急急快开开开 多项式的恒等定理指的是什么最好有来源 下图中阴影的面积是25平方厘米,请你求出环形面积 求5544有多少个不同的约数?这些约数的和是多少? 多项式恒等定理的推广我所知道的多项式恒等定理只是涉及x的整数次幂的,那么它能不能推广呢,包括x的实数次幂,以及lnx啊之类的~搞不清 阴影部分面积25平方米,求环形面积 三个连续偶数的和在100到200之间,这样的连续偶数有几组 数学填空题:M,N两素因素都是2和3,它们的最大公约数是12,已知M有8个约数,N有9个约数,则M,N的和是什么 请问SAT2数学中高次多项式函数的五个定理详细解释
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn