Rubrik: Oberfläche · Fenster | VB-Versionen: VB4, VB5, VB6 | 16.01.01 |
Steuerelemente zurücksetzen Dieser Tipp zeigt, wie man alle Eingabe-Steuerelement eines Formulars auf einmal zurücksetzt. | ||
Autor: Fabian Holzer | Bewertung: | Views: 16.020 |
www.vb-appz.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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