<\/p>\n
Die Handhabung von Bildern in Formularen war und ist ein Dauerbrennerthema in vielen Foren. Das genuine Bildsteuerelement von Access weist auch in der zeitweilig modernisierten Version etliche Beschränkungen auf. Das Anlage-Steuerelement ist zwar pfiffig, aber dessen Programmierung fällt reichlich umständlich aus. Doch zu unserem Favoriten haben wir schon früher einmal ein alternatives Steuerelement auserkoren: das Webbrowser Control.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1702_BildWeb.zip<\/b>.<\/p>\nDas Webbrowser Control als Universalcontainer<\/h2>\n
In der Ausgabe 04\/2016 <\/b>von Access Basics<\/b>, Elemente für die Bildanzeige<\/b>, verglichen wir die möglichen Methoden, um Bilder in Formularen und Berichten zur Anzeige zu bringen. Neben dem Bildsteuerelement<\/b>, dem Anlage<\/b>-Steuerelement, einer zweckentfremdeten Schaltfläche<\/b> und dem MSForms Image Control<\/b> kam dort auch ein Webbrowser-Steuerelement <\/b>zum Einsatz. Es stellte sich heraus, dass Letzteres sich sowohl qualitativ, wie auch von der Programmierung her, sehr gut für diesen Zweck eignet. <\/p>\n
Tatsächlich ist das Webbrowser Control <\/b>als Host für den Internet Explorer<\/b> eine Universalwaffe! Überall da, wo der Fundus von Access-Steuerelementen versagt, lässt sich über den Webbrowser fast alles realisieren. Schließlich gibt es ja inzwischen sehr komplexe Applikationen, die rein webbasiert arbeiten; und dorthin geht ohnehin der Trend. Liebäugeln Sie also eh schon mit der Portierung Ihrer Datenbank zu einer Weblösung, so ist der integrierte Webbrowser unter Access ein nützlicher Anfang, um sich mit Webprogrammierung vertraut zu machen.<\/p>\n
Der Vorteil des Webbrowser Controls<\/b> ist, dass es den gewaltigen Umfang der HTML-Bibliothek<\/b> von Windows offenlegt. Über diese können Webseiten programmatisch nicht nur über HTML gesteuert werden, sondern auch über Objekte und deren Eigenschaften, sowie Methoden. Praktisch jedes HTML-Tag<\/b> (Element) hat ein Pendant als Objektklasse in der HTML-Bibliothek von Microsoft. Über weitere Hilfsbibliotheken, auf die Sie verweisen können, wie die Microsoft XML Library<\/b> oder die Shell<\/b>-Bibliothek, haben Sie schließlich den Internet Explorer <\/b>vollständig im Griff.<\/p>\nWebbrowser vs. Anlagesteuerelement<\/h2>\n
Das Anlagesteuerelement scheint alle Lösungen zur Bildanzeige dadurch auszustechen, dass es die Bilddaten binär aus einer Tabelle mit Anlagefeld hervorholen kann. Mit seinem Popup-Toolbar ist es zudem ohne jeglichen Programmcode möglich, Bilddateien zu laden und direkt im gebundenen Feld zu speichern. <\/p>\n
Ein Bild im Webbrowser hingegen verlangt nach einer URL<\/b>, die den Pfad zur Datei enthalten muss. Ein Abspeichern der Bilddatei selbst in einem Tabellenfeld scheint damit verwehrt. Bestenfalls könnte man die Datei binär in ein OLE-Feld <\/b>laden, um dieses später wieder als temporäre Datei zu exportieren und deren Pfad als URL<\/b> dem Webbrowser Control zu übergeben.<\/p>\n
Tatsächlich jedoch gibt es eine Lösung, die diesen Umweg obsolet macht. Das Formular frmBilder<\/b> der Beispieldatenbank zeigt, wie auf diese temporäre Datei über eine spezielle Kodierung der Bilddaten verzichtet werden kann. Damit steht diese Lösung dem Anlagesteuerelement in nichts nach. Sie erfordert lediglich einige überschaubare VBA-Routinen.<\/p>\nBildtabelle<\/h2>\n
Die Tabelle zur Speicherung sowohl des Bildpfads, wie auch der Binärdaten, nennt sich tblBilder<\/b> und zeigt sich in der Datenblattansicht wie in Bild 1. Das Feld Datei<\/b> nimmt den vollen Pfad der Bilddatei auf. BildName<\/b> dient zur optionalen Angabe einer Bezeichnung des Bilds und ist im Entwurf der Tabelle auf den Text Bild<\/b> voreingestellt. Schließlich sollen die Binärdaten des Bilds im Feld Binaer<\/b> aufgenommen werden, das hier aber nicht, wie eher üblich, als OLE-Feld<\/b> daherkommt, sondern als Memo<\/b>-Feld.<\/p>\n
Bild 1: Die Tabelle tblBilder enthält zunächst nur die Pfade zu den Bilddateien im Feld Datei und einen Default-Namen<\/p>\n Den Grund erfahren Sie später. Der Entwurf der Tabelle ergibt sich damit gemäß Bild 2. Der Autowert ID<\/b> als Primärschlüssel vervollständigt die Tabelle. <\/p>\n Bild 2: Entwurfsansicht der Tabelle tblBilder<\/p>\n Die angezeigten Datensätze kommen übrigens beim Aufruf des Intro<\/b>-Formulars zustande. Hier ist eine kleine Routine UpdatePics<\/b> hinterlegt, die alle Bilddateien, die sich im Datenbankpfad befinden, enumeriert und in der Tabelle ablegt. Bei Ihnen wird der Inhalt der Tabelle deshalb wohl anders aussehen.<\/p>\n Die Tabelle stellt die Basis für das Formular frmBilder<\/b> dar, wobei dort das Webbrowser-Steuerelement an das Feld Datei<\/b> gebunden ist. Damit zeigt es die Bilder auch schon ordnungsgemäß an, falls die Pfadangaben stimmen. Gleichzeitig kodiert eine Prozedur die Bilddaten und speichert sie im Feld Binaer<\/b> (siehe Bild 3). Bei erneutem Aufruf des Datensatzes im Formular schaut der Code im Ereignis Beim Anzeigen<\/b> (Form_Current<\/b>) nach, ob das Feld Binaer<\/b> leer ist. Da das nun nicht mehr der Fall ist, verwendet es die Daten des Memo-Felds zur Bildanzeige, ohne eine Datei lesen zu müssen. Soweit der Überblick! Schauen wir uns das im folgend im Detail an…<\/p>\n Bild 3: Das Memo-Feld Binaer füllt sich später beim Aufruf eines Bilds im Webbrowser des Formulars frmBilder<\/p>\n Der Entwurf des Formulars frmBilder<\/b> (siehe Bild 4) ist so schlicht, wie die zugrundeliegende Tabelle. Die Textfelder oben im Formularkopf sind an die entsprechenden Tabellenfelder BildName<\/b> für die Bezeichnung und Datei<\/b> für den Pfad zur Bilddatei gebunden. Über den blauen Button cmdLoad<\/b> kann ein Dateiauswahldialog geöffnet werden, um ein Bild aus dem Dateisystem laden zu können. Das rote Label mit der Beschriftung Binär<\/b> ist auf Unsichtbar gestellt und wird erst per Code zum Vorschein gebracht.<\/p>\n Bild 4: Das Webbrowser-Control in der Mitte des Formularentwurf von frmBilder<\/p>\n Im Detailbereich des Formulars befindet sich in voller Ausdehnung nur das Webbrowser-Steuerelement ctlWeb<\/b>. Seine Verankerung ist auf Quer und nach unten dehnen<\/b> eingestellt, damit es alle Größenänderungen des veränderbaren Formularrahmens mitmacht. Links oben steht in ihm auch schon der Steuerelementinhalt, der jedoch nicht den Namen des Tabellenfelds anzeigt, sondern den Ausdruck =“about:blank“<\/b>.<\/p>\n Tatsächlich ist das Control nicht wirklich an die Tabelle gebunden, sondern nur indirekt über den VBA-Code des Formulars. Denn das Webbrowser-Steuerelement von Access muss<\/b> nicht zwingend an ein Feld gebunden sein. Sie können auch eine feste URL<\/b> im Eigenschaftenblatt unter Steuerelementinhalt<\/b> eintragen, die dann standardmäßig angezeigt wird. Mit dem vorliegenden Eintrag erhalten Sie immer eine leere Seite.<\/p>\n Im Fußbereich des Formulars gibt es einige zusätzliche Elemente, die Einfluss auf die Anzeige des Bilds haben. Ist das Kontrollkästchen Originalgröße<\/b> aktiviert, so wird das Bild in seiner vollen Ausdehnung gerendert. Andernfalls passt es sich, je nach Breite oder Höhe, genau in die Fläche des Webbrowser Controls ein. Die fünf Schaltflächen daneben demonstrieren, dass sich über das HTML-Objektmodell<\/b> auch auf sehr einfache Weise Bildeffekte erzielen lassen. Hier können Sie das Bild horizontal oder vertikal spiegeln, sowie im oder gegen den Uhrzeigersinn um 90° drehen.<\/p>\n Der Undo<\/b>-Button macht solche Änderungen rückgängig. In Bild 5 sehen Sie ein geladenes Beispielbild. Hier hat das Control das Bild aus dem Dateipfad eingelesen. Im Hintergrund aber wurden dessen Daten, wie erwähnt, in die Tabelle geschrieben.<\/p>\n Bild 5: So präsentiert sich das Formular frmBilder dann zur Laufzeit<\/p>\n So kommt es bei erneutem Aufruf des Datensatzes zur Darstellung in Bild 6: Das Binär<\/b>-Label oben wird eingeblendet und zusätzlich gibt rechts unten ein weiteres Label Auskunft über den Speicherbedarf des Bilds im Memo-Feld der Tabelle. Da es sich im Beispiel um ein Bitmap-Format handelt, im Textfeld Bilddatei<\/b> zu erkennen, ist dieser ziemlich hoch.<\/p>\n Bild 6: Ist ein Bild bereits eingelesen, so zeigt sich das Label Binär oben rechts<\/p>\n Bei Linksklick auf das Bild erscheint eine Meldung, die direkt die aktuell im Webbrowser Control hinterlegte URL<\/b> ausgibt. Bei aus dem Dateisystem geladenem Bild ergibt sich dabei etwa die Meldung in Bild 7. Hier hat der Internet Explorer<\/b> den Pfad in das file<\/b>-Protokoll umgewandelt und die Backslashes<\/b> automatisch in Slashes <\/b>umgewandelt.<\/p>\n Bild 7: Info-Meldung beim Klick auf das Bild<\/p>\n Kommt das Bild hingegen binär aus der Tabelle, so zeigt die Meldung, wie in Bild 8, deren Memo-Text ausschnittsweise an. Dafür kommt keineswegs anderer Code zum Einsatz. Tatsächlich handelt es sich bei dem langen String unmittelbar um die Source-URL<\/b> des Browsers!<\/p>\n Bild 8: Info-Meldung bei binärem Inhalt des Bilds<\/p>\n Bei Rechtsklick auf das Bild erscheint ein Kontextmenü, wie sonst im Internet Explorer<\/b> auch (siehe Bild 9). Leider hat man auf dessen Einträge ohne größere Umstände keinen Einfluss. Man kann es allerdings mit wenig Code auch deaktivieren, wie wir noch sehen werden. Wir haben dies zunächst nicht getan, weil damit deutlich wird, welche Möglichkeiten das Webbrowser Control zur Verfügung stellt. So etwa lässt sich das Bild, egal, ob als Datei oder binär geladen, als Datei abspeichern, über den E-Mail-Client versenden oder ausdrucken.<\/p>\n Bild 9: Das Kontextmenü des Webbrowser-Bilds<\/p>\n Beim Speichern hat man die Wahl zwischen mehreren Dateiformaten, wie Bild 10 zeigt. Dabei scheint es keine Rolle zu spielen, welches Ursprungsformat das Bild hat. Auch bei JPG<\/b> werden beim Abspeichern nur PNG<\/b> und BMP<\/b> angeboten.<\/p>\n Bild 10: Beim Export des Bilds in eine Datei stellt der Webbrowser diese zwei Dateiformate zur Verfügung<\/p>\n Auch ein Kopieren des Bilds in die Zwischenablage ist möglich, so dass es danach etwa in Word<\/b> wieder eingefügt werden kann. Allerdings kopiert das Control gleich mehrere Formate in die Zwischenablage, wie etwa neben dem Bitmap auch den Quelltext des Browsers. Beim Einfügen in Word etwa müssen Sie die Funktion Einfügen | Inhalte einfügen…<\/b> im Start<\/b>-Tab des Ribbon bemühen, was den Dialog in Bild 11 auf den Plan ruft. Hier ist HTML<\/b> voreingestellt. Sie müssen stattdessen den Eintrag Geräteunabhängige Bitmap<\/b> auswählen, um das Bild in ein Dokument zu bekommen.<\/p>\n Bild 11: Einfügen des kopierten Bilds in MS Word<\/p>\n Am Störendsten sind im Kontextmenü sicherlich die Einträge weiter unten, die einen Anwender, der gar nicht weiß, dass er einen Browser für die Bildanzeige vor sich hat, verwirren. Deshalb wäre ein Abschalten des Kontextmenüs ratsam. Denn alle darin enthaltenen Anweisungen lassen sich gegebenenfalls auch recht einfach per Code über das Objektmodell des Browsers auslösen. Mit einigen Klimmzügen ließe sich das Kontextmenü sogar durch ein eigenes in der Datenbank angelegtes ersetzen. Da Microsoft leider seit mehreren Versionen keinen Editor für solche Menüs mehr in Access einbaut und deren Anlage deshalb rein programmtechnisch erfolgen muss, lassen wir diese Möglichkeit hier außen vor.<\/p>\n Gehen wir Schritt für Schritt vor. Schalten Sie im Formular auf einen neuen Datensatz. Die Bildfläche bleibt weiß. Über den Button für den Dateiauswahldialog (cmdLoad<\/b>) öffnen Sie eine Bilddatei. Der dem Click<\/b>-Ereignis hinterlegte Code steht in Listing 1 und verwendet das FileDialog<\/b>-Objekt von Access oder, genauer, der Office-Bibliothek.<\/p>\n Listing 1: Beim Laden einer Bilddatei über den Button cmdLoad spielt sich diese Prozedur ab (erster Teil)<\/p>\n Hier wird zunächst die Objektvariable ODlg<\/b> auf das von Access zur Verfügung gestellte FileDialog<\/b>-Objekt gesetzt, wobei gleich der Dateiauswahlmodus über die Konstante msoFileDialogPicker<\/b> angefordert wird. Im folgenden With<\/b>-Block werden nun einige Einstellungen für den Dialog vorgenommen. Mehrfachauswahl etwa ist untersagt (AllowMultiSelect<\/b>), die Ansicht wird auf Details gesetzt (InitialView<\/b>), der Baum navigiert zum Datenbankverzeichnis (InitialFileName<\/b>) und die erlaubten Dateiendungen sind auf einige Bildformate beschränkt, mit denen der Internet Explorer klarkommt (Filters<\/b>). Die Methode Show<\/b> zeigt dann den Dialog erst an. Da der Dialog modal ist, hält der Code an dieser Stelle an. Hat der Anwender eine Datei ausgewählt, so quittiert die Funktion dies mit der Rückgabe True<\/b>, wonach die Variable sFile<\/b> mit dem ersten und einzigen Element der SelectedItems<\/b>-Auflistung bestückt wird. Andernfalls ist die Länge des Strings in sFile<\/b> gleich 0 und die Prozedur wird verlassen.<\/p>\n Weiter wird nun der Dateipfad in das Textfeld txtDatei<\/b> des Formulars geschrieben. Die Dateiendung wird über einen Ausdruck mithilfe der Mid<\/b>– und InstrRev<\/b>-Funktionen ermittelt und in die Variable sExt<\/b> gespeichert. Soweit die Vorarbeiten. Für das Verständnis der restlichen Zeilen der Routine, die im Listing ausgelassen wurden, müssen erst die Vorgänge beim Laden und Anzeigen des Formulars näher beleuchtet werden.<\/p>\n In Form_Load steht nur eine Zeile:<\/p>\n Das Webbrowser-Steuerelement hat im Formular den Namen ctlWeb<\/b>. Seine Object<\/b>-Eigenschaft gibt den eigentlichen Webbrowser zurück, die der Objektvariablen zugewiesen wird. Deren Deklaration befindet sich im Modulkopf des Formulars:<\/p>\n Die Variable ist also vom Typ Webbrowser<\/b> und das Statement WithEvents<\/b> gibt an, dass dieses Objekt Ereignisse auslösen kann. Nun werden Sie eine Klasse Webbrowser<\/b> im Objektkatalog vergeblich suchen. Die Access-Bibliothek enthält deren Definition nicht. Der Typ ist nämlich in einer Bibliothek zu finden, die Sie erst einmal in die Verweise des VBA-Projekts laden müssen: die Microsoft Internet Controls<\/b> (shdocvw<\/b>). Diese Bibliothek ist das Kernstück des Internet Explorers<\/b>. Markieren Sie nun im Objektkatalog die Klasse Webbrowser<\/b>, so stellen Sie fest, dass diese fast die gleichen Methoden und Eigenschaften aufweist, wie die Klasse WebbrowserControl<\/b> von Access, nur dass jene viele zusätzliche Eigenschaften zeigt, die sich auf die Gestalt des Steuerelements im Formulars beziehen. Microsoft hat im WebbrowserControl<\/b> die Eigenschaften von Access-Steuerelementen mit denen des Internet Explorers vermengt.<\/p>\n Nach dem Laden des Formulars navigiert das Steuerelement nun zur URL<\/b> about:blank<\/b>, wie das in seiner Eigenschaft Steuerelementinhalt<\/b> festgelegt wurde. Also wird eine leere Seite in ihm angezeigt. Das Rendern dieser Seite benötigt dennoch etwas Zeit, weshalb im Ereignis Beim Anzeigen<\/b> des Formulars (Form_Current<\/b>) über die Funktion WebDocReady<\/b> erst die Beendigung des Vorgangs abgewartet wird (siehe Listing 2).<\/p>\n Listing 2: Hilfsroutine zum Warten auf den Ladezustand eines Dokuments im Webbrowser Control<\/p>\n Der Routine wird das Webbrowser-Objekt oBrowser<\/b> als Parameter übergeben. Eine Schleife, die lediglich die Anweisung DoEvents<\/b> enthält, wird solange wiederholt, bis der Ladezustand (ReadyState<\/b>) des Browsers mindestens den Modus LOADED<\/b> erreicht hat. Dann nämlich erst können die Objekteigenschaften des geladenen Dokuments angesprochen werden. Diese Schleife ist in eine externe Routine ausgelagert, weil sie unter Umständen öfters im VBA-Projekt der Datenbank angesprochen wird. <\/p>\n Listing 3 demonstriert den Code im Ereignis Beim Anzeigen<\/b> (Form_Current<\/b>) des Formulars. Das nun geladene Dokument wird einer Objektvariablen oDoc<\/b> zugewiesen, die ebenfalls im Kopf des Moduls deklariert ist:<\/p>\n Listing 3: Vorgänge im Ereignis Beim Anzeigen des Formularmoduls<\/p>\n Auch hier kommt die Anweisung WithEvents<\/b> ins Spiel, denn nicht nur der Browser kann Ereignisse auslösen, sondern auch das Dokument selbst! Wählen Sie aus der linken oberen Combo des Code-Editors den Eintrag oDoc<\/b> aus und wählen Sie aus der rechten ein beliebiges Ereignis aus. Sofort legt VBA eine passende Ereignisprozedur an. So etwa auch für das Ereignis oncontextmenu<\/b>, die ausgelöst wird, sobald im Dokument die rechte Maustaste bedient wird:<\/p>\n Stellen Sie den Rückgabewert der Ereignisfunktion auf True<\/b> ein, so zeigt das Dokument das Kontextmenü des Internet Explorers an. Setzen Sie stattdessen False<\/b> ein, so unterbleibt dies!<\/p>\n Sie können den Wert auch in Abhängigkeit eigener Berechnungen setzen. Das Kontextmenü soll in unserem Fall nur dann angezeigt werden, wenn die rechte Maustaste über dem Bild betätigt wird, nicht aber im restlichen Bereich des Dokuments. Dazu ist diese Ereignisfunktion etwas auszubauen, worauf wir später noch genauer eingehen. <\/p>\n Die Objektvariable oDoc<\/b> ist als Typ HTMLDocument<\/b> deklariert. Auch für diese Typklasse benötigen Sie einen zusätzlichen Verweis in der Datenbank, nämlich die Microsoft HTML Object Library<\/b> (MSHTML<\/b>).<\/p>\n Dieses gewaltige Objektmodell enthält alles, was der Umgang mit einem Web-Dokument oder seinen Elementen erfordern kann. Sie ist deshalb auch die größte Bibliothek, die Sie überhaupt unter Windows finden werden. Zum Glück benötigen wir nur einen winzigen Teil aus ihr.<\/p>\n Die dritte Zeile in Listing 3<\/b> zeigt gleich, wie auf das Objektmodell Bezug genommen wird. Das Dokument hat einen Body<\/b>, der aus der Eigenschaft body<\/b> von oDoc<\/b> hervorgeht. Das Body<\/b>-Objekt wiederum kennt zahllose Eigenschaften, von denen innerHTML<\/b> eine ist. Sie bezieht sich auf den HTML-Code, der innerhalb der body-Tags<\/b> steht. Und der kann hier ganz einfach modifiziert werden, was der Browser auch sofort in eine Änderung der Anzeige umsetzt, was sicherheitshalber noch mit einem eingeschobenen DoEvents<\/b> vervollständigt wird, da dieser Vorgang ebenfalls etwas Zeit benötigt.<\/p>\n Zum besseren Verständnis: Das Navigieren zu about:blank<\/b> hat diesen Dokument-Code zur Folge:<\/p>\n Und zwischen diese Body<\/b>-Tags wird nun der Code für ein Bild eingefügt:<\/p>\n Das Bild hat die Element-ID<\/b> bild<\/b> und die Beschriftung ist auf Ein Bild<\/b> festgelegt. Über die ID<\/b> kann später auf einfache Weise Bezug auf das Bild genommen werden:<\/p>\n Die Objektvariable oPic<\/b> ist wieder einmal im Kopf des Moduls deklariert und spiegelt das Bild-Objekt wieder:<\/p>\n Die Typklasse HTMLImg<\/b> finden Sie abermals in der Bibliothek MSHTML<\/b>. Über die Variable oPic<\/b> kann in der Folge auf sämtliche Eigenschaften des Bilds Einfluss genommen werden!<\/p>\n Bevor die Routine das tut, wird erst über NewRecord<\/b> ermittelt, ob es sich um einen neuen Datensatz im Formular handelt. Dann nämlich ist weiter nichts zu tun und die Routine wird verlassen. Andernfalls blickt der Code auf das Datenfeld Binear<\/b>. Ist es bereits mit Bilddaten gefüllt, so verzweigt die Routine entsprechend. ´Die Sichtbarkeit einiger Labels wird eingestellt und die Datengröße aus Len(Me!Binear)<\/b> erhalten. Die Beschriftung des Labels zur Anzeige dieser Größe wird über die Format<\/b>-Funktion verschönert. Sind noch keine Bilddaten angelegt, so setzt der Code den Inhalt des HTML-Bildobjekts oPic<\/b> auf den Dateipfad:<\/p>\n Falls doch, so wird der gleichen Eigenschaft der komplette Inhalt des Memo<\/b>-Felds zugewiesen:<\/p>\n src<\/b> entspricht in etwa der URL<\/b> des Bildelements (href<\/b>). Das Zuweisen dieses Eigenschaftswerts führt wieder zum Neurendern des Dokuments im Browser. Das kann asynchron durchaus einige Zeit beanspruchen, weshalb auch hier eine ähnliche Schleife eingebaut ist, die den Zustand des Bilds abfragt.<\/p>\n Gibt die Eigenschaft ReadyState<\/b> des Bildobjekts den String complete<\/b> zurück, so ist das Bild fertig dargestellt. Abschließend werden noch die Abmessungen des Bilds für die weitere Verwendung in den Variablen wPic<\/b> und hPic<\/b> (Breite, Höhe) zwischengespeichert und die Routine chkScale_AfterUpdate<\/b> aufgerufen, die auch beim Aktivieren oder Deaktivieren der Checkbox Originalgröße<\/b> (chkScale<\/b>) im Formular ausgelöst wird. Mehr braucht es für die Anzeige des Bilds im Webbrowser-Steuerelement zunächst nicht!<\/p>\n Der erweiterte Code für das Ereignis oncontextmenu<\/b> der Dokumentvariablen oDoc<\/b> steht in Listing 4. Das Ereignis wird grundsätzlich bei Rechtsklick auf das Dokument ausgelöst. Der Code ermittelt nun, auf welchen Koordinaten dieser Klick geschah. Dazu befragt es das Elternobjekt des Dokuments vom Typ HTMLWindow<\/b>. Dieses Objekt kennt eine Objekt-Eigenschaft event<\/b>, die alle Ereignisse des Browser-Fensters vereint. In x<\/b> und y<\/b> stehen darin die Koordinaten des Klicks. Die Funktion elementFromPoint<\/b> gibt zurück, welches Element sich an diesen Koordinaten befindet. Handelt es sich um unser Bild, das ja die ID<\/b> bild<\/b> besitzt, so aktiviert sich das Kontextmenü, indem der Rückgabewert der Prozedur auf True<\/b> gesetzt wird.<\/p>\n Listing 4: Aktivieren des Kontextmenüs in Abhängigkeit vom angeklickten Element des Webdokuments<\/p>\n Die Variable oPic<\/b> vom Typ HTMLImg<\/b> wurde ja ebenfalls mit der Auszeichnung WithEvents<\/b> deklariert. Auch das HTML-Bild kann Ereignisse auslösen! Wir verwenden zur Demonstration das onclick<\/b>-Ereignis, das beim Anklicken des Bilds hervorgerufen wird:<\/p>\n Dabei muss hier nicht ermittelt werden, welche Maustaste bedient wurde, denn bei der rechten zeigt sich ohnehin das Kontextmenü. Die Msgbox<\/b> gibt die Eigenschaft src<\/b> des Bildobjekts aus, die zuvor in der Ereignisprozedur Beim Anzeigen<\/b> des Formulars zugewiesen wurde. Neben diesem Ereignis kann das Bildobjekt noch etwa 50 weitere auslösen, wie ein Blick in den Objektkatalog verrät!<\/p>\n Sie möchten das Bild im Browser verändern Das geht verblüffend einfach über die style<\/b>-Eigenschaft des Bildobjekts oPic<\/b>. Sie können es etwa um 90 Grad nach rechts drehen, falls die Aufnahme dies erfordert. Dann setzen Sie lediglich dieses Statement ab:<\/p>\n Linksseitig geht es damit:<\/p>\n Oder Sie spiegeln es horizontal:<\/p>\n Das vertikale Pendant:<\/p>\n Die Buttons im Fußbereich des Formulars lösen diese Anweisungen aus. Dabei wird allerdings zuvor jeweils diese Zeile abgesetzt:<\/p>\n Das bewirkt, dass das Bild sich wieder in den Ausgangszustand zurückbegibt. Dasselbe erreichen Sie auch mit folgendem Befehl:<\/p>\n Hier wird deutlich, dass sich diese Beeinflussung nur auf die Anzeige im Browser bezieht, nicht aber auf das Bild selbst. Speichern etwa Sie das rotierte Bild ab, so hat sich der Transform nicht auf die Datei ausgewirkt. Eine Bildbearbeitung ist auf diese Weise nicht so einfach zu erreichen, obwohl die style- und transform-Eigenschaften unerschöpfliche Möglichkeiten anbieten. Wichtiger, als die eben besprochenen Effekte ist sicher das Skalieren des Bilds, falls es größer ist, als das Webbrowser Control im Formular, wie in Bild 12.<\/p>\n![\"Die](\"..\/tl_files\/images\/tblBilder1.png\")
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nBild im Webbrowser im Formular<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nProgrammierung der Bildanzeige<\/h2>\n
Private Sub <\/span>cmdLoad_Click()\r\n Dim <\/span>ODlg As <\/span>Office.FileDialog\r\n Dim <\/span>sFile As String<\/span>\r\n Dim <\/span>sExt As String<\/span>\r\n Dim <\/span>bin() As Byte<\/span>\r\n \r\n Set<\/span> ODlg = Application.FileDialog(msoFileDialogFilePicker)\r\n With<\/span> ODlg\r\n .AllowMultiSelect = False<\/span>\r\n .InitialView = msoFileDialogViewDetails\r\n .InitialFileName = CurrentProject.Path\r\n .Filters.Add \"Bild-Dateien\", \"*.jpg,*.jpeg,*.png,*.bmp,*.tif*\"\r\n If <\/span>.Show Then<\/span>\r\n sFile = .SelectedItems(1)\r\n End If<\/span>\r\n End With<\/span>\r\n If <\/span>Len<\/span>(sFile) = 0 Then<\/span> Exit Sub<\/span>\r\n \r\n Me!txtDatei = sFile\r\n sExt = Mid<\/span>(sFile, InStrRev<\/span>(sFile, \".\") + 1)\r\n ...\r\n ... (Fortsetzung folgt) ...\r\nEnd Sub<\/span><\/pre>\nInitialisierung des Webbrowser Controls beim Laden des Formulars<\/h2>\n
Set<\/span> oBrowser = Me!ctlWeb.Object<\/pre>\nPrivate <\/span>WithEvents oBrowser As <\/span>WebBrowser<\/pre>\nSub <\/span>WebDocReady(oBrowser As <\/span>WebBrowser)\r\n Do\r\n DoEvents\r\n Loop<\/span> Until oBrowser.ReadyState > READYSTATE_LOADED\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n WebDocReady oBrowser\r\n Set<\/span> oDoc = oBrowser.Document\r\n \r\n oDoc.body.innerHTML = \"Private <\/span>WithEvents oDoc As <\/span>HTMLDocument<\/pre>\nPrivate Function <\/span>oDoc_oncontextmenu() As Boolean<\/span>\r\n oDoc_oncontextmenu = True<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/BODY><\/HTML><\/pre>\n
Set<\/span> oPic = oDoc.getElementById(\"bild\")<\/pre>\nPrivate <\/span>WithEvents oPic As <\/span>HTMLImg<\/pre>\noPic.src = Me!Datei.Value<\/pre>\n
oPic.src = Me!Binaer.Value<\/pre>\n
Kontextmenü steuern<\/h2>\n
Private Function <\/span>oDoc_oncontextmenu() As Boolean<\/span>\r\n Dim <\/span>x As Long<\/span>, y As Long<\/span>\r\n x = oDoc.parentWindow.event.x\r\n y = oDoc.parentWindow.event.y\r\n If <\/span>oDoc.elementFromPoint(x, y).ID = \"bild\" Then<\/span>\r\n oDoc_oncontextmenu = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nEreignisse des Bildobjekts<\/h2>\n
Private Function <\/span>oPic_onclick() As Boolean<\/span>\r\n MsgBox<\/span> oPic.src, vbInformation\r\nEnd Function<\/span><\/pre>\nBild beeinflussen<\/h2>\n
oPic.Style.Transform = \"rotate(90deg)\"<\/pre>\n
oPic.Style.Transform = \"rotate(-90deg)\"<\/pre>\n
oPic.Style.Transform = \"scaleX(-1)\"<\/pre>\n
oPic.Style.Transform = \"scaleY(-1)\"<\/pre>\n
oPic.Style.Transform = \"initial\"<\/pre>\n
oPic.Style.Transform = \"\"<\/pre>\n