Steuerelemente zurücksetzen Dieser Tipp zeigt, wie man alle Eingabe-Steuerelement eines Formulars auf einmal zurücksetzt.
Autor:   Fabian Holzer	Bewertung:     [ Jetzt bewerten ]	Views:  16.585
www.vb-appz.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der nachfolgende Tipp zeigt, wie man alle Eingabe-Steuerelemente eines gesamten Formulars zurücksetzt, ohne jedes Steuerelement einzeln ansprechen zu müssen.

' Steuerelemente zurücksetzen
Public Sub ResetControls(F As Form)
  Dim TheControl As Control
  Dim i As Integer
 
  For Each TheControl In F
    If TypeOf TheControl Is TextBox Then
      TheControl.Text = ""
    ElseIf TypeOf TheControl Is ComboBox Then
      If TheControl.Style = 2 Then
	  TheControl.Text = ""
      Else
        TheControl.ListIndex = -1
      End If
    ElseIf TypeOf TheControl Is CheckBox Then
      TheControl.Value = 0
    ElseIf TypeOf TheControl Is ListBox Then
      TheControl.Clear
    ElseIf TypeOf TheControl Is OptionButton Then
      TheControl.Value = 0
    End If
  Next
End Sub

Erläuterungen:
Die For-Next - Schleife durchläuft alle auf dem Formular F platzierten Steuerelemente. Mit Hilfe der Funktion TypeOf wird der Typ des Steuerelements ermittelt. Handelt es sich hierbei um eine TextBox oder ComboBox, so wird die Text-Eigenschaft zurückgesetzt, bei CheckBoxen und OptionButtons wird die Value-Eigenschaft auf 0 gesetzt (nicht markiert) und bei ListBoxen werden alle vorhandenen Listen-Einträge gelöscht (Clear-Befehl).

Beispiel für den Aufruf:

Private Sub cmdReset_Click()
  ResetControls Me
End Sub