[2008] Progress Bar?

[Eilios]

I am trying to code a Web Browser so that when you try to surf the web, a Progress Bar starts up. This is what I tried,

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Bar
        WebBrowser1.Navigate(TextBox1.Text)
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        Bar = ProgressBar1.Value

        For x = 0 To 100
            ProgressBar1.PerformStep()
        Next
        If Bar = 100 Then
            Bar.Value = 0
        End If
    End Sub

But it doesn't work. Any suggestions?

[youngbucks]

Try:

Private Sub Browser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
                Me.ToolStripProgressBar1.Maximum = CInt(e.MaximumProgress)
                Me.ToolStripProgressBar1.Value = CInt(e.CurrentProgress)
    End Sub

[jmcilhinney]

You might like to follow the Tabbed Web Browser link in my signature for some help and ideas.

[Eilios]

Those didn't really help. Thank you for trying though, I really appreciate it.

[noahssite]

Which didnt help? What yougbucks said or what jmcilhinney said?

Since i am currently using the code that young bucks supplied...

[Eilios]

Fixed it. I just added this to my code.

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ToolStripProgressBar1.Value = 0
        Me.Text = WebBrowser1.DocumentTitle


    End Sub

[noahssite]

I dont think you need to set the value back to 0. When i used the code that youngbucks supplied it will set the progressbar back to 0 after the page is complete.