扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:airon2002 来源:论坛 2007年10月14日
关键字:
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 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者