Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Benutzerdaten abrufen: INI-Datei, Registry oder Active Directory
Listing 7.4 Die in der Form eingegebenen Benutzerdaten lassen sich in der Registry für den späteren Einsatz
zwischenspeichern
Sub pBenutzerdatenInRegistrySchreiben()
Dim strAnwendung As String
Dim strSection As String
strAnwendung = "Word"
strSection = "Benutzer"
SaveSetting AppName:=strAnwendung, Section:=strSection, _
Key:="Vorname", Setting:=gstrVorname
SaveSetting AppName:=strAnwendung, Section:=strSection, _
Key:="Nachname", Setting:=gstrNachname
SaveSetting AppName:=strAnwendung, Section:=strSection, _
Key:="Straße", Setting:=gstrStraße
SaveSetting AppName:=strAnwendung, Section:=strSection, _
Key:="PLZ", Setting:=gstrPLZ
SaveSetting AppName:=strAnwendung, Section:=strSection, _
Key:="Ort", Setting:=gstrOrt
End Sub
Abbildung 7.11 Ein Blick in die Registry zeigt den Aufbau der gespeicherten Benutzerdaten
Das Auslesen erfolgt ähnlich einfach wie das Speichern, nutzen Sie hierzu das Kommando
GetSetting. Auch hier folgen mit strAnwendung und strSection zuerst die genaue
Pfadangabe und dann der Name des Schlüssels. Die letzte Variable bleibt leer – hier
können Sie einen Default-Wert angeben, der zurückgegeben wird, falls der Schlüssel
noch nicht vorhanden sein sollte.
Listing 7.5 Mit dieser Routine lassen sich Benutzerdaten aus der Registry auslesen
Sub pBenutzerdatenAusRegistryLesen()
Dim strAnwendung As String
Dim strSection As String
strAnwendung = "Word"
strSection = "Benutzer"
211