ProgressBar in VB6

[MathX]

Hi all!

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.

By MathX

Enjoy…

[Jordan]

Very neat. This can be used to create a "splash" screen.

[Egz0N]

nice tutorial dude

[mendim.]

Nice tutorial . +rep .

[MathX]

Thank u all!!!

[Turk4n]

This is something I must try


EDIT - Love you, enjoy rep+

[WingedPanther]

Nice. I'd +rep you, but I can't.

[amrosama]

nice elban
rep to my riend

[mendim.]

i can +rep u now .. i think this +rep is gonna make you a GURU ..
Best wishes my friend ..

[Datasoft]

Hi
Can anyone help me, how to get the Progressbar follow a movieclip, so the Progressbar ends the same time as the movie?
Thank you.