{"id":55001235,"date":"2020-06-01T00:00:00","date_gmt":"2020-07-10T09:41:03","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1235"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Icons_in_AccessFormularen_und_Berichten","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Icons_in_AccessFormularen_und_Berichten\/","title":{"rendered":"Icons in Access-Formularen und Berichten"},"content":{"rendered":"

\"\"<\/p>\n

Die Formulare in Access-Anwendungen lassen sich mittlerweile recht einfach mit Icons ausstatten. Nicht mit Bordmitteln gelingt jedoch das Anzeigen eines benutzerdefinierten Icons in der Titelleiste von Formularen und Berichten. Dabei wäre es doch ein optischer Leckerbissen, wenn sich die Formulare schon in der linken oberen Ecke voneinander unterscheiden würden – und wenn Sie die Objekte der Access-Datenbank als Registerkarten anzeigen, sind sie auch noch praktisch. In diesem Beitrag schauen wir uns zwei Möglichkeiten an, wie Sie das gewünschte und zum Formular passende Icon einbauen.<\/b><\/p>\n

Individuelles Icon für Formulare<\/b><\/p>\n

Ziel dieses Beitrags ist es, Formulare mit individuellen Icons auszustatten wie es in der Abbildung aus Bild 1 der Fall ist.<\/p>\n

\"Formulare<\/p>\n

Bild 1: Formulare mit Icons<\/span><\/b><\/p>\n

Dazu benötigen wir erst einmal einige API-Funktionen und Konstanten sowie eine Funktion, welche diese Elemente nutzt. Im Detail handelt es sich um die beiden API-Funktionen LoadImage <\/b>und SendMessage<\/b> (siehe Listing 1). Die LoadImage<\/b>-Funktion lädt die .ico<\/b>-Datei, die mit dem Parameter lpsz <\/b>übergeben wird, in den Speicher und liefert ein Handle der Adresse zurück, an der sich das Bild dann befindet. Die übrigen Parameter nehmen beispielsweise den Bildtyp (IMAGE_ICON<\/b>), die Abmessungen in Pixeln und die Art des Ladevorgangs entgegen (LR_LOADFROMFILE<\/b>). Das Ergebnis ist ein Wert mit dem Datentyp Long<\/b>.<\/p>\n

Public <\/span>Declare Function LoadImage Lib \"user32\" Alias \"LoadImageA\" (ByVal hInst As Long<\/span>, ByVal lpsz As String<\/span>, _\r\n     ByVal un1 As Long<\/span>, ByVal n1 As Long<\/span>, ByVal n2 As Long<\/span>, ByVal un2 As Long<\/span>) As Long<\/span>\r\n     \r\nPublic <\/span>Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long<\/span>, ByVal wMsg As Long<\/span>, _\r\n     ByVal wParam As Long<\/span>, lParam As <\/span>Any) As Long<\/span>\r\n     \r\nPublic <\/span>Const IMAGE_ICON = 1\r\nPublic <\/span>Const LR_LOADFROMFILE = &H10\r\nPublic <\/span>Const WM_SETICON = &H80\r\nPublic <\/span>Const ICON_SMALL = 0\r\nPublic Function <\/span>SetFormIcon(ByVal lngHWnd As Long<\/span>, ByVal strIconFile As String<\/span>) As Boolean<\/span>\r\n     Dim <\/span>lngIcon As Long<\/span>\r\n     lngIcon = LoadImage(0, strIconFile, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)\r\n     If <\/span>lngIcon <> 0 Then<\/span>\r\n         Call<\/span> SendMessage(lngHWnd, WM_SETICON, ICON_SMALL, ByVal lngIcon)\r\n     End If<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 1: Code zum Anzeigen von Icons aus dem Dateisystem<\/span><\/b><\/p>\n
Die Funktion SendMessage <\/b>ist flexibel einsetzbar. In diesem Fall soll es das Handle auf das Icon zum Fenster mit einem bestimmten Handle schicken.<\/p>\n
Das erledigen wir mit der Funktion SetFormIcon<\/b>. Diese erwartet das Handle des Formulars, das mit dem neuen Icon ausgestattet werden soll, sowie den Pfad zur .ico<\/b>-Datei als Parameter.<\/p>\n
Dann ermittelt sie zuerst mit einem Aufruf der Funktion LoadImage <\/b>das Handle auf die in den Speicher geladene Bilddatei und ruft dann, falls lngIcon <\/b>nicht gleich 0 <\/b>ist, die Funktion SendMessage <\/b>auf. Dieser übergibt sie das Handle des Zielformulars, als Nachricht WM_SETICON<\/b>, als Parameter ICON_SMALL <\/b>und schließlich das Handle auf die Bilddatei.<\/p>\n
Formular mit Icon ausstatten<\/b><\/p>\n
Um das Formular über die Funktion SetFormIcon <\/b>mit einem Formular auszustatten, bietet sich das Ereignis Beim Laden <\/b>an. Wir fügen eine entsprechende Ereignisprozedur hinzu und legen dort die folgende Anweisung an:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     SetFormIcon Me.hwnd, CurrentProject.Path & \"form.ico\"\r\nEnd Sub<\/span><\/pre>\n
Damit wird die angegebene .ico<\/b>-Datei in den Speicher geladen und dem Formular zugewiesen. Mit CurrentProject.Path <\/b>geben wir an, dass sich die Datei im Verzeichnis der aktuellen Datenbank befindet.<\/p>\n
Variante ohne .ico-Dateien im Dateisystem<\/b><\/p>\n
Die Optik von Formularen gewinnt deutlich mit individuellen Icons. Der kleine Nachteil ist jedoch, dass sich die .ico<\/b>-Dateien dafür im Verzeichnis der Datenbank befinden müssen (zumindest in unserem Beispiel – Sie können natürlich auch andere Verzeichnisse verwenden).<\/p>\n
Auf dieses Verzeichnis hat der Benutzer in der Regel schreibenden Zugriff – und wenn das der Fall ist, kann er auch die .ico<\/b>-Dateien versehentlich löschen.<\/p>\n
Wir probieren eine Zwischenvariante aus, bei der wir die .ico<\/b>-Dateien in der Tabelle MSysResources <\/b>speichern, die auch für das Speichern von Bildern für Schaltflächen et cetera in Formularen verwendet wird.<\/p>\n
Wir schreiben die Bilder dann zur Laufzeit ins Verzeichnis der Datenbank, damit diese sicher vorhanden sind, wenn das Formular diese anfragt.<\/p>\n
Für diese Methode benötigen wir eine weitere Funktion – aber zunächst wollen wir die gewünschten Bilddateien in die Tabelle MSysResources <\/b>einfügen. Das geht am einfachsten über einen eingebauten Weg: Dazu öffnen Sie ein Formular in der Entwurfsansicht und zeigen dann mit dem Ribbon-Befehl Entwurf|Steuerelemente|Bild einfügen|Durchsuchen… <\/b>einen Grafik einfügen<\/b>-Dialog an.<\/p>\n
<\/p>\n
Mit diesem wählen Sie dann die .ico<\/b>-Datei aus, die Sie als Formular-Icon anzeigen möchten (siehe Bild 2).<\/p>\n
\"Icons<\/p>\n
Bild 2: Icons zur Tabelle MSysResources hinzufügen<\/span><\/b><\/p>\n
Wir schauen uns das Ergebnis in der Tabelle MSysResources <\/b>an. Diese finden Sie, wenn Sie in den Navigationsoptionen des Navigationsbereiches (Kontextmenü der Titelleiste des Navigationsbereiches, Eintrag Navigationsoptionen…<\/b>) die Optionen Ausgeblendete Objekte anzeigen <\/b>und Systemobjekte anzeigen <\/b>aktivieren.<\/p>\n
Öffnen Sie diese Tabelle, finden Sie zwar einen Eintrag vor, in dessen Feld Name <\/b>die Bezeichnung add <\/b>steht. Allerdings enthält das Feld Extension <\/b>den Ausdruck png<\/b> (siehe Bild 3).<\/p>\n
\"Die<\/p>\n
Bild 3: Die Bilddatei in der Tabelle MSysResources<\/span><\/b><\/p>\n
Wenn Sie die Datei extrahieren, indem Sie doppelt auf das Anlage-Feld klicken und im Dialog Anlegen <\/b>die Schaltfläche Speichern unter… <\/b>betätigen (siehe Bild 4), finden Sie anschließend im Windows Explorer eine .png<\/b>-Datei vor.<\/p>\n
\"Extrahieren<\/p>\n
Bild 4: Extrahieren der Bilddatei aus dem Anlagefeld<\/span><\/b><\/p>\n
Und diese können wir leider nicht als Quelle für das Icon eines Formulars verwenden – hier werden nur .ico<\/b>-Dateien akzeptiert. Es gibt jedoch noch einen Ausweg: Dabei fügen wir die .ico<\/b>-Datei einfach ebenfalls über den Anlagen<\/b>-Dialog zu einem neuen Datensatz in der Tabelle MSysResources <\/b>hinzu.<\/p>\n
Tragen Sie dann für das Feld Extension <\/b>den Wert ico <\/b>ein, für Name <\/b>den Namen der Datei ohne Erweiterung und für das Feld Type<\/b> den Wert img<\/b> (siehe Bild 5).<\/p>\n
\"Die<\/p>\n
Bild 5: Die .ico-Datei in der Tabelle MSysResources<\/span><\/b><\/p>\n
.ico-Datei extrahieren und als Icon im Formular nutzen<\/b><\/p>\n
Nun benötigen Sie eine Funktion, welche die gewünschte Datei aus der Tabelle MSysResources <\/b>in das Dateisystem exportiert.<\/p>\n
Dieser Funktion heißt MSysResourcesExportieren <\/b>und ist in Listing 2 zu finden.<\/p>\n
Function <\/span>MSysResourcesExportieren(strZieldatei As String<\/span>, Optional<\/span> lngID As Long<\/span>, Optional<\/span> strBildname As String<\/span>) _\r\n         As Boolean<\/span>\r\n     Dim <\/span>rst As <\/span>DAO.Recordset\r\n     Dim <\/span>strSQL As String<\/span>\r\n     Dim <\/span>strName As String<\/span>\r\n     Dim <\/span>strExtension As String<\/span>\r\n     If <\/span>lngID > 0 Then<\/span>\r\n         strSQL = \"SELECT [Data].FileData FROM MSysResources WHERE ID = \" & lngID\r\n     Else<\/span>\r\n         strName = Left<\/span>(strBildname, InStrRev<\/span>(strBildname, \".\") - 1)\r\n         strExtension = Mid<\/span>(strBildname, InStrRev<\/span>(strBildname, \".\"))\r\n         strSQL = \"SELECT [Data].FileData FROM MSysResources WHERE Name = '\" & strName & \"' AND Extension = '\" _\r\n             & strExtension & \"'\"\r\n     End If<\/span>\r\n     Set<\/span> rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)\r\n     If <\/span>Not<\/span> Len<\/span>(Dir(strZieldatei)) = 0 Then<\/span>\r\n         Kill strZieldatei\r\n     End If<\/span>\r\n     rst(0).SaveToFile strZieldatei\r\n     MSysResourcesExportieren = True<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 2: Code zum Extrahieren von Dateien aus der Tabelle MSysResources<\/span><\/b><\/p>\n
Die Prozedur erwartet die folgenden Parameter:<\/p>\n