Today I am going to make another simple tutorial about how to make a progress bar in VB6.
First you must include some components. Go to Project – Components – (in the list choose) Microsoft Windows Common Controls 5.0.
You will see this now:
Now double click on form1 and drag-and-drop a PrograssBar, a timer and a Button.
It will look something like this:
On form_load (simply double click on the form and you will be ready to write the code) wrote this line on code.
Private Sub Form_Load() ProgressBar1.Value = ProgressBar1.Min End Sub
It sets the value of the ProgressBar at min.
First set the interval of the timer:
Now double click on the timer and write this:
Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 10 If ProgressBar1.Value = 50 Then ProgressBar1.Value = ProgressBar1 + 50 If ProgressBar1.Value >= ProgressBar1.Max Then Timer1.Enabled = False End If End If End Sub
You probably understand this code. I wanted to make the progressbar faster from the middle of it.
Double click on the button (its name has been changed into “close”) and write:
Private Sub Command1_Click() End End Sub
It will close the program.