Feedback

VB - Alle Textboxen zurücksetzen

Veröffentlicht von am 31.03.2007
(4 Bewertungen)
Diese Funktion setzt alle Textboxen eines Formulares auf einen Schlag zurück.
Private Sub ClearAllTextboxes()
        For i As Integer = 0 To Me.Controls.Count - 1
            Dim TextboxControl As Control = New Control(CStr(i))
            TextboxControl = Me.Controls(i)
            If TypeOf TextboxControl Is TextBox Then
                TextboxControl.Text = ""
            End If
        Next
End Sub
Abgelegt unter Textbox, Control.

5 Kommentare zum Snippet

Tim Hartwig schrieb am 31.03.2007:
Das hätte auch gereicht:

For Each C As Control In Me.Controls
If TypeOf C Is TextBox Then
C.Text = ""
End If
Next
Volker Steitz schrieb am 01.04.2007:
Danke für die Vereinfachung.
Xqgene schrieb am 21.06.2007:
funktioniert leider nicht, wenn die TextBox in einer Panel z.B. liegt.

http://dotnet-snippets.de/dns/Snippet_detail.aspx?=383
Aebi Michael schrieb am 08.10.2009:
Wenn man auch in anderen Controls die Textboxen zurücksetzen möchte dann muss man halt auch noch durch diese interieren. In diesem Fall hier rekursiv auf alle controls aufrufen welche nicht eine Textbox sind.
Aebi Michael schrieb am 08.10.2009:
Ok, habe deinen Link erst jetzt angeschaut. Und genau das meinte ich auch ;)
 

Logge dich ein, um hier zu kommentieren!