进度条如何和一个动作相连接呀？完成同步的效果！

Question

进度条的属性我知道一些，但我想与一个动作相连接，也就是说，比如，我想copy文件时显示一个进度条，进度条的进程与copy文件的速度有关，或者我在做一个需要较长时间等待的时侯，出现一个进度条，让它与完成的过程同步，本人愚笨，还望大家多给见意。最好实例，谢谢！

Answer 1

关注—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 2

必须用 进度条 的 value 属性来控制当前进度。
在copy文件时，可以把文件分为许多小份，每copy完一份后就更新一下进度条。或者用 API : CopyFileEx 来copy，因为此函数支持回调函数。

Answer 3

进度条的显示是由你来控制的，上面的COPY是这样，其余的也是这样，只要在开始和完成时显示进度条的开始和最后，中间的显示你可以看情况而定

Answer 4

进度条的控制我一般是放在循环里。
初始化时设置max的值，如循环的次数。
在循环里是value=value+1
+1代表走一小格

Answer 5

该代码摘自网上：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

Answer 6

用value控制了
具体情况具体办理
没有什么通用的办法 
只要能在执行的过程中有过程进度的参数就可以用在进度条的value里面
以表示事件的进度了

Answer 7

progressbar.value=xxxprogressbar的属性里 有 max 和 min  min就是0啦（最好）