Symbole und Icons spielen in Microsoft-Access-Anwendungen eine oft unterschätzte Rolle. Dabei können sie die Bedienbarkeit und Verständlichkeit einer Datenbank erheblich verbessern – insbesondere dann, wenn Dateien, Ordner oder Dokumenttypen visuell unterschieden werden sollen. Während Access für viele Steuerelemente wie TreeView, ListView, Symbolleisten oder Ribbon-Schaltflächen grundsätzlich Icon-Unterstützung bietet, stellt sich in der Praxis häufig die Frage:Wie lassen sich die echten System-Icons von Dateien – so wie sie auch im Windows-Explorer angezeigt werden – in einer Access-Anwendung verwenden? Genau das zeigen wir in diesem Artikel und liefern auch noch das Know-how, um die eingelesenen Icons direkt in der Tabelle MSysResources zu speichern. Von dort können wir sie beispielsweise in ein ImageList-Steuerelement schreiben – um sie dann in TreeView- und ListView-Steuerelementen anzuzeigen.<\/b><\/p>\n
Mit Bordmitteln von Access ist das Ermitteln der Icon-Dateien nicht möglich. Stattdessen ist ein gezielter Zugriff auf die Windows-Shell erforderlich, um Datei-Icons dynamisch zu ermitteln und für die eigene Benutzeroberfläche nutzbar zu machen.<\/p>\n
Genau hier setzt die in diesem Artikel vorgestellte Technik an: Mithilfe der Windows-API lassen sich die systemweit registrierten Icons für beliebige Dateitypen auslesen, in ein ImageList<\/b>-Steuerelement übernehmen und anschließend in verschiedenen Access-Steuerelementen einsetzen.<\/p>\n
Der große Vorteil dieser Vorgehensweise liegt darin, dass die Icons automatisch dem jeweils installierten Programm entsprechen. PDF-Dateien, Word-Dokumente, ZIP-Archive oder ausführbare Dateien werden genauso dargestellt, wie der Benutzer sie aus dem Windows-Explorer kennt – also ohne zusätzliche Grafikdateien.<\/p>\n
Der Artikel zeigt Schritt für Schritt, wie diese Technik umgesetzt wird, wie sich Icons performant zwischenspeichern lassen und an welchen Stellen einer Access-Datenbank sie sinnvoll eingesetzt werden können.<\/p>\n
Die Icons können wir etwa für die Anzeige von Dateien in einem ListView<\/b>-Steuerelement in einem Formular nutzen (siehe Bild 1), wie wir es im Artikel Access: Ordner und Dateien im Formular anzeigen <\/b>(www.vbentwickler.de\/3<\/b>) vorstellen.<\/p>\n
![\"Dateien](\"..\/fileadmin\/_temp_\/2025_06\/pic_492_001.png\")
<\/p>\n
Bild 1: Dateien mit Icons in einem ListView-Steuerelement<\/span><\/b><\/p>\n Für die nachfolgend vorgestellten Techniken benötigen wir als Erstes eine Reihe von API-Funktionen, Konstanten und Typen.<\/p>\n Diese haben wir in Listing 1 zusammengestellt.<\/p>\n Listing 1: API-Deklarationen<\/span><\/b><\/p>\n Die Tabelle MSysResources<\/b> speichert die für eine Access-Anwendung notwendigen Ressourcen wie etwa die Bilddateien, die in Formularen, Berichten und Steuerelementen wie der Schaltfläche oder dem Bild-Steuerelement angezeigt werden.<\/p>\n Dies ist der Platz, an dem wir auch die Icon-Dateien speichern können. Diese können wir dann beispielsweise von dort in ein ImageList<\/b>-Steuerelement übertragen, um sie von dort aus in einem TreeView<\/b>– oder ListView<\/b>-Steuerelement anzuzeigen.<\/p>\n Die Hauptfunktion heißt SaveFileIconToMSysResources <\/b>und erwartet drei Parameter:<\/p>\n Die Funktion haben wir in Listing 2 abgebildet.<\/p>\n Listing 2: Die Funktion SaveFileIconToMSysResources<\/span><\/b><\/p>\n Sie holt als Erstes mit der Funktion GetFileIconHandle <\/b>ein Handle auf das File-Icon der Datei, die wir mit strFilePath <\/b>übergeben. Außerdem übergeben wir dieser den Parameter bolSmallIcon<\/b>.<\/p>\n Wenn das Icon-Handle nicht 0 <\/b>ist, holen wir das Icon hinter dem Handle mit einer weiteren Funktion namens IconHandleToPicture<\/b>, der wir das Handle übergeben. Ist das Ergebnis nicht leer, legen wir mit der Funktion SavePicture<\/b> eine temporäre Datei namens icon.ico <\/b>im aktuellen Datenbankordner an. Dieser übergeben wir die Objektvariable mit dem Bild (pic<\/b>) sowie den Pfad der zu speichernden Datei.<\/p>\n Schließlich rufen wir die Funktion SaveIconToMSysResources <\/b>auf, welche das Icon einliest und in der Tabelle MSysResources <\/b>speichert, und löschen die temporäre Datei wieder.<\/p>\n Die Funktion GetFileIconHandle <\/b>aus Listing 3 erwartet den Pfad der Datei, deren Icon wir ermitteln wollen, sowie die Angabe, ob ein kleines Icon geliefert werden soll.<\/p>\n Listing 3: Funktion zum Ermitteln des Handles auf das File-Icon<\/span><\/b><\/p>\n Sie stellt in der Variablen lngFlags<\/b> einige Parameter zusammen, die davon abhängen, ob wir ein kleines Icon haben möchten oder nicht.<\/p>\n SHGFI_ICON <\/b>legt fest, dass wir ein Icon abfragen wollen, SHGFI_USEFILEATTRIBUTES <\/b>steht für das Abfragen des Icons anhand des Dateityps beziehungsweise der Dateiendung und SHGFI_SMALLICON <\/b>oder SHGFI_LARGEICON <\/b>legen fest, ob wir ein kleines oder großes Icon benötigen.<\/p>\n Dann ruft sie die API-Funktion SHGetFileInfo <\/b>auf, der wir den Parameter sfi übergeben, der letztlich das Handle über die Eigenschaft hIcon <\/b>liefert.<\/p>\n Dieses gibt die Funktion als Ergebnis zurück.<\/p>\n Die nächste Funktion namens IconHandleToPicture <\/b>erwartet das Handle auf das Icon und liefert das Icon selbst als Picture<\/b>-Objekt zurück (siehe Listing 4).<\/p>\n Listing 4: Funktion zum Holen des Icons<\/span><\/b><\/p>\n Sie verwendet wiederum die API-Funktion OleCreatePictureIndirect<\/b>, um das Bild in die Variable pic<\/b> zu füllen. Diese gibt die Funktion als Ergebnis zurück.<\/p>\n Das zwischenzeitlich von der Hauptprozedur in einer temporären Datei gespeicherte Icon wollen wir nun noch in der Tabelle MSysResources <\/b>speichern.<\/p>\n Das erledigen wir mit der Prozedur SaveIconToMSysResources <\/b>aus Listing 5.<\/p>\n Listing 5: Funktion zum Speichern des Icons in der Tabelle MSysResources<\/span><\/b><\/p>\n Diese erwartet die folgenden Parameter:<\/p>\n Die Prozedur löscht zunächst alle bereits vorhandenen Einträge aus der Tabelle MSysResources <\/b>mit dem für strResourceName <\/b>angegebenen Namen. Dann holt sie ein Recordset auf Basis dieser Tabelle und fügt einen neuen Datensatz hinzu. Für diesen stellt sie das Feld Name <\/b>auf den Wert aus strResourceName<\/b>, Extension <\/b>auf den Wert aus strExtension <\/b>und das Feld Type <\/b>auf img <\/b>ein.<\/p>\n Dann referenziert sie das im Feld Data <\/b>enthaltene Recordset und fügt auch hier einen neuen Datensatz hinzu. Für diesen lädt sie als Erstes mit der Methode LoadFromFile <\/b>die Icon-Datei in das Feld FileData<\/b>. Dann stellt sie den Wert des Feldes Filename <\/b>auf den Wert aus strResourceName <\/b>plus der Dateiendung .ico <\/b>ein und speichert dann beide Recordsets mit der Update<\/b>-Methode.<\/p>\n Damit können wir nun das Icon einer Datei zur Tabelle MSysResources <\/b>hinzufügen. Dazu rufen wir die Prozedur SaveFileIconToMSysResources <\/b>beispielsweise wie folgt auf:<\/p>\n Dies speichert das Icon, das vom System für PDF-Dateien verwendet wird, in der Tabelle MSysResources<\/b>.<\/p>\n Das Ergebnis können wir uns zuerst in dieser Tabelle ansehen, die wir allerdings erst im Navigationsbereich finden, nachdem wir die Systemobjekte und die ausgeblendeten Objekte über die Optionen des Navigationsbereichs eingeblendet haben. Öffnen wir die Tabelle dann, erhalten wir etwa die Datensätze wie in Bild 2.<\/p>\n Bild 2: Die Tabelle MSysResources mit einige Beispieldateien<\/span><\/b><\/p>\n Mit einem Doppelklick auf das Klammer-Symbol und der Auswahl der Schaltfläche Öffnen <\/b>im dann erscheinenden Dialog Anlagen <\/b>wird die Datei im entsprechenden Programm angezeigt.<\/p>\n Wir können uns die hier gespeicherten Dateien allerdings auch in der Übersicht ansehen.<\/p>\n Dazu öffnen wir ein neues, leeres Formular in der Entwurfsansicht und wählen aus dem Ribbon den Befehl Steuerelemente|Bild einfügen aus. Dies öffnet einen Bereich, der die enthaltenen Icons anzeigt (siehe Bild 3).<\/p>\n Bild 3: Die in MSysResources gespeicherten Icons im Überblick<\/span><\/b><\/p>\n Die so gespeicherten Daten können wir nun weiterverarbeiten – zum Beispiel, indem wir diese in ein ImageList<\/b>-Steuerelement übertragen und sie dann als Icons in einem TreeView<\/b>– oder ListView<\/b>-Steuerelement anzeigen.<\/p>\n Wie das gelingt, zeigen wir im Artikel Access: Ordner und Dateien im Formular anzeigen <\/b>(www.vbentwickler.de\/3<\/b>).<\/p>\n Enthaltene Beispieldateien:<\/p>\n DateiIconsEinlesenUndNutzen.accdb<\/p>\nVorbereitung: API-Funktionen und -Deklarationen<\/h2>\n
#If VBA7 Then\r\n Private <\/span>Declare PtrSafe Function SHGetFileInfo Lib \"shell32.dll\" Alias \"SHGetFileInfoW\" ( _\r\n ByVal pszPath As Long<\/span>Ptr, ByVal dwFileAttributes As Long<\/span>, _\r\n psfi As <\/span>SHFILEINFO, ByVal cbFileInfo As Long<\/span>, _\r\n ByVal uFlags As Long<\/span>) As Long<\/span>Ptr\r\n#Else\r\n Private <\/span>Declare Function SHGetFileInfo Lib \"shell32.dll\" Alias \"SHGetFileInfoW\" ( _\r\n ByVal pszPath As Long<\/span>, _\r\n ByVal dwFileAttributes As Long<\/span>, _\r\n psfi As <\/span>SHFILEINFO, _\r\n ByVal cbFileInfo As Long<\/span>, _\r\n ByVal uFlags As Long<\/span>) As Long<\/span>\r\n#End If\r\nPrivate <\/span>Declare PtrSafe Function OleCreatePictureIndirect Lib \"oleaut32.dll\" ( _\r\n ByRef picDesc As <\/span>PICTDESC, _\r\n ByRef RefIID As <\/span>GUID, _\r\n ByVal fPictureOwnsHandle As Long<\/span>, _\r\n ByRef IPic As Object<\/span>) As Long<\/span>\r\nPrivate <\/span>Type GUID\r\n Data1 As Long<\/span>\r\n Data2 As Integer<\/span>\r\n Data3 As Integer<\/span>\r\n Data4(7) As Byte<\/span>\r\nEnd Type\r\nPrivate <\/span>Type PICTDESC\r\n cbSizeofStruct As Long<\/span>\r\n picType As Long<\/span>\r\n hImage As Long<\/span>Ptr\r\n xExt As Long<\/span>\r\n yExt As Long<\/span>\r\nEnd Type\r\nPrivate <\/span>Type SHFILEINFO\r\n hIcon As Long<\/span>Ptr\r\n iIcon As Long<\/span>\r\n dwAttributes As Long<\/span>\r\n szDisplayName As String<\/span> * 260\r\n szTypeName As String<\/span> * 80\r\nEnd Type\r\nPrivate <\/span>Const PICTYPE_ICON = 3\r\nPrivate <\/span>Const SHGFI_ICON = &H100\r\nPrivate <\/span>Const SHGFI_SMALLICON = &H1\r\nPrivate <\/span>Const SHGFI_LARGEICON = &H0\r\nPrivate <\/span>Const SHGFI_USEFILEATTRIBUTES = &H10\r\nPrivate <\/span>Const FILE_ATTRIBUTE_NORMAL = &H80<\/pre>\nSpeichern von Icon-Dateien in der Tabelle MSysResources<\/h2>\n
Funktion zum Speichern von Icon-Dateien<\/h2>\n
\n
Public Sub <\/span>SaveFileIconToMSysResources(ByVal strFilePath As String<\/span>, ByVal strResourceName As String<\/span>, _\r\n Optional<\/span> ByVal bolSmallIcon As Boolean<\/span> = True<\/span>)\r\n Dim <\/span>hIcon As Long<\/span>Ptr\r\n Dim <\/span>pic As Object<\/span>\r\n Dim <\/span>strTempFile As String<\/span>\r\n \r\n hIcon = GetFileIconHandle(strFilePath, bolSmallIcon)\r\n If <\/span>hIcon = 0 Then<\/span> Exit Sub<\/span>\r\n Set<\/span> pic = IconHandleToPicture(hIcon)\r\n If <\/span>pic Is Nothing Then<\/span> Exit Sub<\/span>\r\n strTempFile = CurrentProject.Path & \"\\icon.ico\"\r\n SavePicture pic, strTempFile\r\n SaveIconToMSysResources strResourceName, \"ICO\", strTempFile\r\n On Error Resume Next<\/span>\r\n Kill strTempFile\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\nHandle des Icons holen<\/h2>\n
Private Function <\/span>GetFileIconHandle(ByVal strFilePath As String<\/span>, Optional<\/span> ByVal bolSmall As Boolean<\/span> = True<\/span>) As Long<\/span>Ptr\r\n Dim <\/span>sfi As <\/span>SHFILEINFO\r\n Dim <\/span>lngFlags As Long<\/span>\r\n lngFlags = SHGFI_ICON Or SHGFI_USEFILEATTRIBUTES\r\n If <\/span>bolSmall Then<\/span>\r\n lngFlags = lngFlags Or SHGFI_SMALLICON\r\n Else<\/span>\r\n lngFlags = lngFlags Or SHGFI_LARGEICON\r\n End If<\/span>\r\n SHGetFileInfo StrPtr(strFilePath), FILE_ATTRIBUTE_NORMAL, sfi, LenB(sfi), lngFlags\r\n GetFileIconHandle = sfi.hIcon\r\nEnd Function<\/span><\/pre>\nIcon-Picture holen<\/h2>\n
Private Function <\/span>IconHandleToPicture(ByVal hIcon As Long<\/span>Ptr) As Object<\/span>\r\n Dim <\/span>picDesc As <\/span>PICTDESC\r\n Dim <\/span>IID_IDispatch As <\/span>GUID\r\n Dim <\/span>pic As Object<\/span>\r\n With<\/span> IID_IDispatch\r\n .Data1 = &H20400\r\n .Data4(0) = &HC0\r\n .Data4(7) = &H46\r\n End With<\/span>\r\n With<\/span> picDesc\r\n .cbSizeofStruct = Len<\/span>(picDesc)\r\n .picType = PICTYPE_ICON\r\n .hImage = hIcon\r\n End With<\/span>\r\n OleCreatePictureIndirect picDesc, IID_IDispatch, True, pic\r\n Set<\/span> IconHandleToPicture = pic\r\nEnd Function<\/span><\/pre>\nSpeichern des Icons in der Tabelle MSysResources<\/h2>\n
Private Sub <\/span>SaveIconToMSysResources(ByVal strResourceName As String<\/span>, ByVal strExtension As String<\/span>, _\r\n ByVal strTempFile As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstData As <\/span>DAO.Recordset2\r\n Dim <\/span>fld2 As <\/span>DAO.Field2\r\n Dim <\/span>strSQL As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM MSysResources WHERE Name = ''\" & strResourceName & \"''\", dbFailOnError\r\n strSQL = \"SELECT * FROM MSysResources WHERE 1 = 2\"\r\n Set<\/span> rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n rst.AddNew<\/span>\r\n rst!Name = strResourceName\r\n rst!Extension = strExtension\r\n rst!Type = \"img\"\r\n \r\n Set<\/span> rstData = rst!Data.Value\r\n rstData.AddNew<\/span>\r\n Set<\/span> fld2 = rstData!FileData\r\n fld2.LoadFromFile strTempFile\r\n rstData!FileName = strResourceName & \".ico\"\r\n rstData.Update\r\n \r\n rst.Update\r\n rst.Close\r\nEnd Sub<\/span><\/pre>\n\n
Aufruf der Prozedur SaveFileIconToMSysResources<\/h2>\n
Call<\/span> SaveFileIconToMSysResources(\"C:\\Test\\Beispiel.pdf\", \"ico_pdf\", True<\/span>)<\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_06\/pic_492_002.png\")
<\/p>\nIcons im Überblick ansehen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_06\/pic_492_003.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n