0

我创建了一个我想在每次单击两个按钮之一时运行的 Sub。我将两个按钮的句柄添加到子程序中，以便单击其中一个按钮将触发子程序。

我将listview对象A放在buttonA.tag中，将listview对象B放在buttonB中。

单击按钮时，我会尽力提取隐藏在按钮标签中的 listview 实例。问题是标签中没有实例。简直是“一无所有”。

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

感谢您的时间。

4

1 回答 1

1

尝试这个，

Dim buttonSender As Button = CType(sender, Button)
于 2012-09-28T02:19:18.940 回答