VB.net实现清除窗口所有输入框内容

1. Public Class Form1
3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
4.         ClearText(Me) ‘若想清除某个特定容器的输入框内容，可将Me替换为相应控件
5.     End Sub
7.     Private Sub ClearText(ByVal container As Control)
8.         Dim ctrl As Control
9.         For Each ctrl In container.Controls
10.             If TypeOf (ctrl) Is TextBox Then
11.                 ctrl.Text = ""
12.             End If
13.             If ctrl.HasChildren Then
14.                 ClearText(ctrl)
15.             End If
16.         Next
17.     End Sub
18. End Class
19.