去掉所有Form上TextBox的空白

VB.net

1. Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2.     Dim tbs() As TextBox = FindAllTextBox(Me)
3.     For Each tb As TextBox In tbs
4.         AddHandler tb.Leave, AddressOf TrimTextBox
5.     Next
6. End Sub
7.  
8. Private Sub TrimTextBox(ByVal sender As Object, ByVal e As EventArgs)
9.     Dim tb As TextBox = sender
10.     tb.Text = tb.Text.Trim()
11. End Sub
12.  
13. Private Function FindAllTextBox(ByVal ctrl As Control) As TextBox()
14.     Dim list As New List(Of TextBox)
15.     For Each c As Control In ctrl.Controls
16.         If c.GetType().Name = "TextBox" Then
17.             list.Add(c)
18.         Else
19.             list.AddRange(FindAllTextBox(c))
20.         End If
21.     Next
22.     Return list.ToArray()
23. End Function