Feedback

VB - Alle Textboxen zurücksetzen

Veröffentlicht von am 3/31/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 3/31/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 4/1/2007:
Danke für die Vereinfachung.
Xqgene schrieb am 6/21/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 10/8/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 10/8/2009:
Ok, habe deinen Link erst jetzt angeschaut. Und genau das meinte ich auch ;)
 

Logge dich ein, um hier zu kommentieren!