Thema: TextBox-Eintrag speichern

Home

Bei einer ausgeblendeten UserForm (Methode: Hide) werden Eingabewerte im Speicher behalten und beim Show-Aufruf wieder angezeigt. Wird die UserForm allerdings über den Unload Me-Befehl geschlossen, gehen die Werte verloren. In diesem Beispiel werden sie in der Registry zwischengespeichert, so dass auch nach dem Schliessen der UserForm wieder auf sie zugegriffen werden kann. TextBox mit Gedächtnis

Initialisierung
- Prozedur: UserForm_Initialize
- Art: Ereignis
- Modul: Klassenmodul der UserForm
- Zweck: Initialisierung
- Ablaufbeschreibung:
  - Die Registry wird ausgelesen
  - Der Wert wird in eine TextBox eingetragen
  - Der TextBox-Eintrag wird zum Überschreiben markiert
- Code:
```
Private Sub UserForm_Initialize()
   With txtMemory
      .Text = GetSetting("xlTutorial", "UFTest", "Text")
      .SelStart = 0
      .SelLength = .TextLength
   End With
End Sub
```
Eintrag speichern
- Prozedur: cmdOK_Click
- Art: Ereignis
- Modul: Klassenmodul der UserForm
- Zweck: Eintrag in einer TextBox speichern
- Ablaufbeschreibung:
  - TextBox-Wert wird in die Registry eingetragen
- Code:
```
Private Sub cmdOK_Click()
   SaveSetting "xlTutorial", "UFTest", "Text", txtMemory.Text
   Unload Me
End Sub
```
Speicher löschen
- Prozedur: cmdDelete_Click
- Art: Ereignis
- Modul: Klassenmodul der UserForm
- Zweck: Gespeicherten Wert löschen
- Ablaufbeschreibung:
  - Registryeintrag wird gelöscht
- Code:
```
Private Sub cmdDelete_Click()
   DeleteSetting "xlTutorial"
End Sub
```