Support Forums

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…

Nice tutorial.

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

Nice tutorial. Keep the great work...

Newbies gonna learn alot Big Grin

Very nice tutorial. I'm learning from this. Smile

Thanks for sharing.

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

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

JesusOfSuburbia

daneasaur

TurB0

Rozzy

JesusOfSuburbia

//Pretext™