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

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 74 を表示中)
■43061 / )  Re[1]: 配列について(Visual Studio 2008)
□投稿者/ επιστημη (2233回)-(2009/10/28(Wed) 10:39:30)
επιστημη さんの Web サイト
いろいろテはあるんですけど、ここでは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

返信 編集キー/


管理者用

- Child Tree -