vb.net - 在 vb.net 中如何为标签引发点击事件

Question

我有几个标签都是这样编码的:

Public assessment_menu_button As New Label
Public current_label_clicked As New Label

AddHandler assessment_menu_button.Click, AddressOf click_assessment_menu_button

Private Sub click_assessment_menu_button(ByVal sender As System.Object, 
                                         ByVal e As System.EventArgs)
   current_label_clicked = sender
   ' do some other stuff
End Sub

然后，稍后在我的程序中，我有一个 Sub，它需要对放入 current_label_clicked 的任何标签执行点击并在其上引发点击事件。有点像

Private Sub whatever()
    current_label_clicked.performClick()
End Sub

但是你不能用标签来做到这一点。

那么如何引发标签的点击事件呢？

谢谢。

Answer 1

假设您的标签名为 Label1。

这个Sub就是点击标签时会执行的Sub。

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

要引发标签点击，您只需调用该事件即可。

Label1_Click(Label1, Nothing)

就是这样:)