Question

VB中怎样用循环找到所有的控件

在VB.NET中，一个页面上有多个控件，有多种不同类型的控件，我要找到其中某一类型控件中的选中的控件，请问：用FOR EACH 循环怎样写。

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListItem(Me.Controls)
End Sub

Public Sub ListItem(ByVal pressColtrols As System.Windows.Forms.Control.ControlCollection)
For Each Item As System.Windows.Forms.Control In pressColtrols
ListBox_PrsStr.Items.Add(Item.ToString)
If Item.Controls IsNot Nothing Then
ListItem(Item.Controls)
End If
Next
End Sub

Answer 2

For Each o As Object In Me.Controls
Me.RichTextBox1.Text += "\n" + o.ToString()
Next