Simple Progress Bar

[moonfuit]

Can someone please post simple-sample(!) lines of code to make a progress bar work. I.e. fill up to 100% in a few seconds.

Thanks alot,

moonfruit

[Fox]

For a = 0 to 100
   ProgressBar1.Value = A
   DoEvents
Next

[Jop]

Don't forget to set the
ProgressBar1.Max = 100
first

[Fox]

Its 100 by default

[MidgetsBro]

You can also do this with a timer.

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1 'increases the value by one every time
If ProgressBar1.Value >= 100 Then ProgressBar1.Value = 0 'sets the value to 0 when it gets to 100 or else it throws errors
End Sub


[Edited by MidgetsBro on 10-22-2000 at 06:27 PM]

Like Fox's example, you would usually use a ProgressBar in a Loop rather than a Timer (ie: opening a file)

Use it in a loop rather than a Timer. Works much faster and is less complicated .