vb.net - button.tagへのオブジェクトの割り当て

Question

2つのボタンのいずれかがクリックされるたびに実行したいサブを作成しました。両方のボタンのハンドルをサブルーチンに追加して、どちらかをクリックするとサブルーチンが起動するようにしました。

listviewオブジェクトAをbuttonA.tagに配置し、listviewオブジェクトBをbuttonBに配置しました。

ボタンがクリックされたとき、私はボタンのタグに押し込まれたリストビューインスタンスを抽出するために最善を尽くします。問題は、タグにインスタンスがないことです。それは単に「何もない」です。

Private Sub Execute(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnA.Click, btnB.Click

        Dim buttonSender As Button = Nothing

        buttonSender = CType(sender, Button)

        Dim btnListView As ListView = buttonSender.Tag

    End Sub

-------------------編集-1

Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.btnA.Tag = Me.lvA
        Me.btnB.Tag = Me.lvB
    End Sub

どうぞよろしくお願いいたします。

Answer 1

これを試して、

Dim buttonSender As Button = CType(sender, Button)