Button addhandler med dynamisk redirect

du skal bruge onprerender til at generer dine knapper igen.

Ad hvad for noget? :-)Det er første gang jeg prøver at arbejde med en placeholder.

Skal jeg lave en prerender i min My_Subprogram?
Hvordan det?

Ja prøv at skrive protected override, så burde du se en masse ting du kan override deribland onprerender.

Ja det gør der, men det hjælper mig ikke meget.

Jeg har ikke prøvet denne form for dynamisk kodning før

Inde i den skal du lave et kald til den funktion som generer dine knapper

Er du sikker på at du har forstået mit spsm rigtig?

Mit problem er ikke at jeg ikke kan se knapperne på den nye side jeg pliver redirectet til. Den redirecter mig til den forkerte side.

EKS:
Hvis jeg trykker på hardware knappen (teksten er rigtig)redirecter den mig til pricelist (sidst record i database udtræk)

Jeg fandt ud af det selv.
Man skal huske at bruge sender.ID i onclock istedet for Button.ID i mit tilfælde.

Håber andre kan have gavn af det:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/Db.MDB") & ";")
        CreateTitlebar()
    End Sub

    Public Sub CreateTitlebar()
        'acces check
        Dim objCookie As HttpCookie = Request.Cookies("cookie")

        If Not objCookie Is Nothing Then

            strUserID = objCookie("UserID")

        End If
        MyConnection.Open()
        Dim UserAcces As String

        MyCommand = New OleDbCommand
        MySQL = "SELECT UserGroupID FROM UserDealer_Tbl WHERE CookieID=" & strUserID

        MyCommand.CommandText = MySQL
        MyCommand.Connection = MyConnection
        MyReader = MyCommand.ExecuteReader
        While MyReader.Read
            If Not IsDBNull(MyReader("UserGroupID")) Then
                UserAcces = MyReader("UserGroupID")
            End If
        End While
        MyReader.Close()

        'create menu
        MyCommand = New OleDbCommand
        MySQL = "SELECT UserAccess_Tbl.ProgramID AS UserAccess_Tbl_ProgramID, UserAccess_Tbl.Program AS UserAccess_Tbl_Program, UserAccess_Tbl.GroupID, Program_Tbl.ProgramID AS Program_Tbl_ProgramID, Program_Tbl.Program AS Program_Tbl_Program, Program_Tbl.ProgramBtn FROM Program_Tbl INNER JOIN UserAccess_Tbl ON Program_Tbl.ProgramID = UserAccess_Tbl.ProgramID WHERE UserAccess_Tbl.GroupID=" & UserAcces
        MyCommand.CommandText = MySQL
        MyCommand.Connection = MyConnection
        MyReader = MyCommand.ExecuteReader
        While MyReader.Read
            MyButton = New Button
            MyButton.Text = MyReader("ProgramBtn")
            MyButton.ID = MyReader("UserAccess_Tbl_Program")
            MyButton.CssClass = "tbbtn_notinusepurple"
            AddHandler MyButton.Click, AddressOf My_Subprogram
            PHtitlebar.Controls.Add(MyButton)
        End While
        MyConnection.Close()

    End Sub

    Private Sub My_Subprogram(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("" & sender.ID & ".aspx")
    End Sub

    Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender
        CreateTitlebar()
    End Sub