
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 展开
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 展开
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)
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)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询