获取窗体上的所有控件

获取窗体上的所有控件

Private AllControls As New List(Of Control)()

Private Sub InitializeControlList(ByVal ctl As Control)

Dim q As New Queue(Of Control.ControlCollection)()

q.Enqueue(ctl.Controls)

While q.Count > 0

Dim controls As Control.ControlCollection = DirectCast(q.Dequeue(), Control.ControlCollection)

If controls Is Nothing OrElse controls.Count = 0 Then

Continue While

End If

For Each control As Control In controls

q.Enqueue(control.Controls)

Me.AllControls.Add(control)

Next

End While

End Sub