• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Example that shows how to set up a simple Progress Bar

Example that shows how to set up a simple Progress Bar

Example that shows how to set up a simple Progress Bar

API Declarations


Dim MaxNum As Integer




Rate Example that shows how to set up a simple Progress Bar

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'You will be able to change the max value for the progress bar
'at runtime instead of just setting a value.
'This is one of the easiest things you can do with VB but
'its potential is great for user friendlyness.
'***************************
'Created and test in VB 6 by Andy P.
'***************************
'start a new standard project
'add a command button (command1)
'add a text box (text1)
'add a label (label1)
'add a progress bar (pgb1)
'add a timer (timer1)
'Then add this code to the form


Private Sub Command1_Click()
    Timer1.Enabled = True  'activates the timer
    maxNum = Text1.Text    
    pgb1.Max = maxNum      'Sets the max value of the progress bar
End Sub

Private Sub Form_Load()
   intnum = 0            'initializes the number at 0
   Timer1.Enabled = False  'deactives the timer until told otherwise
End Sub


Private Sub Timer1_Timer()
  If intnum < maxNum Then    'checks to see current count of text
    intnum = intnum + 1
    Label1.Caption = intnum & "  Of" & " " & maxNum
    pgb1.Value = intnum      'increases count on progress bar
  End If
End Sub

'then run it, it will no do anything until you enter
'a value into the text box and hit enter
'any questions/comments? email me