提升我。点击自定义用户控件(VB.Net)

时间:2016-07-09 19:11:47

标签: vb.net custom-controls raiseevent

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

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

1 个答案:

答案 0 :(得分: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