C# と VB.NET の質問掲示板

いろいろテはあるんですけど、ここではTagを使ってみたなり。

たーくさんある TextBox それぞれの Tag プロパティに、たとえば "Group1" をセットしておきます。
ほんでもって:

Public Class Form1

    ' Tag に name がついてるコントロール群を返す
    Private Function SelectControls(ByVal name As String) As IEnumerable(Of Control)
        Dim result As New List(Of Control)
        For Each c As Control In Me.Controls
            ' Tag を String に変換し、
            Dim tag As String = CType(c.Tag, String)
            ' それが name と等しければリストに追加
            If Not tag Is Nothing AndAlso tag = name Then
                result.Add(c)
            End If
        Next
        ' リストを返す
        Return result
    End Function

    ' Button1が押されたら...
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Tag に "Group1" が設定されているコントロールすべてについて
        For Each c As Control In SelectControls("Group1")
            ' その Text をクリアする。
            c.Text = ""
        Next
    End Sub

    ' Button2が押されたら...
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' Tag が "Group2" なものについて以下同文。
        For Each c As Control In SelectControls("Group2")
            c.Text = ""
        Next
    End Sub

End Class

> c.Controls にも再帰させた方が良いかも。

あー。んじゃこんなんでいいんかな。
# VBめったにいぢらんからよぉわかんネーヨ

Public Class Form1

    Private Shared Function SelectControls(ByVal ctls As Control.ControlCollection, ByVal name As String) As IEnumerable(Of Control)
        Dim result As New List(Of Control)
        For Each c As Control In ctls
            If c.HasChildren Then
                result.AddRange(SelectControls(c.Controls, name))
            End If
            Dim tag As String = CType(c.Tag, String)
            If Not tag Is Nothing AndAlso tag = name Then
                result.Add(c)
            End If
        Next
        Return result
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each c As Control In SelectControls(Controls, "Group1")
            c.Text = ""
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each c As Control In SelectControls(Controls, "Group2")
            c.Text = ""
        Next
    End Sub

End Class