{"id":55000768,"date":"2011-04-01T00:00:00","date_gmt":"2020-05-22T22:02:11","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=768"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Access_2010_Das_WebbrowserSteuerelement","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Access_2010_Das_WebbrowserSteuerelement\/","title":{"rendered":"Access 2010: Das Webbrowser-Steuerelement"},"content":{"rendered":"

\"\"<\/p>\n

Mit Access 2010 baut Microsoft das Webbrowser-Steuerelement direkt in Access ein und vereinfacht damit einiges gegenüber der Verwendung des entsprechenden ActiveX-Steuerelements. Dieser Beitrag stellt die Möglichkeiten dieses neuen Steuerelements vor und zeigt die Unterschiede zum bisher verwendeten ActiveX-Steuerelement auf.<\/b><\/p>\n

Das Webbrowser-Steuerelement finden Sie nun neben den übrigen Steuerelementen im Ribbon unter Entwurf|Steuerelemente <\/b>(s. Bild 1).<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Einfügen des Webbrowser-Steuerelements<\/span><\/b><\/p>\n

Nach dem Einfügen und dem Wechsel in die Formularansicht zeigt das Steuerelement erwartungsgemäß noch keine Internetseite, sondern eine entsprechende Fehlermeldung an (s. Bild 2). Aber woher sollte es auch wissen, welche Internetadresse es anzeigen soll<\/p>\n

\"pic002.png\"<\/p>\n

Bild 2: Das Steuerelement in der Formularansicht – noch ohne Füllung<\/span><\/b><\/p>\n

Nun, das lässt sich ändern: Wir fügen einfach eine Tabelle namens tblWebseiten <\/b>zur Datenbank hinzu, die lediglich die beiden Felder WebseiteID <\/b>und Webseite <\/b>enthält.<\/p>\n

Tragen Sie einige Datensätze mit gültigen Internetadressen in diese Tabelle ein. Stellen Sie dann die Eigenschaft Datenherkunft <\/b>des Formulars mit dem Webbrowser-Steuerelement auf diese Tabelle ein und weisen Sie der Eigenschaft Steuerelementinhalt <\/b>des Webbrowser-Steuerelements den Namen des Tabellenfeldes Webseite zu.<\/p>\n

Wie Bild 3 zeigt, liefert das Webbrowser-Steuerelement nun die gewünschten Webinhalte. Und das ist die erste tolle Neuerung des in Access integrierten Webbrowser-Steuerelements: Es lässt sich an ein Feld einer Datenherkunft binden. Das heißt, Sie können in einem Formular immer gleich die Internetseite zu einem in einem Feld gespeicherten Link anzeigen. Dieses Formular finden Sie in der Beispieldatenbank unter dem Namen frmWebbrowser_Gebunden<\/b>.<\/p>\n

\"pic005.png\"<\/p>\n

Bild 4: Webbrowser-Steuerelement mit ungebundenem Textfeld zur Adresseingabe<\/span><\/b><\/p>\n

Ungebundene Anzeige von Webseiten<\/b><\/p>\n

Wenn Sie die Webseite ändern möchten, ohne das Webbrowser-Steuerelement an ein Feld einer Tabelle zu binden, sind ein paar zusätzliche Handgriffe nötig. In der Beispieldatenbank finden Sie ein fertiges Formular mit den folgenden Funktionen unter dem Namen frmWebbrowser_Ungebunden<\/b> (s. Bild 4). Das Formular besitzt keine Datenherkunft und das Webbrowser-Steuerelement ist dementsprechend nicht an ein Feld gebunden.<\/p>\n

\"pic003.png\"<\/p>\n

Bild 3: Ein an ein Feld der Datenherkunft gebundenes Webbrowser-Steuerelement<\/span><\/b><\/p>\n

Damit es trotzdem eine Internetseite anzeigt, würden wir seine Eigenschaft Value<\/b> nun im ersten Anlauf mit der gewünschten Internetadresse füttern. Die folgende Anweisung schlägt jedoch fehl:<\/p>\n

Forms!frmWebbrowser_Ungebunden.ctlWebbrowser.Value = "http:\/\/www.access-im-unternehmen.de"<\/pre>\n
Stattdessen müssen wir wie beim alten Webbrowser-ActiveX-Steuerelement vorgehen und zunächst eine Objektvariable mit dem Datentyp Webbrowser<\/b> deklarieren:<\/p>\n
Dim objWebbrowser As WebBrowser<\/pre>\n
Im Formularereignis Beim Laden <\/b>weisen wir diesem Objekt einen Verweis auf die Object<\/b>-Eigenschaft des Webbrowser-Steuerelements zu:<\/p>\n
Private Sub Form_Load()\r\n    Set objWebbrowser = Me!ctlWebbrowser.Object\r\nEnd Sub<\/pre>\n
Schließlich soll dieses eine Internetseite anzeigen. Dazu legen wir im Formular ein Textfeld namens txtWebseite <\/b>und für dieses eine Prozedur für die Ereigniseigenschaft Nach Aktualisierung <\/b>an:<\/p>\n
Private Sub txtWebseite_AfterUpdate()\r\n    objWebbrowser.Navigate2 Me!txtWebseite.Value\r\nEnd Sub<\/pre>\n
Wenn Sie nun in die Formularansicht wechseln, eine Internetseite in das Textfeld eintragen und die Eingabetaste betätigen, lädt das Webbrowser<\/b>-Steuerelement die Internetseite ohne Probleme.<\/p>\n
Nach diesem kleinen Ausflug begeben wir uns zurück zu den Möglichkeiten des reinen Access-Steuerelements – die Navigate2<\/b>-Methode war jedoch wichtig, weil sonst kein Laden von Seiten ohne URL in einem gebundenen Feld möglich ist.<\/p>\n
Fertig<\/b><\/p>\n
Beim automatischen Laden von Internetseiten interessiert uns in vielen Fällen der Zeitpunkt, wann das Webbrowser<\/b>-Steuerelement die Seite fertig geladen hat. Dies können wir wie früher mit dem soeben deklarierten Objekt objWebbrowser <\/b>erledigen, wobei wir dessen Deklaration um das Schlüsselwort WithEvents <\/b>erweitern müssen:<\/p>\n
Dim WithEvents objWebbrowser As WebBrowser<\/pre>\n
Danach können Sie über die beiden Kombinationsfelder oben im Klassenmodul des Formulars zuerst das Objekt objWebbrowser <\/b>und dann das Ereignis NavigateComplete2 <\/b>auswählen. Der VBA-Editor legt dann automatisch eine Ereignisprozedur an, die wie folgt aussieht:<\/p>\n
Private Sub ctlWebbrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)\r\n    MsgBox "Seite ''" & URL & "'' vollständig geladen"\r\nEnd Sub<\/pre>\n
Dies hat früher gereicht, um das vollständige Laden der angegebenen Seite zu registrieren. In Zeiten des Web 2.0 gelingt dies nicht mehr: Wenn Sie beispielsweise www.amazon.de <\/b>aufrufen, werden gleich noch eine Reihe Frames geladen – und die lösen fast alle das Ereignis DocumentComplete<\/b> aus. Welches also signalisiert mir, dass die eigentliche Seite geladen ist<\/p>\n
<\/p>\n
Die Lösung ist einfach: Der Parameter pDisp <\/b>entspricht jeweils einem Zeiger auf das IDispatch<\/b>-Interface des Fensters oder Frames, in dem sich die geladene Seite befindet.<\/p>\n
Es liefert also einen Verweis auf das Webbrowser<\/b>-Objekt, wenn es sich um die Hauptseite handelt, oder einen Verweis auf das Frame-Objekt der Hauptseite (oder einer untergeordneten Seite), das die geladene Seite enthält.<\/p>\n
Die für uns wichtige Erkenntnis ist: Wenn pDisp <\/b>in DocumentComplete <\/b>gleich dem Webbrowser<\/b>-Objekt ist, wurde gerade das Laden der Hauptseite beendet. Die folgende Prozedur gibt eine Meldung aus, wenn die richtige Seite fertig geladen wurde:<\/p>\n
Private Sub ctlWebbrowser_DocumentComplete(ByVal _\r\n    pDisp As Object, URL As Variant)\r\n    If objWebbrowser Is pDisp Then\r\n        MsgBox "Seite ''" & URL & "'' geladen."\r\n    End If\r\nEnd Sub<\/pre>\n
URL auslesen<\/p>\n
Auch wenn die angezeigte Internetadresse bekannt sein sollte, bietet die Eigenschaft LocationURL <\/b>die Möglichkeit, die aktuelle URL auszulesen. Die obige Prozedur können Sie somit auch wie folgt gestalten:<\/p>\n
Private Sub ctlWebbrowser_DocumentComplete( _\r\n        ByVal pDisp As Object, URL As Variant)\r\n    If objWebbrowser Is pDisp Then\r\n        MsgBox "Seite ''" & Me.ctlWebbrowser.LocationURL & "'' geladen."\r\n    End If\r\nEnd Sub<\/pre>\n
Ereignisse des Webbrowser-Steuerelements<\/b><\/p>\n
Das Steuerelement besitzt noch drei weitere Ereigniseigenschaften:<\/p>\n