在自定义用户控件中提高 Me.Click (VB.Net)

Raising Me.Click in a custom user control (VB.Net)

, 我一直在为我的所有应用程序开发自定义控件库,但我也希望它是开源的,因此它需要易于使用。

我想使用 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

要将事件传播到 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