vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: HTML/Internet/Netzwerk · WebBrowser   |   VB-Versionen: VB4, VB5, VB604.03.04
Feststellen, wann eine Webseite vollständig geladen ist

Hier wird gezeigt, wie man richtig überprüft, ob ein Dokument im WebBrowser-Control vollständig geladen ist (inkl. Frames)

Autor:   Ralf SchoenBewertung:  Views:  22.780 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Wenn man das WebBrowser-Control in seiner Anwendung einsetzt, steht man oftmals vor dem Problem, in Erfahrung zu bringen, wann die Seite vollständig geladen ist. Für diesen Zweck stellt uns das WebBrowser-Control zwar das DocumentComplete-Ereignis zur Verfügung, doch wird dieses leider mehrfach ausgelöst, wenn die anzuzeigende Seite aus Frames besteht. Besteht eine Seite bspw. aus 4 Frames wird das DocumentComplete-Ereignis insgesamt 4 mal ausgelöst.

Nachfolgend zeigen wir, wie man dennoch herausfindet, wann eine Seite vollständig geladen wurde - egal, ob mit Frames oder ohne.

Erstellen Sie ein neues Projekt und platzieren auf die Form ein WebBrowser-Control, sowie ein Label-Control und einen CommandButton.
Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

Option Explicit
 
Private Sub Form_Load()
  Label1.Caption = "keine Seite"
End Sub
Private Sub Command1_Click()
  ' Seite laden
  Label1.Caption = "Loading..."
  WebBrowser1.Navigate "http://msdn.microsoft.com/library"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  ' Prüfen, ob Seite vollständig geladen ist
  If (pDisp Is WebBrowser1.Object) Then
    Label1.Caption = "Dokument komplett geladen."
  Else
    Debug.Print "Loading..."
  End If
End Sub

Starten Sie das Projekt und klicken auf den CommandButton. Nach und nach wird die Microsoft-Seite aufgebaut. Achten Sie einmal auf das Direktfenster. Dort können Sie sehen, dass das DocumentComplete-Ereignis mehrfach ausgelöst wurde. Frames sei Dank! Das Label-Control hingegen ändert sich erst, wenn die Seite wirklich vollständig geladen wurde.
 



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.