Add a progresbar to your web browser

Ok, first add a progressbar. you may have to go to components and select "Microsoft windows common controls 6.0" Make a label also. also add a picturebox.

now add this code:

VISUALBASIC Code

Private Sub webbrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
    If Progress = -1 Then ProgressBar1.Value = 100
        Label1.Caption = "Done"
        ProgressBar1.Visible = False
        Image1.Visible = True
    If Progress > 0 And ProgressMax > 0 Then
        ProgressBar1.Visible = True
        Image1.Visible = False
        ProgressBar1.Value = Progress * 100 / ProgressMax
        Label2.Caption = Int(Progress * 100 / ProgressMax) & "%"
    End If
    Exit Sub
End Sub

Now you have a progressbar!

now if you want it to scroll with the browser at the bottum, i added this code (mine were at the bottum left):

VISUALBASIC Code

Private Sub Timer2_Timer()
ProgressBar1.Top = Form1.ScaleHeight - 255
Label1.Top = Form1.ScaleHeight - 255
End Sub

1st you must make a timer called timer2, enable it, and give it a low interval from about 1-100.

Note: you may have to replace "255" according to your program.

Author:

zar

Views:

2,568

Rating:

Posted on Saturday 29^th December 2007 at 01:40 PM

Dalez

It doesn't work :(

Posted on Tuesday 4^th December 2007 at 05:28 PM

Dean

yeh this is stolen ive seenon another website also

Posted on Monday 3^rd December 2007 at 09:58 PM

zar

LIES! :)

actually i looked at like 3 tutorials on this and fixed it up better.

Posted on Monday 3^rd December 2007 at 04:16 PM

darklight19
darklight19's Avatar

This code was stolen, I've seen it somewhere...