[RESOLVED] Loading bar

[ajames]

Do you mean "progress bar"? If yes then try one from MS Windows Common Control (select it from components).

Right, i've done that, but how do i get it to increase if i retrieve a percentage from somewhere and make it increase/decrease to that point?

[dglienna]

It doesn't fill. Set the interval to 100 (or more) to get it to move 10 times per second. It swivels back and forth while it's running. If you want something to fill, you'd have to use a progress bar.

[RhinoBull]

Right, i've done that, but how do i get it to increase if i retrieve a percentage from somewhere and make it increase/decrease to that point?

Depends on what "somewhere" is so what is it?

[ajames]

Depends on what "somewhere" is so what is it?

Somewhere could be a textbox, then a button to make it jump to that point.
Also, could i make it start at 0% and increase all the way to the top?

[RhinoBull]

Sorry, it's not clear. You see if you want to show progress of some process you must know at least the size of that something and also way of looping so you can increment some counter.
So, if you can give a little more details then I'd happy to post sample code for you.

[dglienna]

You can add a click event to this to change the position.

Option Explicit
 
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Activate()
  ProgressBar1.Min = 0
  ProgressBar1.Max = 100
  ProgressBar1.Value = 0
  ProgressBar1.Enabled = True
  Dim x As Integer
  Dim q As Long
  For x = 0 To 100
    DoEvents
    ProgressBar1.Value = x
    Sleep 50
  Next x
  MsgBox "Done"
  Unload Me
End Sub