我正在从私有子动态创建标签,并且我希望能够在用户单击它们时执行某些操作。但是,我不能使用“Dim withEvents blah...”,因为它说 withEvents 不能用于局部变量,但我也不能在我的 Private Sub 中使用“Public withEvents blah”。我该如何做到这一点?
谢谢。
创建动态控件时,可以为其添加处理程序
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