help!![resolved]

[greenie94]

hey again,can anyone tell me how to get a progress bar to actually work?i have insterted it but thats about it.
thanks.

[adzzzz]

What do you want to indicate the progress of?

If you want the progressbar for 'fun' purposes, add a timer to your form give it an interval of say 10-100 and use the following code in the timers Timer event:

Private Sub Timer1_Timer()
  ProgressBar1.Value = ProgressBar1.Value + 1
  If ProgressBar1.Value = ProgressBar1.Max Then Timer1.Enabled = False
End Sub

-adehh

[davidrobin]

progressbar1.min = <the min value>
progressbar1.max = <the max value>
progressbar1.value = <the amount of blue>

if you have a loop then it would look something like this:

dim i as integer

progressbar1.min = 1
progressbar1.max = 100

for i 1 to 100
   ...
   ...
   progressbar1.value = i
   ...
   ...

next

min and max can be anything but if the value is outside the range an error will occur

e.g. min 10
max 546

if value goes below 10 or greater than 546 an error will be raised.

[Madboy]

I find progressbars frustrating, never work for me. I can only imitate the progress, not actually show "True" progress

[randem]

greenie94

There is some code in the CodeBank Forum. See if it helps.