Question

我创建了一个Sub，我希望每次单击两个按钮中的一个时运行。我将两个按钮的句柄添加到sub中，以便单击任一按钮将触发子例程。

我在buttonA.tag中放置了listview对象A，在buttonB中放置了listview对象B.

单击该按钮时，我会尽力提取隐藏在按钮标签中的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

感谢您的时间。

Answer 1

试试这个，

Dim buttonSender As Button = CType(sender, Button)

将对象分配给button.tag

1 个答案: