![\"Herkömmliches](\"..\/fileadmin\/_temp_\/2025_06\/pic_1577_001.png\")
<\/p>\nWer einmal mit dem ListView-Steuerelement gearbeitet hat und diesem Icons hinzufügen wollte, hat diese üblicherweise erst umständlich ins ImageList-Steuerelement eingefügt, um diese dann im ListView-Steuerelement anzeigen zu können. Dabei bietet Microsoft Access seit langem die Möglichkeit, Icons komfortabel in einer Tabelle namens MSysResources zu speichern. Die Icons lassen sich einfach durch Auswahl über die Eigenschaft Bild zu Bild-Steuerelementen oder Schaltflächen hinzufügen. In diesem Beitrag zeigen wir, wie wir die Bilder aus der Tabelle MSysResources einfach zu einem ImageList-Steuerelement addieren können, um diese dann im ListView-Steuerelement zu den einzelnen Einträgen hinzuzufügen.<\/b><\/p>\nFormular vorbereiten<\/h2>\n
Die ersten Schritte, um Icons in einem ListView<\/b>-Steuerelement anzeigen zu können, sind das Hinzufügen eines ImageList<\/b>– und eines ListView<\/b>-Steuerelements zum Formular. Diese nennen wir in diesem Beispiel ctlImageList <\/b>und ctlListView<\/b>.<\/p>\nIcons hinzufügen auf die unkomfortable Art<\/h2>\n
Die eingangs beschriebene Technik ist für Einsteiger einfach zu realisieren. Wir öffnen die Eigenschaften des ImageList<\/b>-Steuerelements, stellen dort die Größe für die hinzuzufügenden Icons ein und fügen dann auf der Seite Images die gewünschten Icons ein – nebst der Angabe der Eigenschaft Key<\/b>, damit wir diese referenzieren können (siehe Bild 1).<\/p>\n
<\/p>\n
Bild 1: Herkömmliches Hinzufügen von Icons zum ImageList-Control<\/span><\/b><\/p>\n Beim Hinzufügen sehen wir bereits den ersten Nachteil: Wir können hier zwar viele verschiedene Dateiformate verwenden, aber zum Beispiel PNG <\/b>ist nicht darunter.<\/p>\n Und da viele Icons-Sammlungen ihre Icons in diesem Format liefern, ist das nicht besonders praktisch. Gut, dass unsere Lösung aus diesem Beitrag dies umgeht!<\/p>\n Der zweite Nachteil ist, dass wir immer, wenn wir einmal ein neues Icon hinzufügen wollen, das Formular in der Entwurfsansicht öffnen und die oben beschriebenen Schritte durchführen müssen. Also schauen wir uns einen alternativen, einfacheren Weg an.<\/p>\n Dieser sieht so aus, dass wir die Icons einfach zur Tabelle MSysResources <\/b>hinzufügen. Diese Tabelle nimmt alle Icons auf, die wir zum Beispiel über den Formularentwurf einer Schaltfläche oder einem Bild-Steuerelement hinzufügen. <\/p>\n Hinweis: Um die Systemtabelle MSysResources <\/b>zu sehen, müssen wir die Systemobjekte über die Optionen des Navigationsbereichs einblenden.<\/p>\n Dazu klicken wir im einfachsten Fall im Formularentwurf auf den Ribbon-Eintrag Formularentwurf|Steuerelemente|Bild einfügen <\/b>und dann auf Durchsuchen<\/b>. Hier wählen wir das gewünschte Icon aus und fügen es so hinzu.<\/p>\n Auch ohne das anschließende Einfügen des Bildes im Formularentwurf landet die Bilddatei in der Tabelle MSysResources<\/b>. Die Bilddatei finden wir dort wie in Bild 2 in einem neuen Datensatz vor.<\/p>\n Bild 2: Die Tabelle MSysResources mit einer Icon-Datei<\/span><\/b><\/p>\n Auf diese Weise fügen wir noch einige weitere Icons zur Tabelle MSysResources <\/b>hinzu. Allerdings stellen wir hier fest, dass es etwas mühselig ist, jedes Icon einzeln hinzuzufügen. Allerdings haben wir im Beitrag Icons in der Datenbank verwalten <\/b>(www.access-im-unternehmen.de\/1564<\/b>) bereits eine Lösung zu diesem Problem veröffentlicht.<\/p>\n Damit lassen sich leicht mehrere Icons auf einen Rutsch zur Tabelle MSysResources <\/b>hinzufügen.<\/p>\n Nun stellt sich jedoch die Frage, wie wir dieses Icon in das ImageList<\/b>-Steuerelement bekommen, damit wir es im ListView<\/b>-Steuerelement anzeigen können.<\/p>\n Die entscheidende Vorarbeit dazu haben wir bereits im Beitrag Icons in Ribbon, Kontextmenü, Formular und TreeView <\/b>(www.access-im-unternehmen.de\/1557<\/b>) geleistet. Dort haben wir Funktionen definiert, mit denen wir einfach Bilder aus der Tabelle MSysResources <\/b>in ein ImageList<\/b>-Steuerelement einfügen können.<\/p>\n Aus der Beispieldatenbank zu diesem Beitrag haben wir die folgenden Objekte in die aktuelle Beispieldatenbank importiert:<\/p>\n Aus letzterem Modul kommentieren wir noch die Funktion amvFileToResources<\/b> aus, da sich diese in einem anderen Modul befindet – beide benötigen wir hier nicht.<\/p>\n Damit starten wir in die Programmierung. Wir benötigen zunächst eine Prozedur, die beim Laden des Formulars geöffnet wird und die Eigenschaften des ListView<\/b>-Steuerelements einstellt sowie weitere Aktionen durchführt. Diese finden wir in Listing 1.<\/p>\n Listing 1: Prozedur, die beim Laden des Formulars ausgeführt wird<\/span><\/b><\/p>\n Sie deklariert Variablen für das ListView<\/b>– und das ImageList<\/b>-Steuerelement und füllt diese mit Verweisen auf die jeweilige Object<\/b>-Eigenschaft.<\/p>\n Anschließend stellt sie die Größe der enthaltenen Icons auf eine Höhe und eine Breite von jeweils 16 Pixeln ein.<\/p>\n Dann ruft sie die Prozedur ImageListFuellen <\/b>auf, welche die Icons in das ImageList<\/b>-Steuerelement einliest – diese sehen wir uns weiter unten an.<\/p>\n Danach stellt sie die Eigenschaften des ListView<\/b>-Steuerelements ein. Dazu gehört die flache Ansicht statt 3-D, das Entfernen des Rahmens, den wir durch den Rahmen des Steuerelements selbst im Formularentwurf ersetzen, die Einstellung der Schriftart und die Ansicht mit lvwReport<\/b>.<\/p>\n Damit das ListView<\/b>-Steuerelement weiß, woher es seine Icons beziehen soll, weisen wir der Eigenschaft SmallIcons <\/b>einen Verweis auf die Object<\/b>-Eigenschaft des ImageList<\/b>-Steuerelements zu.<\/p>\n In der Ansicht lvwReport <\/b>ist es wichtig, dass wir hier die Eigenschaft SmallIcons <\/b>und nicht Icons <\/b>verwenden. Wenn wir die Ansicht lvwIcon <\/b>nutzen würden, käme hier die Eigenschaft Icons <\/b>zum Einsatz.<\/p>\n Danach entfernen wir alle eventuell noch vorhandenen Spaltenüberschriften und fügen eine neue Spaltenüberschrift namens Icons <\/b>hinzu.<\/p>\n Schließlich rufen wir die Prozedur ImagesInListView <\/b>auf, welche die eigentlichen Einträge inklusive der Icons zum ListView<\/b>-Steuerelement hinzufügt (siehe Listing 2).<\/p>\n Listing 2: Prozedur zum Einlesen der Bilder aus der Tabelle MSysResources in das ImageList-Steuerelement.<\/span><\/b><\/p>\n Die Prozedur ImageListFuellen <\/b>dient dazu, die Icons aus der Tabelle MSysResources <\/b>in das ImageList<\/b>-Steuerelement einzulesen.<\/p>\n Sie holt einen Verweis auf das aktuelle Database<\/b>-Objekt und öffnet ein Recordset auf Basis der Tabelle MSysResources<\/b>, das nur die Elemente mit der Endung .png <\/b>liefert.<\/p>\n Dabei verwendet sie zum Öffnen den Parameter dbOpenSnapshot<\/b>, da wir nur lesend zugreifen wollen und dies performanter ist als dbOpenDynaset<\/b>.<\/p>\n Dann referenziert sie das ImageList<\/b>-Steuerelement über die Object<\/b>-Eigenschaft und leert als Erstes alle eventuell bereits enthaltenen Icons.<\/p>\n Dann durchläuft sie das Recordset und ruft für jeden Datensatz einmalig die Prozedur amvAddIconToImageListFromResourcesByName <\/b>auf. Dieser übergibt sie einen Verweis auf das zu füllende ImageList<\/b>-Steuerelement sowie den Namen des Icons in der Tabelle MSysResources<\/b>.<\/p>\n Wie die Prozedur funktioniert, erläutern wir im Beitrag Icons in Ribbon, Kontextmenü, Formular und TreeView <\/b>(www.access-im-unternehmen.de\/1557<\/b>). Auf diese Weise werden alle Icons in das ImageList<\/b>-Steuerelement eingelesen. Wenn wir uns davon überzeugen wollen, dass dies funktioniert hat, können wir am Ende der Prozedur die folgenden Zeilen einfügen:<\/p>\n Dies gibt wie folgt die enthaltenen Einträge aus:<\/p>\n Schließlich fügen wir in der Prozedur ImagesInListView <\/b>die Icons samt dem Namen zum ListView<\/b>-Steuerelement hinzu (siehe Listing 3).<\/p>\n Listing 3: Prozedur zum Eintragen von Elementen samt Icons in das ListView-Steuerelement<\/span><\/b><\/p>\n Die Prozedur holt sich wieder ein Recordset auf Basis der Tabelle MSysObjects <\/b>und referenziert das ListView<\/b>-Steuerelement mit der Variablen objListView<\/b>. Dann leert sie das ListView<\/b>-Steuerelement mit der Clear<\/b>-Methode der ListItems<\/b>-Auflistung, falls noch Einträge vorhanden sind.<\/p>\n Schließlich durchläuft sie das Recordset und fügt bei jedem Durchlauf ein neues Element zum ListView<\/b>-Steuerelement hinzu. Dabei wird der Parameter Index <\/b>leer gelassen.<\/p>\n Der Parameter Key <\/b>wird mit dem Buchstaben a <\/b>plus dem Primärschlüsselwert der Tabelle gefüllt, also beispielsweise a1<\/b>. Der Parameter Text <\/b>erhält den Namen des Icons aus der Tabelle MSysResources <\/b>und für den Parameter SmallIcon <\/b>geben wir die Bezeichnung aus dem ImageList<\/b>-Steuerelement an.<\/p>\n Hier ist es wichtig, dass wir den Wert aus dem Feld Name <\/b>des Recordsets mit CStr <\/b>in ein String<\/b>-Element konvertieren. Anderenfalls erhalten wir die Meldung Invalid Key<\/b>.<\/p>\n Als Ergebnis erhalten wir die Ansicht aus Bild 3.<\/p>\n Bild 3: Formular mit Icons im ListView-Steuerelement<\/span><\/b><\/p>\n Was in unserem Code gegebenenfalls willkürlich erscheint, ist in der Praxis wichtig: Wir haben erst das ImageList<\/b>-Steuerelement über die Prozedur ImageListFuellen <\/b>gefüllt und dieses erst dann über die Eigenschaft SmallIcons <\/b>dem ListView<\/b>-Steuerelement zugewiesen.<\/p>\n Anderenfalls würden wir die Fehlermeldung ImageList must be initialized before it can be used <\/b>erhalten.<\/p>\n Wichtig ist, dass wir die Icons in der Größe ablegen, die auch für das ImageList<\/b>-Steuerelement angegeben wurde. Anderenfalls würden die Icons hoch- oder runterskaliert werden, was unter Umständen nicht schön aussieht.<\/p>\n Gegebenenfalls werden in der Tabelle MSysResources <\/b>auch noch Icons anderer Größen gespeichert, die zum Beispiel für Schaltflächen verwendet werden sollen.<\/p>\n Damit nur die benötigten Icons in das ImageList<\/b>-Steuerelement eingelesen werden, können wir diese mit einem speziellen Präfix versehen – zum Beispiel il <\/b>für ImageList<\/b>. Wir müssten dann in den Recordsets der Prozeduren noch nach diesem Präfix filtern. So leidet nicht die Performance darunter, dass gegebenenfalls viel zu viele Icons in das ImageList<\/b>-Steuerelement geladen werden.<\/p>\n Schließlich sollte man noch darauf achten, dass die Namen der einzulesenden Icons eindeutig sind. Die Tabelle MSysResources <\/b>hat keinen eindeutigen Index auf dem Feld Name<\/b>, daher können dort auch mehrere Icons mit gleichem Namen landen. Wenn man sich dann wundert, dass nicht das erwartete Icon im ListView<\/b>-Steuerelement erscheint, liegt es vielleicht daran, dass mehrere unterschiedliche Icons unter dem gleichen Namen abgespeichert wurden.<\/p>\n Enthaltene Beispieldateien:<\/p>\n IconsPerImageListUndVBAImListView.accdb<\/p>\nIcons zur Tabelle MSysResources hinzufügen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_06\/pic_1577_002.png\")
<\/p>\nIcon aus MSysResources zum ImageList-Control hinzufügen<\/h2>\n
\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>objImageList As <\/span>MSComctlLib.ImageList\r\n \r\n Set<\/span> objListView = Me.ctlListView.Object\r\n Set<\/span> objImageList = Me.ctlImageList.Object\r\n \r\n objImageList.ImageHeight = 16\r\n objImageList.ImageWidth = 16\r\n Call<\/span> ImageListFuellen\r\n \r\n With<\/span> objListView\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .Font.Name = \"Calibri\"\r\n .Font.Size = 11\r\n .View = lvwReport\r\n .SmallIcons = Me.ctlImageList.Object\r\n .ColumnHeaders.Clear\r\n .ColumnHeaders.Add , \"c1\", \"Icons\"\r\n End With<\/span>\r\n \r\n Call<\/span> ImagesInListView\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ImageListFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>objImageList As <\/span>MSComctlLib.ImageList\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM MSysResources WHERE Extension = ''PNG''\", dbOpenSnapshot)\r\n \r\n Set<\/span> objImageList = Me.ctlImageList.Object\r\n \r\n objImageList.ListImages.Clear\r\n \r\n Do While<\/span> Not<\/span> rst.EOF\r\n Call<\/span> amvAddIconToImageListFromResourcesByName(objImageList, rst!Name)\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n \r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nFüllen des ImageList-Steuerelements<\/h2>\n
Dim <\/span>objListImage As <\/span>MSComctlLib.ListImage\r\nFor Each objListImage In objImageList.ListImages\r\n Debug.Print<\/span> objListImage.Index, objListImage.Key\r\nNext<\/span> objListImage<\/pre>\n1 apple\r\n2 add\r\n3 data\r\n4 hamburger<\/pre>\n
ListView-Einträge mit Icons hinzufügen<\/h2>\n
Private Sub <\/span>ImagesInListView()\r\n Dim <\/span>objListView As <\/span>MSComctlLib.ListView\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM MSysResources WHERE Extension = ''PNG''\", dbOpenSnapshot)\r\n \r\n Set<\/span> objListView = Me.ctlListView.Object\r\n objListView.ListItems.Clear\r\n \r\n Do While<\/span> Not<\/span> rst.EOF\r\n objListView.ListItems.Add , \"a\" & rst!ID, rst!Name, , CStr(rst!Name)\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n \r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing End Sub<\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2025_06\/pic_1577_003.png\")
<\/p>\nErst ImageList füllen, dann zu Icons oder SmallIcons zuweisen<\/h2>\n
Icon-Größen<\/h2>\n
Wenn MSysResources nicht nur Icons enthält<\/h2>\n
Eindeutigkeit der Namen in MSysResources<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n