vb6 - 如何使用进度条在VB6中下载多个文件？

Question

我想从 VB6 应用程序下载多个文件(主要是图像)。目前我正在使用 URLDownloadToFile 但它一次只允许一个文件并且没有进度条。我想下载多个文件和进度条。请帮忙。提前致谢。

我现在的代码:

Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True

Answer 1

您希望异步下载文件，以便您的 VB 代码在下载过程中继续执行。那里是 使用 AsyncRead 对原生 VB6 执行此操作的鲜为人知的方法UserControl 和 UserDocument 对象的方法 - 不需要 API 调用。

这是一个很棒的 explanation and VB6 code for multiple simultaneous downloads ，来自著名的 VB6 大师 Karl Peterson . AsyncReadProgress 事件为您提供 BytesRead 和 BytesMax，这将允许您显示进度条。