Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2014
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. 'create a variable for the calculated page load progress percentage value
  2. Dim progress As Double
  3. If stsprgPageLoadProgress.Value >= 100 Then
  4. 'set the value to minimum value which is equal to zero
  5. stsprgPageLoadProgress.Value = 0
  6. Else
  7.  
  8. 'calcualte progress based on how much of the page has been loaded so far
  9. If Not (e.MaximumProgress = 0) Then
  10. progress = (e.CurrentProgress / e.MaximumProgress) * 100
  11. 'set to display progress percentage value on progressbar
  12. stsprgPageLoadProgress.Value = progress
  13. End If
  14.  
  15. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement