自定义文件复制进度条（请教)

shortppsy 2004-09-12 04:10:32

小弟用的API复制文件.隐藏了系统自带的进度条
想自己做出进度条来显示文件的复制进度.
但是没有头绪，哪位有方案的请告诉我：）

...全文

196 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2004-09-12

打赏
举报

http://www.msjogren.net/dotnet/download.asp?progdlg.zip

这是一个包含所需tlb文件的vb例子

rainstormmaster 2004-09-12

打赏
举报

或者直接利用微软提供的IProgressDialog接口实现
参考：
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iactivedesktop/iactivedesktop.asp

shortppsy 2004-09-12

打赏
举报

那样只能遍历了,可惜VB的速度
试试看吧

rainstormmaster 2004-09-12

打赏
举报

//我移植了,不过只能复制单个文件时能显示进度条

能显示一个就能显示多个，可以考虑用循环实现

a_cer 2004-09-12

打赏
举报

有些懒了！！

shortppsy 2004-09-12

打赏
举报

我移植了,不过只能复制单个文件时能显示进度条
而无法复制一个目录下所有的文件
那么会出错
请继续帮帮忙:)

northwolves 2004-09-12

打赏
举报

以前收藏的，没用过：

sub CopyFile(Src As String, Dst As String) As Single
Dim BTest!, FSize!
Dim F1%, F2%
Dim sArray() As Byte
Dim buff As Integer

Const BUFSIZE = 1024

buff = 1024

F1 = FreeFile
Open Src For Binary As F1
F2 = FreeFile
Open Dst For Binary As F2

FSize = LOF(F1)
BTest = FSize - LOF(F2)
ReDim sArray(BUFSIZE) As Byte

Do
If BTest < BUFSIZE Then
buff = BTest
ReDim sArray(buff) As Byte
End If

Get F1, , sArray
Put F2, , sArray

BTest = FSize - LOF(F2)
If BTest < 0 Then
ProgressBar.Value = 100
Else
ProgressBar.Value = (100 - Int(100 * BTest / FSize))
End If
Loop Until BTest <= 0

Close F1
Close F2
CopyFile = FSize

End sub

在自定义Server Control中捆绑JS文件 Step by Step 深度解析Asp.Net2.0中的Callback机制使用 Web 标准生成 ASP.NET 2.0 Web 站点 ASP.NET 2.0基于SQLSERVER 2005的aspnetdb.mdf部署 ASP.NET 2.0 Security FAQs Asp...

在论坛和其他网站上经常可以看到新手请教如何制作FLASH进度条的问题，答案各式各样(有图片的稀少)，讲的清楚，但是新手不懂怎么做，说了等于白讲，所以小弟在这为大家详细讲解FLASH进度条的制作。网上可找不到这么...

原文:NSIS使用教程(安装包制作安装文件教程,如何封装打包文件) 中文版nsis中文版（Nullsoft Scriptable Install System）是一个专业的开源的可以用来封闭Windows程序的实用工具,是一个开源的 Windows 系统下安装程序...

第一部分：安装启动问题1、关于所有版本XP在安装进度还剩下34分钟进度条就停止不动的说明以及解决方法在安装还剩34分钟，也就是安装设备时屏幕会一直定在那儿不走，硬盘灯不亮！造成这种现象的原因极有可能是主板上...

自己使用aa插件的经历，保存下载，方便以后自己观看，有不对的地方谦虚的请教。