как я поднимаю событие щелчка для метки

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 

но вы не можете сделать это с помощью ярлыков.

Как я могу поднять событие click для метки?

Спасибо.

Answer 1

Предположим, что ваш лейбл называется Label1.

Этот Sub является Sub, который будет выполнен, когда вы нажмете на этикетке.

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

End Sub 

Чтобы поднять щелчок на ярлыке, вам просто нужно вызвать это событие.

Label1_Click(Label1, Nothing) 

Вот это :)

Answer 2

Это считается дурным тоном для вызова метода обработчика событий непосредственно. Поместите код вам необходимо позвонить, когда метка щелкнула в метод и вызывать этот метод как из обработчика этикетки мыши и любого метода:

Private Sub click_assessment_menu_button(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    runLabelCode(sender) 

    'other code here 
End Sub 

Private Sub runLabelCode(sender As Label) 
    current_label_clicked = sender 

    'other code here 
End Sub 

'elsewhere in the code 
Private Sub Whatever() 
    runLabelCode(Label1, Nothing) 
End Sub