<\/p>\n
Mit Access 2010 gibt es wieder mal neue Anforderungen, wenn es um den Zugriff auf Bilddokumente per VBA-Code geht. Der Anspruch der in diesem Beitrag vorgestellten Module zum Einlesen, Speichern und Anzeigen von Bilddateien in Access-Datenbanken ist es, unabhängig von der Windows- und Access-Version zuverlässig zu arbeiten (Ausnahme: Access 2010 64-bit).<\/b><\/p>\n
Die Beispieldatenbank enthält einige Module mit Funktionen rund um Bilder.<\/p>\n
Wenn Sie die nachfolgend beschriebenen Techniken in eigenen Datenbanken einsetzen wollen, importieren Sie dort die folgenden Module:<\/p>\n
Grundlagen<\/b><\/p>\n
Bilder treten in den folgenden Beispielen in mehreren Formen auf:<\/p>\n
Die Bilder werden beispielsweise an folgenden Stellen verwendet (einige Beispiele finden Sie am Ende des Beitrags):<\/p>\n
Normalerweise beginnt der Lebenslauf eines Bildes in Zusammenhang mit einer Access-Anwendung in Form einer Datei auf der Festplatte – etwa im Format .png<\/b>, .gif<\/b>, .bmp<\/b>, .tif <\/b>oder auch .ico<\/b>. Die erste Aufgabe lautet daher, auf die gewünschte Bilddatei zuzugreifen und diese in der Datenbank verfügbar zu machen – am besten in Form einer Variablen des Typs StdPicture<\/b>.<\/p>\n
Die folgenden Beispiele führen wir anhand von Dateien im .png<\/b>-Format durch. Dieses Format unterstützt Transparenz und kann überall problemlos eingesetzt werden.<\/p>\n
Einmal Dateisystem und zurück<\/b><\/p>\n
Das erste Beispiel zeigt, wie Sie eine Bilddatei in eine Variable laden. Dass das funktioniert, lässt sich am einfachsten nachweisen, indem wir das Bild in der gleichen Prozedur wieder im Dateisystem speichern. Die Bilddatei wird mit der Prozedur LoadPictureGDIP <\/b>in einer Variable des Typs StdPicture <\/b>gespeichert. LoadPictureGDIP <\/b>erwartet mindestens den Dateinamen als Parameter. Gegebenenfalls können Sie noch einen Wert für FlattenColor <\/b>angeben. Diesen Parameter lernen Sie später kennen. <\/p>\n
Das Speichern des Bildes erledigt die Methode SavePicGDIPlus<\/b>. Diese erwartet die Objektvariable, den Dateinamen und den Bildtyp als Parameter:<\/p>\n Bilder in der Datenbank speichern<\/b><\/p>\n Wenn Sie kleinere Bilder in einer Anwendung verwenden möchten, um diese etwa im Ribbon, in Kontextmenüs, auf Schaltflächen oder im TreeView als Icon anzuzeigen, sollten Sie diese innerhalb der Datenbank speichern. Dazu gibt es zum Beispiel die folgenden beiden Varianten:<\/p>\n Die folgenden beiden Abschnitte zeigen beide Vorgehensweisen.<\/p>\n Bild aus Datei in OLE-Feld speichern<\/b><\/p>\n Bilder speichern Sie mit der Funktion SaveFileToOLEField <\/b>im OLE-Feld einer Tabelle. Die Funktion erwartet die folgenden Parameter:<\/p>\n Die Prozedur aus Listing 1<\/a><\/span> etwa speichert ein Bild in einem neuen Datensatz der Tabelle tblBilder<\/b> und trägt nachträglich den Namen der Bilddatei ein.<\/p>\n Listing 1: Bild aus Datei in OLE-Feld speichern<\/p>\n Diese Prozedur verwendet den Parameter lngID<\/b>, um die ID des neuen Datensatzes zu speichern. Damit kann sie dann direkt danach auf diesen Datensatz zugreifen und weitere Felder füllen – wie hier etwa das mit dem Dateinamen des Bildes.<\/p>\n Wenn Sie eine Bilddatei in einen bestehenden Datensatz einfügen möchten, verwenden Sie einen Aufruf wie den aus der Prozedur in Listing 2<\/a><\/span>.<\/p>\n Listing 2: Bild aus Datei in OLE-Feld speichern, diesmal in einem bestehenden Datensatz<\/p>\n Die Prozedur legt fest, dass das angegebene Bild im Feld Bild <\/b>der Tabelle tblBilder <\/b>gespeichert werden soll, deren Feld ID <\/b>den Wert 25 <\/b>besitzt. Das Ergebnis sieht in beiden Fällen wie in Bild 1 aus.<\/p>\n Bild 1: Ein in einem OLE-Feld gespeichertes Bild<\/span><\/b><\/p>\n Bild aus OLE-Feld in Datei speichern<\/b><\/p>\n Andersherum funktioniert es natürlich auch. Vielleicht haben Sie ja eine Datenbank mit einer großen Menge Icons im OLE-Feld einer Tabelle und möchten diese mal schnell auf die Festplatte kopieren. Dann verwenden Sie die Prozedur SaveOLEFieldToFile <\/b>des Moduls mdlOLE<\/b> wie in Listing 3<\/a><\/span>. Diese Prozedur erwartet die folgenden Parameter:<\/p>\n Listing 3: Bild aus einem OLE-Feld in eine Datei speichern<\/p>\n Bild aus Datei in Anlagefeld speichern<\/b><\/p>\n Seit Access 2007 gibt es das Anlagefeld, in dem sich Bilder sogar ganz leicht über die Benutzeroberfläche speichern lassen. Natürlich wollen Sie dies auch automatisiert per VBA erledigen. Die dazu notwendigen Prozeduren finden Sie im Modul mdlBLOB0710<\/b>.<\/p>\n Zum Anlagefeld ist zu sagen, dass es nicht wie ein OLE-Feld direkt in der Tabelle steckt, sondern dass es sich dabei prinzipiell um eine versteckte, per 1:n-Beziehung verknüpfte Tabelle handelt. Nach außen hin bedeutet dies, dass Sie mehrere Bilder in einem einzigen Datensatz speichern können.<\/p>\n Daher haben die Methoden zum Speichern und Auslesen von Bildern in Anlagefeldern einen Parameter mehr als die für den Zugriff auf OLE-Felder. Damit geben Sie noch den Namen der jeweiligen Datei an.<\/p>\n Die Methode StoreBLOB0710 <\/b>speichert eine Datei in einem Anlagefeld und erwartet die folgenden Parameter:<\/p>\n Wir zeigen nachfolgend drei Varianten zum Speichern einer Bilddatei in einem Anlagefeld:<\/p>\n Die Prozedur aus Listing 4<\/a><\/span> verwendet StoreBLOB0710<\/b>, um eine Datei in einem Anlagefeld zu speichern und gleich im Anschluss den soeben erstellten Datensatz um den Dateinamen der Bilddatei zu erweitern.<\/p>\n Listing 4: Bild aus einer Datei in ein Anlagefeld speichern<\/p>\n <\/p>\n Den so gespeicherten Anlage-Datensatz nimmt die Prozedur aus Listing 5<\/a><\/span> auf. Sie verwendet für den Parameter boolEdit <\/b>den Wert True<\/b>, weil ein bestehender Datensatz bearbeitet werden soll. Sie übergibt einen vorgegebenen Wert für varID <\/b>und gibt außerdem für strAttachment <\/b>den Namen der im vorherigen Beispiel gespeicherten Bilddatei an. Dadurch wird die Bilddatei erstens im gleichen Datensatz gespeichert und zweitens auch noch über die bestehende Datei mit dem gleichen Namen geschrieben. Die dritte Variante sieht ähnlich aus, allerdings soll hier eine weitere Datei als zweites Element des Anlagefeldes gespeichert werden.<\/p>\n Listing 5: Bestehendes Bild in einem Anlagefeld überschreiben<\/p>\n Dazu geben wir einen alternativen Quellpfad an, übergeben aber auch mit dem letzten Parameter strAttachment <\/b>den im Quellpfad enthaltenen Dateinamen (s. Bild 2 aus.<\/p>\n Listing 6: Bild zu einem bestehenden Bild im Anlagefeld hinzufügen<\/p>\n Bild 2: Ein Anlagefeld mit zwei verschiedenen Bilddateien<\/span><\/b><\/p>\n Bild aus Anlagefeld in Datei speichern<\/b><\/p>\n Natürlich können Sie die in einem Anlagefeld gespeicherten Bilddateien auch wieder ins Dateisystem schreiben. Dazu verwenden Sie die Prozedur RestoreBLOB0710<\/b>, die folgende Parameter erwartet:<\/p>\n Die Prozedur aus Listing 7<\/a><\/span> zeigt einen Beispielaufruf der Methode RestoreBLOB0710<\/b>. In diesem Fall soll die erste Datei im Anlagefeld Anlage <\/b>im Datensatz mit dem Wert 13 <\/b>für das Feld ID <\/b>der Tabelle tblAnlagen <\/b>gespeichert werden.<\/p>\n Listing 7: Anlage auf der Festplatte speichern<\/p>\n Sollte dieses Anlagefeld mehr als eine Anlage enthalten, können Sie mit dem letzten Parameter den Dateinamen der zu exportierenden Datei angeben.<\/p>\n Bild aus OLE-Feld lesen<\/b><\/p>\n Wenn Sie ein in einem OLE-Feld gespeichertes Bild irgendwo innerhalb der Access-Anwendung anzeigen möchten, müssen Sie dieses zunächst auslesen und in einer StdPicture<\/b>-Variablen speichern.<\/p>\n Dies erledigen Sie mit der Methode PicFromField <\/b>des Moduls mdlOGL0710<\/b>. Dieser Methode müssen Sie als Parameter ein Field<\/b>-Objekt übergeben, das dem OLE-Feld entspricht, in dem sich das Bild befindet. Wie dies funktioniert, zeigt die Prozedur aus Listing 8<\/a><\/span>. Um zu beweisen, dass die Variable objPicture <\/b>auch tatsächlich ein Bild enthält, wird es in der folgenden Anweisung noch auf der Festplatte gespeichert.<\/p>\n Listing 8: Bild aus OLE-Feld in einem StdPicture-Objekt speichern<\/p>\n Bild aus Anlagefeld lesen<\/b><\/p>\n Auch bei Verwendung eines Anlagefeldes zum Speichern der Bilddateien für eine Anwendung müssen Sie den Inhalt zunächst in ein StdPicture<\/b>-Element übermitteln.<\/p>\n Dies erledigt die Prozedur AttachmentToPicture<\/b>. Sie erwartet die folgenden Parameter:<\/p>\n Die Funktionsweise des Aufrufs dieser Prozedur erläutert das Beispiel aus Listing 9<\/a><\/span>.<\/p>\n Listing 9: Bild aus Anlagefeld in einem StdPicture-Objekt speichern<\/p>\n Bildabmessungen ermitteln<\/b><\/p>\n Für den einen oder anderen Fall dürften die Bildmaße interessant sein. Diese liefert die Funktion GetDimensionsGDIP<\/b>.<\/p>\n Diese Funktion gibt allerdings nicht direkt die Höhe und die Breite zurück, sondern ein Objekt des Typs TSize<\/b>, das so definiert ist:<\/p>\n Die folgende Routine deklariert ein solches Objekt, liest ein Bild in das Objekt objPicture<\/b> ein und ermittelt dann dessen Abmessungen. Schließlich gibt sie die x- und die y-Koordinate, also die Höhe und die Breite, in Pixel im Direktfenster aus (s. Listing 10<\/a><\/span>).<\/p>\n Listing 10: Bildabmessungen ermitteln<\/p>\n Einen Teil eines Bildes ausschneiden<\/b><\/p>\n Mit der Funktion CropImage <\/b>können Sie aus einem in einer StdPicture<\/b>-Variablen gespeicherten Bild einen Bereich ausschneiden und in einer weiteren StdPicture<\/b>-Variablen speichern.<\/p>\n CropImage <\/b>erwartet die folgenden Parameter:<\/p>\n Die Prozedur aus Listing 11<\/a><\/span> speichert die linken oberen 100 x 100 Bildpunkte eines Bildes zunächst in einem neuen StdPicture<\/b>-Objekt und dann in einer Datei auf der Festplatte.<\/p>\n Listing 11: Teil eines Bildes ausschneiden<\/p>\n Größe eines Bildes ändern<\/b><\/p>\n Mit der Methode ResampleGDIP <\/b>ändern Sie die Größe eines Bildes.<\/p>\n Die Methode erwartet die folgenden Parameter:<\/p>\n Das Beispiel aus Listing 12<\/a><\/span> zeigt, wie ein StdPicture<\/b>-Objekt aus einem Anlagefeld eingelesen, die Größe angepasst und das angepasste Bild auf der Festplatte gespeichert wird.<\/p>\n Listing 12: Größe eines Bildes anpassen<\/p>\n Bild in Kontextmenü anzeigen (ab Access 2002)<\/b><\/p>\n Wenn Sie Kontextmenüs dynamisch per VBA programmieren, können Sie mit den in diesem Beitrag vorgestellten Methoden leicht Icons anzeigen. In der Beispieldatenbank finden Sie unter frmKontextmenü <\/b>ein Formular, bei dem Sie per Klick mit der rechten Maustaste das Kontextmenü aus Bild 3 anzeigen. Damit dies gelingt, wird mit der folgenden Prozedur beim Laden des Formulars eine Routine aufgerufen, welche das Kontextmenü erstellt und speichert:<\/p>\n Bild 3: Kontextmenü mit Icons<\/span><\/b><\/p>\n Diese Routine finden Sie in Listing 13<\/a><\/span>. Sie ist das eigentliche Arbeitstier dieses Beispiels: Zunächst deaktiviert sie die eingebauten Kontextmenüs für dieses Formular. Dann löscht sie ein eventuell bereits vorhandenes Kontextmenü namens Popup_Icons <\/b>und erstellt dieses anschließend neu. Die Menüeinträge basieren sämtlich auf den Datensätzen der Tabelle tblIcons<\/b>, welches im Feld Icon <\/b>Bilddateien zur Anzeige im Kontextmenü speichert.<\/p>\n Listing 13: Kontextmenü mit Icons erstellen<\/p>\n Beim Durchlaufen einer auf dieser Tabelle basierenden Datensatzgruppe legt die Prozedur zunächst jeweils einen neuen Kontextmenüeintrag mit dem Namen des Bildes des aktuellen Datensatzes als Bezeichnung an. Dann stellt die Prozedur weitere Eigenschaften der Kontextmenüeinträge ein. Entscheidend sind hier die beiden Einträge Picture <\/b>und Mask<\/b>. Kontextmenüs können immer noch keine transparenten Bilder anzeigen, daher kommt dort eine alternative Technik zum Einsatz. Die Eigenschaft Picture <\/b>erhält einen Verweis auf das dem Bild des aktuellen Datensatzes entsprechende und mit der Funktion PicFromField <\/b>ermittelte StdPicture<\/b>-Objekt. Da die Transparenz-Informationen hier verloren gehen, benötigen wir ein weiteres Bildobjekt für die Maske, die nur schwarze und weiße Bildpunkte enthält.<\/p>\n Die weißen stellen die transparenten Bereiche dar, die schwarzen die nicht transparenten.<\/p>\n Glücklicherweise liefert das Modul mdlOGL0710 <\/b>mit MaskFromPicture <\/b>eine Funktion, die genau eine solche Maskendatei erstellt.<\/p>\n Später in der Entwurfsansicht führt der Klick mit der rechten Maustaste zum Auslösen der folgenden Prozedur, die schlicht und einfach das soeben erstellte Kontextmenü mit der ShowPopup<\/b>-Methode anzeigt:<\/p>\n Bild in ImageList laden und im TreeView anzeigen<\/b><\/p>\n Im nächsten Beispiel geht es zunächst um das Laden von Icons aus der Tabelle tblIcons <\/b>in ein ImageList<\/b>-Steuerelement namens ctlImageList<\/b>.<\/p>\n Die darin gespeicherten Bilder sollen schließlich in einem TreeView-Steuerelement namens ctlTreeView <\/b>angezeigt werden. Beide Elemente fügen Sie zum Formular hinzu (in der Beispieldatenbank frmImageListTreeView<\/b>) und deklarieren sie wie folgt:<\/p>\n Beim Laden des Formulars wird die folgende Ereignisprozedur ausgelöst, welche die beiden Objekte zuweist und zwei Prozeduren zum Füllen des ImageList<\/b>– und des TreeView<\/b>-Steuerelements aufruft:<\/p>\n Die Funktion ImageListFuellen <\/b>aus Listing 14<\/a><\/span> nimmt zunächst einige Grundeinstellungen am ImageList-Steuerelement vor. Dann durchläuft sie alle Datensätze eines Recordsets basierend auf der Tabelle tblIcons <\/b>und führt für jeden Datensatz die Add<\/b>-Methode des ListImages<\/b>-Objekts des ImageList-Steuerelements aus.<\/p>\n Listing 14: ImageList mit Icons füllen<\/p>\n Darin weist sie das mit der PicFromField<\/b>-Methode gewonnene StdPicture<\/b>-Objekt zum ImageList-Steuerelement hinzu.<\/p>\n Schließlich muss noch das TreeView-Steuerelemente gefüllt werden, was die Prozedur TreeViewFuellen <\/b>erledigt (s. Listing 15<\/a><\/span>).<\/p>\n Listing 15: TreeView-Steuerelemente mit Bildern aus dem ImageList-Steuerelement füllen<\/p>\n Diese weist dem TreeView-Steuerelement das ImageList-Steuerelement als Lieferant für Icons zu und füllt dann das TreeView-Steuerelement.<\/p>\n Dabei legt es für jeden Datensatz der Tabelle tblIcons <\/b>ein Element an und füllt dieses mit dem entsprechenden Icon aus dem ImageList-Steuerelement (s. Bild 4).<\/p>\n Bild 4: TreeView-Einträge mit Icons<\/span><\/b><\/p>\n Bild im Ribbon anzeigen<\/b><\/p>\n Fehlt noch das Ribbon, das ja gerade durch seine guten grafischen Möglichkeiten besticht.<\/p>\n In diesem Fall wollen wir nur zeigen, wie Sie eine einfache Schaltfläche mit einem Icon versehen. Dazu verwenden wir die Ribbon-Definition aus Bild 5, die in der Tabelle USysRibbons <\/b>gespeichert ist. Diese Definition enthält einen Verweis auf eine Prozedur namens loadImage<\/b>, die in einem Standardmodul gespeichert werden muss.<\/p>\n Bild 5: Die Tabelle USysRibbon speichert Ribbon-Definitionen.<\/span><\/b><\/p>\nPublic Sub BilddateiLadenUndSpeichern()\r\n Dim objPicture As StdPicture\r\n Dim strPfadQuelle As String\r\n Dim strPfadZiel As String\r\n strPfadQuelle = CurrentProject.Path & "\\Screenshot.png"\r\n strPfadZiel = CurrentProject.Path & "\\Screenshot_Kopie.png"\r\n Set objPicture = LoadPictureGDIP(strPfadQuelle)\r\n SavePicGDIPlus objPicture, strPfadZiel, pictypePNG\r\nEnd Sub<\/pre>\n
\n
\n
Public Sub BilddateiInOLEFeld()\r\n Dim strPfadQuelle As String\r\n Dim lngID As Long\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n strPfadQuelle = CurrentProject.Path & "\\Screenshot.png"\r\n If mdlOLE.SaveFileToOLEField(strPfadQuelle, "tblBilder", "Bild", False, "ID", lngID) Then\r\n db.Execute "UPDATE tblBilder SET Bildname = ''" & strPfadQuelle & "'' WHERE ID = " & lngID, dbFailOnError\r\n End If\r\nEnd Sub<\/pre>\n
Public Sub BilddateiInOLEFeld_BestehenderDatensatz()\r\n Dim strPfadQuelle As String\r\n Dim lngID As Long\r\n Dim lngResultat As Variant\r\n lngID = 25\r\n strPfadQuelle = CurrentProject.Path & "\\Screenshot.png"\r\n lngResultat = SaveFileToOLEField(strPfadQuelle, "tblBilder", "Bild", True, "ID", lngID)\r\n If lngResultat = True Then\r\n Debug.Print "Erfolgreich gespeichert!"\r\n Else\r\n Debug.Print "Es ist ein Fehler aufgetreten: " & lngResultat & " " & AccessError(lngResultat)\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_03\/GDIPlus-web-images\/pic001.png\")
<\/p>\nPublic Sub OLEFEldInBilddatei()\r\n Dim strPfadZiel As String\r\n Dim lngID As Long\r\n strPfadZiel = CurrentProject.Path & "\\BildAusOLEFeld.png"\r\n lngID = 25\r\n SaveOLEFieldToFile "tblBilder", "ID", lngID, "Bild", strPfadZiel\r\nEnd Sub<\/pre>\n
\n
\n
\n
Public Sub BilddateiInAnlage_NeuerDatensatz()\r\n Dim strPfadQuelle As String\r\n Dim lngID As Long\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n strPfadQuelle = CurrentProject.Path & "\\Screenshot.png"\r\n If StoreBLOB0710(strPfadQuelle, "tblAnlagen", "Anlage", False, "ID", lngID, "Beispielbild") Then\r\n db.Execute "UPDATE tblAnlagen SET Anlagename = ''" & strPfadQuelle & "'' WHERE ID = " & lngID, dbFailOnError\r\n End If\r\nEnd Sub<\/pre>\n
Public Sub BilddateiInAnlage_BestehenderDatensatz_BestehendeAnlage()\r\n Dim strPfadQuelle As String\r\n Dim lngID As Long\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n lngID = 13\r\n strPfadQuelle = CurrentProject.Path & "\\Screenshot.png"\r\n StoreBLOB0710 strPfadQuelle, "tblAnlagen", "Anlage", True, "ID", lngID, "Screenshot.png"\r\nEnd Sub<\/pre>\n
Public Sub BilddateiInAnlage_BestehenderDatensatz_WeitereAnlage()\r\n Dim strPfadQuelle As String\r\n Dim lngID As Long\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n lngID = 13\r\n strPfadQuelle = CurrentProject.Path & "\\pic001.png"\r\n StoreBLOB0710 strPfadQuelle, "tblAnlagen", "Anlage", True, "ID", lngID, "pic001.png"\r\nEnd Sub<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_03\/GDIPlus-web-images\/pic002.png\")
<\/p>\n\n
Public Sub BilddateiAusAnlagefeldSpeichern()\r\n Dim strPfadZiel As String\r\n Dim lngID As Long\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n lngID = 13\r\n strPfadZiel = CurrentProject.Path & "\\Screenshot1.png"\r\n RestoreBLOB0710 "tblAnlagen", "Anlage", "ID", lngID, strPfadZiel\r\nEnd Sub<\/pre>\n
Public Sub OLEInStdPictureSpeichern()\r\n Dim db As DAO.Database\r\n Dim objPicture As StdPicture\r\n Dim rst As DAO.Recordset\r\n Dim fld As DAO.Field\r\n Dim lngID As Long\r\n lngID = 25\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("SELECT Bild FROM tblBilder WHERE ID = " & lngID)\r\n Set fld = rst.Fields(0)\r\n Set objPicture = PicFromField(fld)\r\n mdlOGL0710.SavePicGDIPlus objPicture, CurrentProject.Path & "\\test.gif", pictypeGIF\r\nEnd Sub<\/pre>\n\n
Public Sub AttachmentInStdPictureSpeichern()\r\n Dim objPicture As StdPicture\r\n Set objPicture = AttachmentToPicture("tblAnlagen", "Anlage", "Screenshot.png")\r\n SavePicGDIPlus objPicture, CurrentProject.Path & "\\test1.gif", pictypeGIF\r\nEnd Sub<\/pre>\nPublic Type TSize\r\n X As Double\r\n Y As Double\r\nEnd Type<\/pre>\n
Public Sub Bildabmessungen()\r\n Dim objPicture As StdPicture\r\n Dim T As TSize\r\n Set objPicture = AttachmentToPicture("tblAnlagen", "Anlage", "Screenshot.png")\r\n T = mdlOGL0710.GetDimensionsGDIP(objPicture)\r\n Debug.Print "Das Bild hat die Maße " & T.X & " x " & T.Y & "."\r\nEnd Sub<\/pre>\n\n
Public Sub AusschnittEinesBildesSpeichern()\r\n Dim objPicture As StdPicture\r\n Dim objAusschnitt As StdPicture\r\n Set objPicture = AttachmentToPicture("tblAnlagen", "Anlage", "Screenshot.png")\r\n Set objAusschnitt = CropImage(objPicture, 1, 1, 100, 100)\r\n SavePicGDIPlus objPicture, CurrentProject.Path & "\\Ausschnitt.png", pictypeGIF\r\nEnd Sub<\/pre>\n\n
Public Sub GroesseEinesBildesAendern()\r\n Dim objPicture As StdPicture\r\n Dim objKleinesPicture As StdPicture\r\n Set objPicture = AttachmentToPicture("tblAnlagen", "Anlage", "Screenshot.png")\r\n Set objKleinesPicture = ResampleGDIP(objPicture, 100, 100)\r\n SavePicGDIPlus objKleinesPicture, CurrentProject.Path & "\\Groesse.png", pictypegif\r\nEnd Sub<\/pre>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_03\/GDIPlus-web-images\/pic003.png\")
<\/p>\nPrivate Sub Form_Load()\r\n PopupAnlegen\r\nEnd Sub<\/pre>\n
Private Sub PopupAnlegen()\r\n Dim cbr As CommandBar\r\n Dim cbb As CommandBarButton\r\n Dim objPicture As StdPicture\r\n Dim db As DAO.Database\r\n Dim rstIcons As DAO.Recordset\r\n Me.ShortcutMenu = False\r\n On Error Resume Next\r\n CommandBars("Popup_Icons").Delete\r\n On Error GoTo 0\r\n Set cbr = CommandBars.Add("Popup_Icons", msoBarPopup, False, True)\r\n Set db = CurrentDb\r\n Set rstIcons = db.OpenRecordset("SELECT * FROM tblIcons", dbOpenDynaset)\r\n Do While Not rstIcons.EOF\r\n Set cbb = cbr.Controls.Add(msoButtonIcon)\r\n With cbb\r\n .Caption = rstIcons!Iconname\r\n Set objPicture = PicFromField(rstIcons!Iconobjekt)\r\n If Not objPicture Is Nothing Then\r\n cbb.Picture = objPicture\r\n cbb.Mask = MaskFromPicture(objPicture)\r\n End If\r\n End With\r\n rstIcons.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\nPrivate Sub Detailbereich_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)\r\n Select Case Button\r\n Case 2\r\n CommandBars("Popup_Icons").ShowPopup\r\n End Select\r\nEnd Sub<\/pre>\nDim objTreeView As MSComctlLib.TreeView\r\nDim objImageList As MSComctlLib.ImageList<\/pre>\n
Private Sub Form_Load()\r\n Set objTreeView = Me!ctlTreeView.Object\r\n Set objImageList = Me!ctlImageList.Object\r\n ImageListFuellen\r\n TreeViewFuellen\r\nEnd Sub<\/pre>\n
Public Sub ImageListFuellen()\r\n Dim db As DAO.Database\r\n Dim rstIcons As DAO.Recordset\r\n Dim i As Integer\r\n Set db = CurrentDb\r\n With ctlImageList\r\n .ListImages.Clear\r\n .ImageHeight = 16\r\n .ImageWidth = 16\r\n Set rstIcons = db.OpenRecordset("SELECT * FROM tblIcons", dbOpenSnapshot)\r\n Do While Not rstIcons.EOF\r\n i = i + 1\r\n .ListImages.Add i, rstIcons!IconName, PicFromField(rstIcons!IconObjekt)\r\n rstIcons.MoveNext\r\n Loop\r\n End With\r\nEnd Sub<\/pre>\nPublic Sub TreeViewFuellen()\r\n Dim i As Integer\r\n With objTreeView\r\n Set .ImageList = Me!ctlImageList.Object\r\n For i = 1 To objImageList.ListImages.count\r\n .Nodes.Add , , "a" & i, objImageList.ListImages.Item(i).Key, _\r\n objImageList.ListImages.Item(i).Key\r\n Next i\r\n End With\r\nEnd Sub<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_03\/GDIPlus-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_03\/GDIPlus-web-images\/pic005.png\")
<\/p>\n