Vb.net中暴露用户控件中子控件事件的实现(VB2005)

在vb.net中编写的用户控件中，有时需要把用户控件内子控件的某个事件暴露给用户使用，使用户能够自已定义子控件的事件，在C#中网络上有现成的代码可用，但是转为VB.net时却会有一些小问题，下面是VB.net中实现的代码：

    Public Event myClick As System.EventHandler '鼠标单击事件

    '写它的一个保护方法

    Protected Overridable Sub OnmyClick(ByVal e As EventArgs)

        RaiseEvent myClick(Me, e)

    End Sub

    '对应至某个已知事件,本例为Buttion_click事件

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OnmyClick(e)

End Sub

 

然后在其它地方就可以直接使用这个用户控件的myclick事件。