0

我正在从私有子动态创建标签,并且我希望能够在用户单击它们时执行某些操作。但是,我不能使用“Dim withEvents blah...”,因为它说 withEvents 不能用于局部变量,但我也不能在我的 Private Sub 中使用“Public withEvents blah”。我该如何做到这一点?

谢谢。

4

1 回答 1

2

创建动态控件时,可以为其添加处理程序

Dim mylbl As New Label
mylbl.Name = "button1"
mylbl.Text = "hi"
Me.Controls.Add(mylbl)

AddHandler lbl.Click, AddressOf AllLabels_Click

这是你的 Handler Sub

Sub AllLabels_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim lbl As Label = CType(sender, Label)

    MsgBox(lbl.Text)

End Sub
于 2013-06-15T01:40:40.150 回答