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. 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. Dieser Tipp wurde bereits 25.325 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |