如何在vb6中设置进度条值

Question

当我将文件从一个文件夹复制到另一个文件夹时，我想显示进度条。

Open Text1.Text For Binary Access Read As FF
filedata = Space(LOF(FF))
Get #1, 1, filedata
Close #FF

Open Text1.Text & ".copy.exe" For Binary Access Write As FF
Put #FF, 1, filedata
Close #FF

如何为此添加进度条...

Answer 1

如果这些文件太大或驱动器太慢以至于显示进度条没有任何意义，则以较小的块复制。如果事情需要那么长时间，那么最好还是处理由Timer定时器提示的每个块。更新ProgressBar等每个完成的刻度。通过这种方式，您不需要进行Evil DoEvents()调用，并且您的UI和程序仍然会对“取消”按钮做出响应。