Raising Me.Click в пользовательском элементе управления (VB.Net)

Question

Привет, Я работаю над пользовательской библиотекой управления для всех своих приложений, но я также хочу, чтобы это был Open Source, поэтому он нуждается в быть просты в использовании.

Я хочу использовать событие Me.Click поэтому при нажатии на Panel1 (панели) или BtnText (ярлык) он поднимет событие Click, но по какой-то причине она не позволит мне использовать это событие в RaiseEvent.

Вот мой код:

Public Sub BtnText_Click(sender As Object, e As EventArgs) Handles BtnText.Click 
    RaiseEvent Click() 
End Sub 

Public Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click 
    RaiseEvent Click() 
End Sub 

Answer 1

Распространять событие в UserControl вы можете вызвать OnClick метод:

Public Sub BtnText_Click(sender As Object, e As EventArgs) Handles BtnText.Click 
    Me.OnClick(e) 
End Sub 

Public Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click 
    Me.OnClick(e) 
End Sub