Office: (Office 2013) Formular mit Webbrowser Steuerelement

Danke, ein praktisches Beispiel.
Was hat dir am MetaFile Konzept so gut gefallen?

LG M

 

> Was hat dir am MetaFile Konzept so gut gefallen?

Ich kann mich jetzt leider nicht mehr wirklich daran erinnern,
aber es ging dabei auch darum, nach dem Zeichnen die
Bytes zurück zu bekommen.

 

Markus, das (Enhanced) Metafile-Format macht es deshalb attraktiv, weil es ein Vektor-Format ist und damit, sofern keine Bitmap-Objekte integriert sind, bei der Darstellung am Bildschirm oder beim Drucken die Darstellung nicht verpixelt.

 

Das heißt, eine optimale Darstellung beim Zoomen?
Dafür soll es für die Darstellung von schrägen Linien oder Kurven nicht geeignet sein, so wie ich gelesen habe. Also für das Diagramm-Beispiel von Jones eigentlich nicht optimal.

Edit: wobei man für Kurven vermutlich eher mit GDI+ arbeiten sollte, bzw. antialiasing benötigt.

 

\@Markus

EMF ist quasi eine Batch-Datei für GDI-Funktionen.
Adäquate Alternativen zu CreateEnhMetaFile wären die
CreateBitmap-Funktionen. In diesem Sinne hatte mir das
EMF-Format am besten gefallen. Der Hauptgrund dafür war,
dass es am einfachsten zu handhaben ist.

GDIplus-Funktionen kann man im EMF nicht speichern,
was bei der Überlegung auch keine Option war.

Innerhalb von GDI ist ein EMF einem Bitmap auf jeden Fall
überlegen.

Gruss
Jones

 

\@Jones

Mit EMF habe ich mich bisher nicht beschäftigt.
Daher bin ich Ich froh, jetzt beides zu kennen und Anwendungsbeispiele zu haben, die mich weiterbringen.

Vielen Dank
Markus

 

Hi!

Die Geister die man ruft... *biggrin.gif*

Noch mal zurück zum original Thema.

Ich hatte festgestellt, dass das Abbild im EMF-Format im ImageControl
nur richtig dargestellt wird, wenn selbiges den SizeMode 'zoom' hat.
Im Modus 'abgeschnitten' wird das Bild vergrößert angezeigt.
Wenn das EMF-Bild aber als Datei gespeichert wird, passt alles.
Das steht vlt. im Zusammenhang mit dem 8-Byte Header,
der für das ImageControl nötig ist, und dessen Aufbau
mir jetzt aber nicht mehr geläufig ist.

Ich habe das Demo noch mal erweitert und eine Variante mit einem
Bitmap angefügt. Ggf. ist das für eine solche Anwendung doch der
bessere Weg.

WebBrowserControlToImage.zip

Gruss
Jones

 

Hallo,

vielen Lieben Dank, ich hätte nicht gedacht, dass es doch noch Möglichkeiten gibt und erst jetzt nochmal in das Forum geschaut.

Mit Access 2013 64bit killt die Funktion mit Bitmap Access komplett:




Für die Verwendung von 64bit habe ich die Funktionen wie folgt geändert:
Code:

Option Explicit musste ich raus nehmen, da ich sonst Variablen in meinem Code nicht funktionieren.

Nun zum eigentlichen Problem: Ich bekomme einen den falschen Bidschirmausschnitt:

 

Hi!

Du musst mal in RecalcScreenPosition() einen Haltepunkt setzen und die
Ergebnisse von GetWindowRect() und ClientToScreen() überprüfen.

Edit:
Die RecalcScreenPosition Funktion habe ich mal irgendwo übernommen.
Da scheint mir aber auf jeden Fall ein Fehler drin zu sein:

Falsch: (If (pt.Y + lHeight) > rctClient.Bottom Then pt.Y = rctClient.Bottom - 2)
Richtig: If (pt.Y + lHeight) > rctClient.Bottom Then lHeight = rctClient.Bottom - pt.Y - 2

Gruss
Jones

 

... und außerdem die Declare-Anweisungen für 64 Bit fit machen - die kann man nicht einfach blind übernehmen und ein PtrSafe dazwischen schieben.

 

Ich vermute daran liegt es nicht, denn mit der Demo Datenbank WebBrowserControlToImage.accdb funktioniert es noch, obwohl ich hier schon PtrSafe dazwischen geschoben habe. Möglich dass deswegen Access in der Bitmap-Funktion abstürzt.

Jetzt ist es besser aber noch nicht ganz richtig:




Mir ist aufgefallen dass es nicht mehr funktioniert, sobald die Scrollbar benutzt wird. -> Das könnte man ja zur Not unterbinden.

Aber auch wenn der Scrollbalken ganz oben ist, stimmt es noch nicht ganz:





Bei GetWindowRect() ist me.hwnd= 789662

Bei ClientToScreen() ist me.hwnd= 789662

 

Du musst auch alle Pointer auf 64 Bit umstellen. Also LongPtr oder LongLong statt long für jeden Pointer - aber natürlich nur die Pointer.
Siehe VBA unter Access mit 64 Bit - Access im Unternehmen

Aber da gibt es eh jede Menge Infos im Web.

 

Das Scrollen ist natürlich problematisch. Es wird ja nur ein Screenshot vom
Bildschirm gemacht. Wenn das Bild ausserhalb der sichtbaren Bereichs liegt,
funktioniert das nicht mehr. Ausserdem wird die Scrollposition nicht
berücksichtigt. Das könnte man aber mit Me.CurrentSectionTop
bewerkstelligen.

lTop = lTop + Me.CurrentSectionTop

Du solltest nicht den hwnd kontrollieren, sondern die Y-Positions-Werte.
Da liegt der Hund begraben. Ggf. kannst Du das durch einen Standard-
offset korrigieren.

 

Ich hätte ja vom AIU-Link eigentlich erwartet, dass er auch auf Office 2010 Help Files: Win32API_PtrSafe with 64-bit Support verweist, welche die geläufigen API-Deklarationen nebst Typen-Deklarationen in Form einer Textdatei zum Herauskopieren bereitstellt.

 

Vielen Dank,
nach der deaktivierung der Scrollbalken und erzwungenem Vollbild funktioniert es nun perfekt!!