[TuT] How To Make A Progress bar in VB6 [TuT]

[JesusOfSuburbia]

Hi SupportForums,

Today I want to show you a 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.

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:

Code:

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:

Code:

Private Sub Command1_Click()
End
End Sub

It will close the program.

By JeusOfSuburbia

Enjoy…

[daneasaur]

Nice tutorial.

Spelling errors
Now double click on form1 and drag-and-drop a PrograssBar, a timer and a Button.

[TurB0]

Nice tutorial. Keep the great work...

Newbies gonna learn alot

[Rozzy]

Very nice tutorial. I'm learning from this.

Thanks for sharing.

[JesusOfSuburbia]

thank's guys. I have wrote this for all newbies that want learn!

[//Pretext™]

Thanks for this, i will be using this later today,
Bookmarked.