Dim Progress As Integer = e.CurrentProgress Dim ProgressMax As Integer = e.MaximumProgress Dim Pourcent As Short If ProgressMax <> 0 Then On Error Resume Next ProgressBar.Maximum = ProgressMax If Not Progress < 0 Then ProgressBar.Value = Progress End If Pourcent = Fix((Progress / ProgressMax) * 100) If Pourcent > 100 Then Pourcent = 100 End If Else ProgressBar.Value = 0 End If
WebBrowser1.ScriptErrorsSuppressed = True
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question