'Wert (String/Text) für einen bestimmten
'Schlüsselnamen speichern. Sollte der Schlüssel nicht
'existieren, wird dieser autom. erstellt.
'
'Parameterbeschreibung
'---------------------
'hKey (Hauptschlüssel) : z.B. HKEY_CURRENT_USER
'sPath (Schlüsselpfad) : z.B. MeineAnwendung
'sValue (Schlüsselname): z.B. Path
'iData (Schlüsselwert) : z.B. c:\programme\MeineAnwendung
 
Sub fStringSpeichern(hKey As Long, sPath As String, _
  sValue As String, iData As String)
 
  Dim vRet As Variant
 
  RegCreateKey hKey, sPath, vRet
  RegSetValueEx vRet, sValue, 0, REG_SZ, ByVal iData, _
    Len(iData)
  RegCloseKey vRet
End Sub
Private Sub cmdSpeichern_Click()
Dim prnName As String
Dim prnPfad As String
Dim prnPfadGesendet As String
'wenn noch kein Pfad gespeichert, dann zeige Inhalt des Textfeldes an
If prnPfad = "" Then prnPfad = txtPfad.Text
If prnName = "" Then prnName = txtName.Text
If prnPfadGesendet = "" Then prnPfadGesendet = txtGesendeteMails
'den im Textfeld eingegebenen Text speichern und die Werte in die
'Registry eintragen
fStringSpeichern HKEY_CURRENT_USER, "MeineAnwendung", "Pfad", prnPfad
fStringSpeichern HKEY_CURRENT_USER, "MeineAnwendung", "Name", prnName
fStringSpeichern HKEY_CURRENT_USER, "MeineAnwendung", "PfadGesendet", _
  prnPfadGesendet
End Sub
 
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Private Sub UserForm_Activate()
'zuletzt eingestellten Pfad ermitteln
Dim prnPfad As String
prnPfad = fWertLesen(HKEY_CURRENT_USER, "MeineAnwendung", "Pfad")
prnName = fWertLesen(HKEY_CURRENT_USER, "MeineAnwendung", "Name")
prnPfadGesendet = fWertLesen(HKEY_CURRENT_USER, "MeineAnwendung", _
  "PfadGesendet")
'und in den Labels zur Anzeige bringen
lblPfad.Caption = "empfangene Mails:" & "  " & prnPfad
lblGesendete.Caption = "gesendete Mails:" & "  " & prnPfadGesendet
lblName.Caption = "eingetragener Name:" & "  " & prnName
'gleichzeitig auch im Textfeld als Vorlage eintragen
txtPfad = fWertLesen(HKEY_CURRENT_USER, "MeineAnwendung", "Pfad")
txtName = fWertLesen(HKEY_CURRENT_USER, "MeineAnwendung", "Name")
txtGesendeteMails = fWertLesen(HKEY_CURRENT_USER, "MeineAnwendung", _
  "PfadGesendet")
End Sub