下载文件进度条

jiangqiaohua 2008-03-26 10:24:49

vb如何做 下载文件进度条?
物品现在是通过Inet下载

Sub downFile(url As String, ByVal SaveFileName As String)
Dim bytes() As Byte
' 把文件的字节读到一个Byte数组中
bytes() = Inet1.OpenURL(url, icByteArray)

' 得出文件名
Dim fName As String
Dim AppPath
AppPath = App.path
If Right$(AppPath, 1) <> "\" Then AppPath = AppPath & "\"

fName = SaveFileName

' 保存在C盘下
Open AppPath & fName For Binary Access Write As #1
Put #1, , bytes()
Close #1
End Sub


下载一个文件停留很长时间
(做了个假的进度条)
很容易让客户误解以为 不能更新了


怎么样做到 按照下载文件 的进度显示进度条?



...全文
65 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧