ProgressBar



Purpose

Progress bars are used in a number of applications. They are easy to implement, and very useful to the user. This is a quick tutorial using the timer with the progress bar.

Samples

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

If you are wanting to add "Start", "Stop" and "reset" buttons, it can be done like this

Public Sub Form_Load()
   Command1.Caption = "Start"
   Command2.Caption = "Stop"
   Command3.Caption = "Reset"
End Sub
 
Public Sub Command1_Click()
   Timer1 = True
End Sub
 
Public Sub Command2_click()
Timer1 = False
End Sub
 
Public Sub Command3_click()
ProgressBar1.Value = 0
End Sub


Edited by: WhatIsSoftware

Retrieved from "http://www.jabaco.org/wiki/ProgressBar"

This page has been accessed 4,368 times. This page was last modified on 9 June 2012, at 13:22.


This page has been accessed 4,368 times. This page was last modified on 9 June 2012, at 13:22.