Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'create a variable for the calculated page load progress percentage value
- Dim progress As Double
- If stsprgPageLoadProgress.Value >= 100 Then
- 'set the value to minimum value which is equal to zero
- stsprgPageLoadProgress.Value = 0
- Else
- 'calcualte progress based on how much of the page has been loaded so far
- If Not (e.MaximumProgress = 0) Then
- progress = (e.CurrentProgress / e.MaximumProgress) * 100
- 'set to display progress percentage value on progressbar
- stsprgPageLoadProgress.Value = progress
- End If
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement