至顶网›软件频道 ›基础软件›用VB6.0的ActiveX控件实现异步下载

用VB6.0的ActiveX控件实现异步下载

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

在VB6中，要实现文件下载，一般用和方法都是使用第三方控件。

作者：airon2002 来源：论坛 2007年10月14日

关键字：

程序说明：

　　本文采取VB6中OCX中的异步获取方法来下载文件。

　　用到 AsyncRead(异步读取)

　　文中带注解的部分为下载界面控制，在下载时，会有像 FlashGet一样的有动画图标在动，要添加此功能，请在用户控件上添加三个image，(image上要带图片)

　　4.关闭用户控件的代码与设置窗口，回到 Form1

　　5.这时你会看到在左边的工具栏下多了一用户控件，把它添加到窗体上。命名为 Downloader1

　　6.在窗体上添加一 command 控钮，命名为 Command1

　　7.在窗体 Form1的代码窗口输入代码：

Option Explicit
'============================================
'
' 程序编写， airon,softWoker 2004-02-20
' vborg@sohu.com airon888@hotmail.com
' Http://www.eyes3.net/
'
'============================================
Private Sub Command1_Click()
Downloader1.BeginDownload url, SaveFile
'请把 URL 替代为 Http://文件路径
'请把 savefile 替代为下载到本地文件的路径与名称。
End Sub

Private Sub Downloader1_DownloadComplete(MaxBytes As Long, SaveFile As String)
MsgBox "文件下载完成，保存文件名为：" & SaveFile, vbInformation Or vbOKOnly, "提示："
End Sub

Private Sub Downloader1_DownloadError(SaveFile As String)
MsgBox "下载发生错误！", vbExclamation Or vbOKOnly, "错误："
End Sub

Private Sub Downloader1_DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
'在这里添加进度第的代码
End Sub

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

用VB6.0的ActiveX控件实现异步下载

业界热点: