Question

vb.net用户控件里面的按钮事件问题！

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C#,,,,,

//声明委托
public delegate void ClickEventHandler(object sender,EventArgs e);

public partial class AllControl : System.Web.UI.UserControl
{
protected void Page_Load(object sender, EventArgs e)
{

}

//触发查询事件
public event ClickEventHandler SelectClick;
/// <summary>
/// 触发查询事件
/// </summary>
/// <param name="e"></param>
protected void SelectOnClick(EventArgs e)
{
if (SelectClick != null)---------------------------为什么这里可以，VB下面就报错.
SelectClick(this, e);
}
}
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
VB,,,,,

''' <summary>
''' 声明委托点击事件
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Public Delegate Sub ClickEventHandler(ByVal sender As Object, ByVal e As EventArgs)

Partial Class UserControls_AllControl

Inherits System.Web.UI.UserControl

''' <summary>
''' 窗体加载事件
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub

''' <summary>
''' 声明登陆事件
''' </summary>
''' <remarks></remarks>
Public Event loginclicks As ClickEventHandler

''' <summary>
'''
''' </summary>
''' <param name="e"></param>
''' <remarks></remarks>
Public Sub loginOnclick(ByVal e As System.EventArgs)

If loginclicks <> DBNull.Value Then--------------------报错，是事件不能直接调用。VB应该怎样写呢？因为我要重写不同的按钮事件
RaiseEvent loginclicks(Me, e)
End If

End Sub

Answer 1

我的程序这样做的:
Delegate Sub NotificationCallback(ByVal notify As sockNotificationEnum, ByVal sckClient As MSComm, ByVal SourceData As Object, ByVal sockHead As MSDefine.SockHead, ByVal sockBody As Object) ', ByVal sockPrefix As MSDefine.SockPrefix)

Public Event ConnectionEvent As NotificationCallback

调用时:
RaiseEvent ConnectionEvent(EventType, Me, "", tHead, tBody)