Webbrowser 1.0

[eeyk]

ik maak een webbrowser alles werkt allen Statusbar1 Werkt niet je kan niet zien hoe ver die is met het laden van een pagina kan iemand helpen


Webbrowser1
Statusbar1

zo heten ze

 

[eeyk]

ik heb het probleem all opgelost met dit effen in elkaar Geknutselt

geen Statusbar1 meer maar progressbar1

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
ProgressBar1.Value = ProgressBar1.Value + 1
StatusBar1.Panels(1).Text = "Loading " & progressbar1.value & "%"
If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
ProgressBar1.Value = 100
StatusBar1.Panels(1).Text = "Loading 100%"
End If

If ProgressBar1.Value = 101 Then
ProgressBar1.Value = 1
End If


If ProgressBar1.Value = 99 Then
ProgressBar1.Value = 1
End If