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
5 Kommentare zum Snippet