activex vb progressbar problem?

Question

Hi,
I made an activex, that downloads a file to client..I converted cab file with package&deployment wizard, and signed it..
There is an progressbar on the usercontrol(activex control form)..
and set the progressbar value appropriate value while downloading..
I use these lines:
---------------------------------------------------
Do
DoEvents
bData = InetDwn.GetChunk(CHUNK, icByteArray)
DoEvents
If i Mod (downloading_file_all_size / 10) = 0 Then
' I used this line to increase progressbar value every 10 percent
'downloaded
DoEvents
DoEvents
ProgressBar1.Value = ProgressBar1.Value + 1
DoEvents
DoEvents
i = 0
DoEvents
DoEvents
End If
DoEvents
DoEvents
Put #intfile, , bData
i = i + 1
Loop While UBound(bData, 1) > 0
'but progressbar is appeared after all downloading and show %100

HELP!

Answer 1

If I understand you correctly, the progress bar only appears after all the processing is finished and it shows 100% instead of updating as the process is ongoing?

I would try refreshing every time you update the progress bar:

ProgressBar1.Value = ProgressBar1.Value + 1
ProgressBar1.Refresh

or perhaps
Form1.Refresh

hope that helps

Answer 2

I don't think you need all those DoEvents, I never use it with progressbars.
I think your main problem might be that you're setting i to 0 inside the if..else statement.

Answer 3

wow