![\"öffnen](\"..\/tl_files\/images\/pic_222_001.png\")
<\/a><\/p>\nBild 1: öffnen des Dialogs zum Hinzufügen von ActiveX-Steuerelementen<\/p>\n
Damit öffnen Sie einen Dialog, der alle verfügbaren ActiveX-Steuerelemente anzeigt. Hier wählen Sie den Eintrag Microsoft ImageList Control, version 6.0 <\/b>aus (siehe Bild 2).<\/p>\n
Bild 2: Auswahl des ImageList-Steuerelements aus der Liste der ActiveX-Steuerelemente<\/p>\n Nach dem Hinzufügen entweder per Doppelklick oder durch Markieren und anschließendes Betätigen der OK-Schaltfläche erscheint das Steuerelement recht unscheinbar in der linken oberen Ecke des Zielformulars (siehe Bild 3).<\/p>\n Bild 3: Ein sonst leeres Formular mit einem ImageList-Steuerelement<\/p>\n Noch interessanter wird es, wenn Sie nun in die Formularansicht wechseln – das Steuerelement ist dann nämlich gar nicht mehr zu sehen. Das ist auch kein Wunder, denn es soll schlicht und einfach als Container für die in TreeView<\/b>– und ListView<\/b>-Steuerelementen anzuzeigenden Icons dienen.<\/p>\n Bevor wir uns das Steuerelement genauer ansehen, geben wir ihm noch einen Namen – in diesem Fall ctlImageList<\/b>.<\/p>\n Wenn Sie in der Entwurfsansicht des Formulars mit der rechten Maustaste auf das ImageList<\/b>-Steuerelement klicken, können Sie den Kontextmenü-Eintrag ImageListCtl<\/b>–Object|Properties <\/b>auswählen. Dies öffnet den Dialog aus Bild 4. Sie können aber auch einfach doppelt auf das Steuerelement klicken!<\/p>\n Bild 4: Eigenschaftsfenster des ImageList-Steuerelements<\/p>\n Der Eigenschaften<\/b>-Dialog hat zwei Registerseiten. General <\/b>enthält allgemeine Einstellungen wie etwa die Größe der gespeicherten Icons, Images <\/b>ist für die Verwaltung der eigentlichen Bilder verantwortlich.<\/p>\n Auf der Seite General <\/b>stellen sie zunächst die Größe ein, in der die Icons im ListView<\/b>– oder TreeView<\/b>-Steuerelement angezeigt werden sollen. Diese Einstellung können Sie nur vornehmen, wenn das ImageList<\/b>-Steuerelement noch keine Icons <\/b>enthält. üblicherweise zeigt etwa ein TreeView<\/b>-Steuerelement seine Icons in der Größe 16 x 16 Pixel an. Sie können diese aber nach Wunsch auch in der Größe 32 x 32 oder 48 x 48 Pixel anzeigen – oder eine ganz andere Größe verwenden. Dazu wählen Sie die Option Custom <\/b>und geben die Höhe und die Breite für die beiden Eigenschaften Height <\/b>und Width <\/b>ein.<\/p>\n Wichtig ist an dieser Stelle der Hinweis, dass die Icons immer an die gewählte Größe angepasst werden.<\/p>\n Wenn Sie dem ImageList<\/b>-Steuerelement Bilder hinzufügen möchten, wechseln Sie zur Registerseite Images<\/b>. Dort finden Sie als wichtigstes Element eine Schaltfläche namens Insert Picture <\/b>vor (siehe Bild 5).<\/p>\n Bild 5: Icons zum ImageList-Steuerelement hinzufügen<\/p>\n Ein Klick auf diese Schaltfläche öffnet einen Dialog zum Auswählen eines oder mehrerer Icons. Das Problem bei der Sache ist: Abhängig von den Eigenschaften der Bilddatei, die Sie hinzufügen möchten, kommt es gelegentlich zur Fehlermeldung Invalid Picture<\/b>.<\/p>\n Sollten Sie über Bilddateien verfügen, die sich problemlos hinzufügen lassen, können Sie zusätzlich noch die beiden Eigenschaften Key <\/b>und Tag <\/b>für ein Bild einstellen.<\/p>\n Wichtig ist die Key<\/b>-Eigenschaft: Sie muss einen eindeutigen Wert enthaltenen und identifiziert etwa beim Hinzufügen eines im ImageList<\/b>-Steuerelement gespeicherten Icons in ein TreeView<\/b>-Steuerelement das gewünschte Bild.<\/p>\n Sie können allerdings auch den numerischen Index des hinzuzufügenden Bilds angeben.<\/p>\n Wenn Sie über Icons verfügen, die in einem Format vorliegen, dass sich nicht manuell in das ImageList<\/b>-Steuerelement importieren lässt, können Sie dies per VBA erledigen. Hier gibt es zahlreiche Varianten – Sie können die Bilder direkt aus einem Verzeichnis importieren, aus dem OLE-Feld einer Tabelle oder auch aus einem Anlage-Feld (siehe hierzu auch die Artikel Bilder in Access, Teil II: Bilder in OLE-Feldern<\/b> und Anlage-Felder und VBA<\/b>).<\/p>\n Im ersten Beispiel gehen wir davon aus, dass sich die Icons, die Sie in einem Steuerelement wie etwa einem TreeView <\/b>anzeigen möchten, in einem Ordner im Dateisystem befinden, in diesem Fall im gleichen Verzeichnis wie die Datenbank-Datei.<\/p>\n Ziel ist es, die vier Icons wie in Bild 6 in einem TreeView<\/b>-Steuerelement abzubilden. Das Beispiel finden Sie im Formular frmImageListVBA_Dateisystem<\/b>.<\/p>\n Bild 6: TreeView-Steuerelement mit einigen Beispiel-icons aus dem Dateisystem<\/p>\n Wir schauen uns zunächst den Vorgang für ein einzelnes Icon an. Dazu deklarieren Sie zunächst zwei Objektvariablen, um das ImageList<\/b>-Steuerelement und das TreeView<\/b>-Steuerelement zu referenzieren:<\/p>\n Dann legen Sie eine Ereignisprozedur an, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird. Dieses deklariert zwei weitere Variablen, nämlich objPicture<\/b>, um zwischenzeitlich einen Verweis auf das in aus der Datei in den Speicher geladene Icon zu referenzieren und strPicture<\/b>, um den Namen der Bilddatei zu speichern:<\/p>\n Im ersten Schritt setzt die Prozedur dann den Verweis auf das ImageList<\/b>-Steuerelement:<\/p>\n Dann speichert die Prozedur den Namen der hinzuzufügenden Bilddatei, hier add.png<\/b>, in der Variablen strPicture <\/b>(wir benötigen diesen Namen später mehrmals):<\/p>\n Nun liest die Prozedur die Bilddatei in die Variable objPicture <\/b>ein. Dazu nutzt sie eine Funktion aus dem Modul mdlOGL0713<\/b>, das einige für die Verwendung von Bildern wichtige Funktionen bereithält.<\/p>\n Dieses Modul müssen Sie, wenn Sie die Funktion in eigenen Datenbanken verwenden möchten, zum VBA-Projekt der jeweiligen Datenbank hinzufügen. Die Funktion erwartet den Pfad der einzulesenden Datei als Parameter:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nEigenschaften des ImageList-Steuerelements<\/h2>\n
<\/a><\/p>\nImageList-Steuerelement manuell füllen<\/h2>\n
<\/a><\/p>\nImageList-Steuerelement per VBA füllen<\/h2>\n
Bilder aus dem Dateisystem importieren<\/h2>\n
<\/a><\/p>\nDim <\/span>objTreeView As <\/span>MSComctlLib.TreeView\r\nDim <\/span>objImageList As <\/span>MSComctlLib.ImageList<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>objPicture As <\/span>stdole.StdPicture\r\n Dim <\/span>strPicture As String<\/span><\/pre>\n Set<\/span> objImageList = Me!ctlImageList.Object<\/pre>\n strPicture = \"add.png\"<\/pre>\n
Set<\/span> objPicture = mdlOGL0713.LoadPictureGDIP( CurrentProject.Path & \"\\\" & strPicture)<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t