ButtonのTagプロパティから関連付けたLabelにTextを入れるには

いちろう 2003-10-12 01:48:46 No: 79762

VB.NET2003を使っています
ButtonのTagプロパティに対応するLabelの名前を入力しておき、
Buttonがクリックされたら対応するLabelのTextに値を入れたい
のですが…（ボタンもラベルも複数配置してあります）

nanashi 2003-10-15 20:18:10 No: 79763

こんな感じでどうですか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ctrl As Control

        With Me
            For Each Ctrl In .Controls
                If Ctrl.Name = sender.tag Then
                    Ctrl.Text = sender.text
                    Exit For
                End If
            Next
        End With
    End Sub