In einem weiteren Beitrag namens „Registryeinträge für VBA-Anwendungen“ (www.access-im-unternehmen.de\/1508) haben wir dir grundlegenden Techniken für das Speichern von Anwendungsdaten in der Registry vorgestellt. Im vorliegenden Beitrag gehen wir noch einen Schritt weiter und vereinfachen diesen Vorgang, sodass die Befehle zum Lesen und Schreiben der Daten noch einfacher werden. Das Verwalten von Informationen wie beispielsweise von Anwendungsdaten in der Registry ist eine Alternative zum Verwenden einer Optionentabelle oder auch einer Textdatei im Anwendungsverzeichnis. Je nachdem, an wie vielen Stellen man lesend oder schreibend auf diese Daten zugreift, möchte man den Zugriff auf die Registry möglichst einfach gestalten. Dazu stellen wir nachfolgend ein paar geeignete Werkzeuge vor.<\/b><\/p>\n
Die im obigen Artikel vorgestellten Befehle dienen dazu, Einträge zu erstellen, zu aktualisieren, zu lesen oder zu löschen. Die Befehle zum Schreiben und Lesen der Einträge haben bis zu vier Parameter.<\/p>\n
Die ersten beiden davon wiederholen sich vermutlich für die meisten oder sogar für alle Aufrufe.<\/p>\n
Die Parameter AppName<\/b>, Section<\/b>, Key <\/b>und Setting <\/b>braucht man normalerweise zum Anlegen, aber für die Einstellungen einer einzigen Anwendung ist zumindest der Wert für AppName <\/b>immer gleich. Und wenn die Anwendung nicht allzu umfangreich ist, sodass man mehrere Bereiche für die Registry-Einträge benötigt, verwendet man auch immer den gleichen Namen für den Parameter Section<\/b>.<\/p>\n
In der Lösung dieses Beitrag machen wir nicht viel mehr, als für die immer gleich bleibenden Parameter Konstanten zu definieren und diese immer automatisch zu übergeben, wenn wir eine Einstellung vornehmen oder auslesen wollen. Außerdem müssen wir natürlich, um die Handhabung wirklich zu vereinfachen, noch ein paar neue Funktionen um die eigentlichen Aufrufe bauen, damit wir tatsächlich nur die notwendigsten Daten angeben müssen.<\/p>\n
Also legen wir in einem neuen, leeren Modul namens mdlRegistryApp <\/b>zunächst einmal die folgenden beiden Konstanten an und hinterlegen für diese gleich die entsprechenden Werte:<\/p>\n Die einfachere der beiden Funktionen zum Schreiben und Lesen ist die zum Schreiben von Daten in die Registry. Hier brauchen wir neben AppName <\/b>und Section <\/b>einfach nur den Namen des Schlüssels und den Wert als Parameter anzugeben. Also bauen wir eine Funktion namens SaveAppSetting<\/b>, die nur noch die Parameter strKey <\/b>und strSetting <\/b>entgegennimmt und damit und mit den Werten der beiden Konstanten den Aufruf der Anweisung SaveSetting <\/b>durchführt:<\/p>\n Wenn wir zum Beispiel drei Werte in die Registry schreiben wollen, erledigen wir das mit der folgenden Beispielprozedur. Diese ruft einfach nur drei Mal die Prozedur SaveAppSetting <\/b>auf und übergibt Schlüssel und Wert:<\/p>\n Das Ergebnis können wir in der Registry im Zweig Computer\\HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\MeineAnwendung\\MeinAnwendungsbereich<\/b> betrachten (siehe Bild 1).<\/p>\n Bild 1: Frisch angelegte Registryschlüssel<\/span><\/b><\/p>\n Nun wollen wir diese Werte auch noch auf einfache Weise auslesen. Dazu erstellen wir eine weitere Prozedur namens GetAppSetting<\/b>.<\/p>\n Diese verwendet die folgenden drei Parameter:<\/p>\n Die Prozedur finden wir in Listing 1.<\/p>\n Listing 1: Prozedur zum Auslesen eines Registrywertes<\/span><\/b><\/p>\n Sie prüft zunächst, ob der Parameter bolSaveIfNotExists <\/b>den Wert True <\/b>enthält. Ist das der Fall, rufen wir mit GetSetting <\/b>den Wert für den mit strKey <\/b>übergebenen Schlüssel ab, ohne den mit strDefault <\/b>angegebenen Standardwert mit zu übergeben.<\/p>\n Nur so können wir feststellen, ob der Schlüssel noch nicht existiert oder leer ist. Enthält strTemp <\/b>danach eine Zeichenkette mit einer Länge von 0 Zeichen, schreiben wir den mit strDefault <\/b>übergebenen Wert in einen neuen Schlüssel namens strKey<\/b>.<\/p>\n In diesem Fall tragen wir den Wert aus strDefault <\/b>in die Variable strTemp <\/b>ein, deren Wert wir später als Funktionsergebnis zurückgeben.<\/p>\n Wenn bolSaveIfNotExists <\/b>den Wert False <\/b>enthält, lesen wir einfach mit GetSetting <\/b>den Wert für den mit strKey <\/b>angegebenen Schlüssel aus und speichern das Ergebnis in strTemp<\/b>. Sollte das Ergebnis leer sein, erhalten wir stattdessen den Inhalt von strDefault <\/b>als Funktionsergebnis.<\/p>\n Zum Testen dieser Funktion können wir die folgende Beispielprozedur nutzen. Die ersten drei Anweisungen fragen die mit dem vorherigen Beispiel angelegten Einträge ab. Die vierte fragt einen noch nicht vorhandenen Schlüssel ab und soll den Wert Test <\/b>zurückgeben, falls der Schlüssel nicht vorhanden oder leer ist. Dafür wird aber kein Schlüssel angelegt. Die letzte soll einen Schlüssel neu anlegen, sofern dieser noch nicht vorhanden ist:<\/p>\n Schließlich wollen wir bestehende Schlüssel auch noch auf vereinfachte Art löschen. Dazu nutzen wir die folgende Prozedur:<\/p>\n Um alle zuvor angelegten Schlüssel wieder zu löschen, können wir die folgenden Anweisungen nutzen:<\/p>\n Dies löscht alle vorhandenen angegebenen Elemente, wirft aber einen Fehler für das zuvor nicht angelegte Element Test<\/b>.<\/p>\n Um diesen Fall einfach zu umgehen, könnten wir vor der DeleteSetting<\/b>-Anweisung die Anweisung On Error Resume Next <\/b>einfügen.<\/p>\n Mit den hier vorgestellten Prozeduren und Funktionen lassen sich das Schreiben, Lesen und Löschen von Registryeinträgen im speziell für VBA-Anwendungen vorgesehenen Bereich vereinfachen, insbesondere dadurch, dass viel weniger Parameter übergeben werden müssen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n RegistryeintraegeFuerVBAAnwendungen.accdb<\/p>\nPublic <\/span>Const cStrAppName As String<\/span> = \"MeineAnwendung\"\r\nPublic <\/span>Const cStrSection As String<\/span> = \"MeinAnwendungsbereich\"<\/pre>\nEinfaches Schreiben in die Registry<\/h2>\n
Public Sub <\/span>SaveAppSetting(strKey As String<\/span>, _\r\n strSetting As String<\/span>)\r\n SaveSetting cStrAppName, cStrSection, strKey, strSetting\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>Test_SaveAppsetting()\r\n SaveAppSetting \"Mein Schlüssel\", \"Mein Wert\"\r\n SaveAppSetting \"Noch ein Schlüssel\", \"Noch ein Wert\"\r\n SaveAppSetting \"Letzter Schlüssel\", \"Letzter Wert\"\r\nEnd Sub<\/span><\/pre>\n![\"Frisch](\"..\/fileadmin\/_temp_\/2024_05\/pic_1512_001.png\")
<\/p>\nEinfaches Lesen aus der Registry<\/h2>\n
\n
Public Function <\/span>GetAppSetting(strKey As String<\/span>, Optional<\/span> strDefault As String<\/span> = \"\", Optional<\/span> bolSaveIfNotExists As <\/span>_\r\n Boolean) As String<\/span>\r\n Dim <\/span>strTemp As String<\/span>\r\n If <\/span>bolSaveIfNotExists Then<\/span>\r\n strTemp = GetSetting(cStrAppName, cStrSection, strKey)\r\n If <\/span>Len<\/span>(strTemp) = 0 Then<\/span>\r\n SaveSetting cStrAppName, cStrSection, strKey, strDefault\r\n strTemp = strDefault\r\n End If<\/span>\r\n Else<\/span>\r\n strTemp = GetSetting(cStrAppName, cStrSection, strKey, strDefault)\r\n End If<\/span>\r\n GetAppSetting = strTemp\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>Test_GetAppSetting()\r\n Debug.Print<\/span> GetAppSetting(\"Mein Schlüssel\")\r\n Debug.Print<\/span> GetAppSetting(\"Noch ein Schlüssel\")\r\n Debug.Print<\/span> GetAppSetting(\"Letzter Schlüssel\")\r\n Debug.Print<\/span> GetAppSetting(\"Test\", \"Test\")\r\n Debug.Print<\/span> GetAppSetting(\"Neuer Schlüssel\", _\r\n \"Neuer Wert\", True<\/span>)\r\nEnd Sub<\/span><\/pre>\nSchlüssel löschen<\/h2>\n
Public Function <\/span>DeleteAppSetting(strKey As String<\/span>)\r\n DeleteSetting cStrAppName, cStrSection, strKey\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>Test_DeleteAppSetting()\r\n Debug.Print<\/span> DeleteAppSetting(\"Mein Schlüssel\")\r\n Debug.Print<\/span> DeleteAppSetting(\"Noch ein Schlüssel\")\r\n Debug.Print<\/span> DeleteAppSetting(\"Letzter Schlüssel\")\r\n Debug.Print<\/span> DeleteAppSetting(\"Test\")\r\n Debug.Print<\/span> DeleteAppSetting(\"Neuer Schlüssel\")\r\nEnd Sub<\/span><\/pre>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n