ProgressBar question

Hello, I'm new to VB and I'm making my first Application.
I want my ProgressBar to start loading when MessageBoxButton.OK is pressed.
This is my code:

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("My Text", "My Title", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False)
        If AcceptButton Then
            ProgressBar1.Start()
        End If

    End Sub

---

This is the part I'm having problems with.

Code:

---

If AcceptButton Then
    ProgressBar1.Start()

---

Also, I'd like the ProgressBar1 to finish after a certain time after it started. How do I do that?

you move the progressbar by using ProgressBar1.Value, this has to be between the min and max levels.

If the progressbar is timer based setup a timer or a stopwatch on the form and use that to set the value (having setup already the max and min values)

For example, I want my progress bar to start when OK Button from a MsgTextbox and load up to 100% in 5 minutes, which would be the code?

post removed as explained reason why in following post...

Quote:

---

Originally Posted by hotlip1

For example, I want my progress bar to start when OK Button from a MsgTextbox and load up to 100% in 5 minutes, which would be the code?

---

We'll explain the steps you need to take and allow you to figure it out on your own. This method will allow you to learn better.

If you don't understand, then post the code you've tried and we'll help figure it out.

First, forget about the MessageBox. Figure out how the ProgressBar works and then move on to implementing it with the MessageBox. The MessageBox will be the easiest part.

There are few things you need to know about the ProgressBar. You'll need to use Timer with what you're wanting. You'll need to set the timer's interval to a specific time so that it ticks when you want. I imagine you'll probably want it to tick every second. So, in the properties pane, set the Timer's Interval property to 1000, which is one second. You'll need to set the Enabled property of the Timer to True as it is False by default.

Then you'll need to set the Minimum and Maximum vale of the ProgressBar. You'll also need to set the Step property, which controls how much the ProgressBar increases when you call PerformStep. You can do this in the Properties pane or in code like this:

vb Code:

ProgressBar1.Maximum = 300
ProgressBar1.Minimum = 0
ProgressBar1.Step = 1

Since you want the ProgressBar to finish after 5 minutes, I set the maximum property to 300. The timer will tick every second and after 300 seconds, we'll know that 5 minutes has elapsed.

You can set all of this code in the Form's Load event.

Now all you'll need to do is call ProgressBar1.PerformStep in the Timer's Tick Event.

After you get this working, we'll show you how to do it when the MessageBox's "OK" button has been pressed.

oh yeah forgot about ProgressBar1.PerformStep better than ProgressBar1.value += 1

THAAANKS! I got it to work!
This is my code:

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("", " ", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.PerformStep()
    End Sub
End Class

---

EDIT: I guessNow I have to do something like

Code:

---

If MessageBoxButton.OK Then
  <Somethingto start the clock>
End If

---

Correct you need Timer1.Enabled = True but you also need to ensure the progressbar1 properties mentioned by weirddemon are setup i.e. min max and step, this could be either in the form load event or you could use the button click

Quote:

---

Originally Posted by Megalith

Correct you need Timer1.Enabled = True but you also need to ensure the progressbar1 properties mentioned by weirddemon are setup i.e. min max and step, this could be either in the form load event or you could use the button click

---

Yep, already set that.
And were thoes the code to start the timer go?

Is this ok?

Code:

---

If MessageBoxButton.OK Then
  Timer1.Enabled
End If

---

After you enable the Timer, you need to start it.

Quote:

---

Originally Posted by weirddemon

After you enable the Timer, you need to start it.

---

Can I just set Enabled as true in its properties then do Timer1.Start()?

Also, I get MessageBoxButton.OK is not declared.
How should I refer to it?

They are equivalent. Timer.Start and Timer.Enabled = True do the same thing.

http://msdn.microsoft.com/en-us/libr...rs(VS.71).aspx

http://msdn.microsoft.com/en-us/libr...essagebox.aspx

Alright, I got it to work.

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("", " ", MessageBoxButtons.OKCancel, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False)
        If MessageBoxButtons.OKCanel Then
            Timer1.Start()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.PerformStep()
    End Sub

End Class

---

The only problem is that if I press cancel, the ProgressBar starts loading too.
I got to replace MessageBoxButtoms.OKCancel (highlighted it in my code), I know. But with what?

The link I posted shows how to use the messagebox.

Quote:

---

Originally Posted by dbasnett

The link I posted shows how to use the messagebox.

---

Still, I don't know how to call the OK buttom from the msgbox.

from the link i posted

Code:

---

        Dim Result As DialogResult

        'Displays the MessageBox

        Result = MessageBox.Show(Message, Caption, Buttons)

        ' Gets the result of the MessageBox display.  Maybe one for OK????????????

        If Result = System.Windows.Forms.DialogResult.Yes Then

---

Here how I do it:

vb Code:

If MessageBox.Show("TEST", "CAPTION", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) = Windows.Forms.DialogResult.OK Then
            Label2.Text = "OK"
        Else
            Label2.Text = "NOT OK"
 
        End If

DONE! THANKS TO EVERYBODY WHO HELPED ME.!
My code:

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("", " ", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
        If System.Windows.Forms.DialogResult.OK Then
            Timer1.Start()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.PerformStep()
    End Sub
End Class

---

nice solution :)

This "If System.Windows.Forms.DialogResult.OK Then" tells me that you do not have Option Strict On, not to mention there is not a comparison. It will always evaluate to true, regardless of which button you click.

It should look something like this:

Code:

---

        Dim dRslt As DialogResult
        dRslt = MessageBox.Show("OK or Cancel", "Test", MessageBoxButtons.OKCancel)
        If dRslt = Windows.Forms.DialogResult.OK Then
            'ok
        Else
            'cancel
        End If

---

bleh no, false, i didn't fix it omg.

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("", " ", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
        If System.Windows.Forms.DialogResult.Yes Then
            Timer1.Start()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.PerformStep()
    End Sub
End Class

---

Doesn't matter if I press Yes or No, the ProgressBar will start, although in my code it says only if DialogResult.Yes

That is what I said. As mentioned before, go here http://msdn.microsoft.com/en-us/libr...essagebox.aspx
and look for
"The following code example shows how to ask the user a yes or no question and make a decision based on the response."

Then what's wrong here?:

Code:

---

MessageBox.Show("", " ", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            Dim Result As DialogResult
            If Result = System.Windows.Forms.DialogResult.Yes Then
                Timer1.Start()
            End If

---

Quote:

---

Originally Posted by hotlip1

Then what's wrong here?:

Code:

---

MessageBox.Show("", " ", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            Dim Result As DialogResult
            If Result = System.Windows.Forms.DialogResult.Yes Then
                Timer1.Start()
            End If

---

---

Compare that to this http://www.vbforums.com/showpost.php...9&postcount=22

Lol, sorry didn't read that post before :P

Now it worked, finally, without issues.
I've learned alot today! THANKS!

1 more thing:
I want to block a button after a desired time, and that after I reopen the application it is still blocked. How do I do that?

similar but you are looking at button1.disable, you should know where to place this now, only issue is counting the ticks but you could use progressbar1.value to get the elapsed seconds ;)