Asp.net 内容页上的句柄单击事件母版页控件
我在母版页上有一个Asp.net 内容页上的句柄单击事件母版页控件,asp.net,vb.net,event-handling,onclicklistener,Asp.net,Vb.net,Event Handling,Onclicklistener,我在母版页上有一个LinkButton,我想在我的内容页上使用它 因此,我在页面加载中编写了如下代码: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Session("UserID") Is Nothing Then Session("UserID") = Request.ServerVariables("LO
LinkButton
,我想在我的内容页上使用它
因此,我在页面加载中编写了如下代码:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("UserID") Is Nothing Then
Session("UserID") = Request.ServerVariables("LOGON_USER").Replace("INA\", "")
End If
Me.lbleMessage.Text = ""
Dim lblUaname As Label = DirectCast(Master.FindControl("lblUname"), Label)
lblUaname.Text = Session("UserID").ToString
Dim testlinkbutton As LinkButton = DirectCast(Master.FindControl("LinkButton1"), LinkButton)
testlinkbutton.Click += New EventHandler(AddressOf LinkButton1_Click)
If Not IsPostBack Then
Me.lbleMessage.Text = ""
If Session("UserID") <> "svaldano" Then
'If CAuth.AuthUser(Session("UserID"), "20") Then
'Else
' Response.Redirect("login.aspx")
'End If
FillDataWO()
FillDataTC()
ElseIf Not (Session("Username") Is Nothing) Then
'If CAuth.AuthUser(Session("Username"), "20") Then
'Else
' Response.Redirect("login.aspx")
'End If
If Session("Username") = "sv" Then
FillDataWO()
FillDataTC()
Else
Response.Redirect("login.aspx")
End If
ElseIf Session("Username") Is Nothing Then
Session("UserID") = Request.ServerVariables("LOGON_USER").Replace("BMJAKARTA\", "")
Response.Redirect("login.aspx")
End If
End If
End Sub
Protected Sub Page_Load(ByVal sender作为对象,ByVal e作为System.EventArgs)处理Me.Load
如果会话(“UserID”)什么都不是,那么
会话(“UserID”)=Request.ServerVariables(“登录用户”).Replace(“INA\”,“”)
如果结束
Me.lbleMessage.Text=“”
Dim lblUname As Label=DirectCast(Master.FindControl(“lblUname”),Label)
lblUaname.Text=Session(“UserID”).ToString
Dim testlinkbutton As LinkButton=DirectCast(Master.FindControl(“LinkButton1”)、LinkButton)
testlinkbutton.Click+=新建事件处理程序(LinkButton的地址1\u Click)
如果不是的话,我会回来的
Me.lbleMessage.Text=“”
如果会话(“UserID”)“svaldano”,则
'如果是CAuth.AuthUser(会话(“UserID”),“20”),则
”“否则呢
'Response.Redirect(“login.aspx”)
"完"
FillDataWO()
FillDataTC()
如果不是(会话(“用户名”)什么都不是),那么
'如果是CAuth.AuthUser(会话(“用户名”),“20”),则
”“否则呢
'Response.Redirect(“login.aspx”)
"完"
如果会话(“用户名”)=“sv”,则
FillDataWO()
FillDataTC()
其他的
重定向(“login.aspx”)
如果结束
ElseIf会话(“用户名”)则什么都不是
会话(“UserID”)=Request.ServerVariables(“登录用户”).Replace(“BMJAKARTA\”,“”)
重定向(“login.aspx”)
如果结束
如果结束
端接头
但是给我一个错误的行testlinkbutton.Click+=neweventhandler(LinkButton1\u Click的地址)
Public Event Click(发送者作为对象,e作为System.EventArgs)是一个事件,不能直接调用。使用“RaiseEvent”语句引发事件。
那么我不能使用我的代码是真的吗?因为我只知道关于raiseevent而不是
testlinkbutton.Click += New EventHandler(AddressOf LinkButton1_Click)
你可以试试
AddHandler testlinkbutton.Click, AddressOf LinkButton1_Click
看