Rubrik: HTML/Internet/Netzwerk · WebBrowser | VB-Versionen: VB4, VB5, VB6 | 17.03.04 |
Ladefortschritt im WebBrowser-Control Dieser Tipp zeigt, wie man den Ladefortschritt beim Laden einer Webseite im WebBrowser-Control im ProgressBar-Control anzeigen kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 17.014 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute zeigen wir Ihnen, wie man den Ladevorgang einer Webseite im WebBrowser-Control als Fortschrittsbalken anzeigen kann. Erstellen Sie ein neues Projekt und platzieren das WebBrowser-Control, sowie einen CommandButton und ein ProgressBar-Control auf die Form.
Beim Klick auf den CommandButton soll eine bestimmte Seite im Browser-Control angezeigt werden:
Private Sub Command1_Click() ' Webseite laden WebBrowser1.Navigate "http://www.vbarchiv.net" End Sub
Während das Ladens der Seite wird vom WebBrowser-Control das ProgressChange-Ereignis ausgelöst. Hier lässt sich der Fortschritt dann wie folgt im ProgressBar-Control anzeigen:
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, _ ByVal ProgressMax As Long) ' Fortschrittsanzeige With ProgressBar1 If ProgressMax < .Value Then .Value = 0 If ProgressMax > 0 Then .Max = ProgressMax If Progress > 0 And Progress <= .Max Then .Value = Progress End If End If End With End Sub