[sbh]

I need a good, fast working (if possible), Progress Bar Code for my Web Browser. I need it as fast as anyone can help and I don't care who helps me. Thank You to anyone willing to Help!!!!

[Jayman]

[rules][/rules]

[jjsaw5]

Give me give me give me,

can't anyone do anything for themselves?

[Locke]

I'm willing to HELP, not DO...

Refer to Jayman9's post for my continuation.

[Damage]

Quote

I don't care who helps me

What possible reasons could you have for discriminating against someone who's trying to help you??

[sbh]

Sorry Everyone I wasn't Trying to come off like that.

Private Sub Form1_ProgressChanged(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
On Error Resume Next
        If Progress = -1 Then ToolStripProgressBar1.Value = 100
        ToolStripStatusLabel1.Text = "Done"
        ToolStripProgressBar1.Visible = False
        ToolStripProgressBar1.Visible = True
        If Progress > 0 And ProgressMax > 0 Then
            ToolStripProgressBar1.Visible = True
            ToolStripProgressBar1.Visible = False
            ToolStripProgressBar1.Value = Progress * 100 / ProgressMax
            ToolStripStatusLabel1.Text = Int(Progress * 100 / ProgressMax) & "%"
        End If
 End Sub

No errors Just Does Not Work

[WayneSpangler]

1. Get rid of On Error Resume Next. You will never find your error. Use Try:Catch.
2. Get rid of the progressbar visible lines.

This post has been edited by WayneSpangler: 30 July 2008 - 02:28 PM

[Locke]

WayneSpangler, on 30 Jul, 2008 - 02:26 PM, said:

2. Get rid of the progressbar visible lines.

Definitely do that, you're just executing lines of code that are nullifying each other once the second one is executed.

[coder411]

You could also try this code, it's simple but works.

Private Sub Form1_ProgressChanged(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        If e.CurrentProgress < e.MaximumProgress Then
            If ToolStripProgressBar1.Value >= ToolStripProgressBar1.Maximum Then
                ToolStripProgressBar1.Value = ToolStripProgressBar1.Minimum
            Else
                ToolStripProgressBar1.PerformStep()
            End If
        Else
            ToolStripProgressBar1.Value = ToolStripProgressBar1.Minimum
        End If
    End Sub