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