您好下, 我一直在为我的所有应用程序开发自定义控件库,但我也希望它是开源的,所以它需要易于使用。
我想使用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
答案 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