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

■No64325 (MP枯渇ウィザード さん) に返信

簡単な例ですが、以下のような方法はどうでしょうか。
（いずれの方法も、Label1, Label2, Label3, Label4が存在していることを前提とします。）

その１）コントロール配列を使う
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim lbl() As New Label(){Label1, Label2, Label3, Label4} 

    For a As Integer = 0 To 3
        lbl(a).Text = X(a)
　  Next
End Sub

その２）コントロールの名前を使う
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For a As Integer = 0 To 3
        DirectCast(Me.Controls("Label" & (a + 1).ToString()), Label).Text = X(a)
        '上記はLabel1〜4がMe（自フォーム）上に直接配置されている場合の例。
        'もし、Label1〜4が他のコンテナ（PanelやGroupBox）上に配置されている場合は、Meの代わりにコンテナのコントロールを書けばよい。
　  Next
End Sub

■No64325 (MP枯渇ウィザード さん) に返信

ズッカさんとほとんど同じですが

Private Labels() as Label
Private X() As String = {"A", "B", "C", "D"}

ロードイベントまたはNewで
Labels = new Label(){Label1, Label2, Label3, Label4}

Private Sub Button1_Click(〜
    For idx = 0 To 3
        Labels(idx).Text = X(a)
　  Next
End Sub

2010以降であれば
Labels = {Label1, Label2, Label3, Label4}
も可能

どうも。
ズッカ様、shu様、ありがとうございます。
おかげで塩梅良く行きました。


Private Labels() As Label
Private Boxes() As TextBox

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Labels = New Label() {Label1, Label2, Label3, Label4}
        'Labels = {Label1, Label2, Label3, Label4}
        Boxes = New TextBox() {TextBox1, TextBox2, TextBox3, TextBox4}
        'Boxes = {TextBox1, TextBox2, TextBox3, TextBox4}
        For idx = 0 To 3
            Labels(idx).Text = X(idx)
            Boxes(idx).Text = idx.ToString + " " + Labels(idx).Text
            Boxes(idx).TextAlign = HorizontalAlignment.Center
            Boxes(idx).ReadOnly = True
        Next

    End Sub

プログラミング面白いです。またお願いします。