[Solved] Progress Bar Help

Progress Bar Help

if i enter these code

If TextBox1.Text = "" Then MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password is missing")
If TextBox3.Text = "" Then
MsgBox("Sequrity Answer is Missing")

and i dont want the progress bar to laod till all the info are filled out how do i make it stop loading and make it load when its filled out

Originally Posted by iSmexy

if i enter these code

If TextBox1.Text = "" Then MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password is missing")
If TextBox3.Text = "" Then
MsgBox("Sequrity Answer is Missing")

and i dont want the progress bar to laod till all the info are filled out how do i make it stop loading and make it load when its filled out

Add the progress bar.
Set the max value to: 3 (Or how many options you are to check)

Then in the code you just do:
ProgressBar1.Increase(1) OR ProgressBar1.Value += 1
And if wrong: ProgressBar1.Value -= 1

Code:

If TextBox1.Text = "" Then 
MsgBox("Username Is Missing")
ProgressBar1.Value -= 1
Else
ProgressBar1.Increase(1)
End If

And no, I can't say it will work 100% (The code :P)

Originally Posted by Jorndel

Add the progress bar.
Set the max value to: 3 (Or how many options you are to check)

Then in the code you just do:
ProgressBar1.Increase(1) OR ProgressBar1.Value += 1
And if wrong: ProgressBar1.Value -= 1

Code:

If TextBox1.Text = "" Then 
MsgBox("Username Is Missing")
ProgressBar1.Value -= 1
Else
ProgressBar1.Increase(1)
End If

And no, I can't say it will work 100% (The code :P)

thanks i will try 2marrow

If TextBox1.Text = "" Then MsgBox("Username Is Missing") : Exit Sub
If TextBox2.Text = "" Then MsgBox("Password is missing") : Exit Sub
If TextBox3.Text = "" Then MsgBox("Sequrity Answer is Missing") : Exit Sub

This will stop executing the function when any of the textboxes is empty.

Originally Posted by Blubb1337

If TextBox1.Text = "" Then MsgBox("Username Is Missing") : Exit Sub
If TextBox2.Text = "" Then MsgBox("Password is missing") : Exit Sub
If TextBox3.Text = "" Then MsgBox("Sequrity Answer is Missing") : Exit Sub

This will stop executing the function when any of the textboxes is empty.

Better still, just write a validation function where you can dump all the necessary validation routines.

Originally Posted by Blubb1337

If TextBox1.Text = "" Then MsgBox("Username Is Missing") : Exit Sub
If TextBox2.Text = "" Then MsgBox("Password is missing") : Exit Sub
If TextBox3.Text = "" Then MsgBox("Sequrity Answer is Missing") : Exit Sub

This will stop executing the function when any of the textboxes is empty.

that works thanks ;D[COLOR="Silver"]

---------- Post added at 01:10 PM ---------- Previous post was at 01:10 PM ----------

@Jorndel that code didnt work but i fixed it

If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
ProgressBar1.Value = 0
Else
ProgressBar1.Increment(1)
End If
If TextBox2.Text = "" Then
MsgBox("password Is Missing")
ProgressBar1.Value = 0
Else
ProgressBar1.Increment(1)
timer1.start()

Marked Solved. No more posting unless necessary.

Originally Posted by combat_arms_981

Correct sources are:

ProgressBar1.Value += 1

ProgressBar1.Value = ProgressBar1.Value + 1

i dont need it now i already have my answer @Hassan close this

Closed on Request !

SolvedProgress Bar Help

Similar Threads

Tags for this Thread