VB下载百分比和进度条问题

Question

Private Sub cmdGET_Click()
savefile.Text = App.Path & "\ss.exe"
Inet1.Execute "http://www.xxx.com/update/Prosc.exe", "get"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 时，用 GetChunk 方法检索服务器的响应。
Dim vtData() As Byte
Select Case State
'...没有列举其它情况。
Case icError '11
'出现错误时，返回 ResponseCode 和 ResponseInfo。
vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
Case icResponseCompleted ' 12
Dim bDone As Boolean: bDone = False
'取得第一个块。
vtData() = Inet1.GetChunk(1024, 1) '问题一: 这句是什么意思?
DoEvents
Open savefile.Text For Binary Access Write As #1 '设置保存路径文件后开始保存
'获取下载文件长度
If Len(Inet1.GetHeader("Content-Length")) > 0 Then ProgressBar1.Max = CLng(Inet1.GetHeader("Content-Length"))
' CLng(Inet1.GetHeader("Content-Length")) 为文件大小
'循环分块下载
Do While Not bDone
Put #1, Loc(1) + 1, vtData()
vtData() = Inet1.GetChunk(1024, 1)
DoEvents
Label1.Caption = Loc(1) '为已下载的大小
ProgressBar1.Value = Loc(1) '设置进度条增加
If Loc(1) >= ProgressBar1.Max Then bDone = True
Loop
Close #1
MsgBox "下载完成", vbInformation, "通知"
End Select
End Sub

小弟我使用上面的代码下载文件,文件大小为 100000 Byte 问题是没什么,可是我不想使用 ProgressBar1 ,想用 Picture1 来代替 ProgressBar1,
Pictrue1 的最终Width为 2000,初始为0,如何在 Label1.caption 显示下载的百分比? 如何让 PICTURE 的宽度按下载比例增加?
求教各位大虾，谢谢。

Answer 1

修改后的代码如下，手头没有VB环境，没有调试，需要自己调试一下；

Private Sub cmdGET_Click()
savefile.Text = App.Path & "\ss.exe"
Inet1.Execute "http://www.xxx.com/update/Prosc.exe", "get"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 时，用 GetChunk 方法检索服务器的响应。
Dim vtData() As Byte
Select Case State
'...没有列举其它情况。
Case icError '11
'出现错误时，返回 ResponseCode 和 ResponseInfo。
vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
Case icResponseCompleted ' 12
Dim bDone As Boolean: bDone = False
Dim lDatalen as Long : lDatalen = 0
'取得第一个块。
vtData() = Inet1.GetChunk(1024, 1) '问题一: 这句是什么意思? 回答：取得第一块数据，块大小是1024字节
DoEvents
Open savefile.Text For Binary Access Write As #1 '设置保存路径文件后开始保存
'获取下载文件长度
If Len(Inet1.GetHeader("Content-Length")) > 0 Then lDatalen = CLng(Inet1.GetHeader("Content-Length"))
' CLng(Inet1.GetHeader("Content-Length")) 为文件大小
'循环分块下载
Do While Not bDone
Put #1, Loc(1) + 1, vtData()
vtData() = Inet1.GetChunk(1024, 1)
DoEvents
Label1.Caption = (Loc(1) * 100 / lDatalen) & "%" '计算已下载百分比，这里没有保留小数
Pictrue1.width= 2000 * (Loc(1) / lDatalen) '设置图片宽度，用总长度乘以完成百分比

If Loc(1) >= lDatalen Then bDone = True
Loop
Close #1
MsgBox "下载完成", vbInformation, "通知"
End Select
End Sub