Site Statistics

Total Members: 520
Total Tutorials: 242
Newsest User: 8884244477
Todays Unique Hits: 779

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:

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):

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.