7,763
社区成员
发帖
与我相关
我的任务
分享进度条如何和一个动作相连接呀？完成同步的效果！
进度条的属性我知道一些，但我想与一个动作相连接，也就是说，比如，我想copy文件时显示一个进度条，进度条的进程与copy文件的速度有关，或者我在做一个需要较长时间等待的时侯，出现一个进度条，让它与完成的过程同步，本人愚笨，还望大家多给见意。最好实例，谢谢！
...全文
请发表友善的回复…
发表回复
doudou8090 2003-07-23
- 打赏
- 举报
学点东西，取点儿经
zj3164 2003-06-05
- 打赏
- 举报
up
maskzha 2003-06-04
- 打赏
- 举报
up
zj3164 2003-06-04
- 打赏
- 举报
但很多时候因为系统繁忙，而无资源去重绘进度条，怎样才能保证一定的资源分配的进度显示上？
这也是我想知道的问题
9494
这也是我想知道的问题
9494
szqed 2003-02-11
- 打赏
- 举报
但很多时候因为系统繁忙，而无资源去重绘进度条，怎样才能保证一定的资源分配的进度显示上？
这也是我想知道的问题
这也是我想知道的问题
sakurako 2003-02-11
- 打赏
- 举报
progressbar.value=xxx
progressbar的属性里 有 max 和 min min就是0啦（最好）
progressbar的属性里 有 max 和 min min就是0啦（最好）
cat_hsfz 2003-02-01
- 打赏
- 举报
但很多时候因为系统繁忙，而无资源去重绘进度条，怎样才能保证一定的资源分配的进度显示上？
gang75 2003-02-01
- 打赏
- 举报
gz
twinking 2003-01-31
- 打赏
- 举报
用value控制了
具体情况具体办理
没有什么通用的办法
只要能在执行的过程中有过程进度的参数就可以用在进度条的value里面
以表示事件的进度了
具体情况具体办理
没有什么通用的办法
只要能在执行的过程中有过程进度的参数就可以用在进度条的value里面
以表示事件的进度了
chenyu5188 2003-01-31
- 打赏
- 举报
UP
northwolves 2003-01-30
- 打赏
- 举报
该代码摘自网上：
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
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
ricemaster 2003-01-26
- 打赏
- 举报
进度条的控制我一般是放在循环里。
初始化时设置max的值，如循环的次数。
在循环里是value=value+1
+1代表走一小格
初始化时设置max的值，如循环的次数。
在循环里是value=value+1
+1代表走一小格
handyworkroom 2003-01-25
- 打赏
- 举报
能不能给段代码看看呀，谢谢
tolimit 2003-01-23
- 打赏
- 举报
进度条的显示是由你来控制的，上面的COPY是这样，其余的也是这样，只要在开始和完成时显示进度条的开始和最后，中间的显示你可以看情况而定
James0001 2003-01-23
- 打赏
- 举报
必须用 进度条 的 value 属性来控制当前进度。
在copy文件时，可以把文件分为许多小份，每copy完一份后就更新一下进度条。或者用 API : CopyFileEx 来copy，因为此函数支持回调函数。
在copy文件时，可以把文件分为许多小份，每copy完一份后就更新一下进度条。或者用 API : CopyFileEx 来copy，因为此函数支持回调函数。
FangCat 2003-01-23
- 打赏
- 举报
关注
—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢ＣＳＤＮ◣|使♂ ▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ ▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛ ▲自动添加签名......
让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip
—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢ＣＳＤＮ◣|使♂ ▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ ▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛ ▲自动添加签名......
让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip
