Opret button i table fra codebehind

Sådan?

        Dim DemoTabel As Table = New Table()
        Dim tr As TableRow = New TableRow()
        Dim tc As TableCell = New TableCell()
        Dim tc2 As TableCell = New TableCell()

        Dim i As Integer
        For i = 0 To 3 - 1 Step i + 1
            tr = New TableRow()
            tc = New TableCell()
            tc.Text = "test" + i.ToString()

            Dim knap As New Button()
            knap.Text = "Send (" & i.ToString() & ")"

            tc2 = New TableCell()
            tc2.Controls.Add(knap)

            tr.Cells.Add(tc)
            tr.Cells.Add(tc2)
            DemoTabel.Rows.Add(tr)
        Next

Og hvis den knap skal kunne noget, så skal du vel have en handler med ?

        AddHandler knap.Click, AddressOf knap_Click

hvor din knap_Click er en almindelig handler, dog uden Handles... clause i signaturen

Du tilføjer vel den tabel til en Panel eller Placeholder efterfølgende ? Man kan også lægge selve <asp:Table ID="blah" runat="server" ><asp:Table/> fast i selve aspx filen, mens rækkerne så tilføjes i code-behind.

Og hvis du har varierende antal knapper fra gnag til gang, så skal du huske at give hver knap et specifikt ID, ellers kan der gå ged i ViewState.

Prøvet at kombinere jeres input, men kan ikke fange handler.

Koden ser således ud:

    Sub DemoDrawtable()

        Dim DemoTabel As Table = New Table()
        Dim tr As TableRow = New TableRow()
        Dim tc As TableCell = New TableCell()
        Dim tc2 As TableCell = New TableCell()

        Dim i As Integer
        For i = 0 To 3 - 1 Step i + 1
            tr = New TableRow()
            tc = New TableCell()
            tc.Text = "test" + i.ToString()

            Dim knap As New Button()
            knap.Text = "Send (" & i.ToString() & ")"
            AddHandler knap.Click, AddressOf knap_Click

            tc2 = New TableCell()
            tc2.Controls.Add(knap)

            tr.Cells.Add(tc)
            tr.Cells.Add(tc2)
            DemoTabel.Rows.Add(tr)
        Next

        plc.Controls.Add(DemoTabel)
    End Sub

    Protected Sub knap_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Page.IsPostBack = True Then
            Response.Write("Demo virker")
        End If
    End Sub

Det burde da give et resultat.

Hvordan vil man kunne skelnen mellem de forskellige knapper i knap_Click

:-) karsten_larsen

Du kan finde ud af hvad knappen hedder inde i handleren ud fra sender mener jeg - noget i stil med

Dim myButton as Button = Sender
'mit ID' = myButton.ID

alternativt er der vist en e.CommandSource ting som giver det samme (kan ikke helt huske hvilken af de to optioner funker her)

og for test er dette jo nok tilstrækkeligt:)

    Protected Sub knap_Click(ByVal sender As Object, ByVal e As System.EventArgs)

            Response.Write("Demo virker")

    End Sub

så i alt:


    Protected Sub knap_Click(ByVal sender As Object, ByVal e As System.EventArgs)
dim myButton as Button = sender
            Response.Write(myButton.ID.ToString)

    End Sub

Du huskede  at kalde DemoDrawtable() også ved postback ?

Det fungerer fint nu, og til andre som kan bruge løsningen:


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            DemoDrawtable()
        End If
        If Page.IsPostBack = True Then
            DemoDrawtable()
        End If
    End Sub

    Sub DemoDrawtable()

        Dim DemoTabel As Table = New Table()
        Dim tr As TableRow = New TableRow()
        Dim tc As TableCell = New TableCell()
        Dim tc2 As TableCell = New TableCell()

        Dim i As Integer
        For i = 0 To 3 - 1 Step i + 1
            tr = New TableRow()
            tc = New TableCell()
            tc.Text = "test" + i.ToString()

            Dim knap As New Button()
            knap.Text = "Send (" & i.ToString() & ")"
            knap.ID = (i.ToString())
            AddHandler knap.Click, AddressOf knap_Click

            tc2 = New TableCell()
            tc2.Controls.Add(knap)

            tr.Cells.Add(tc)
            tr.Cells.Add(tc2)
            DemoTabel.Rows.Add(tr)
        Next

        plc.Controls.Add(DemoTabel)
    End Sub

    Protected Sub knap_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim myButton As Button = sender
        Response.Write(myButton.ID.ToString)
    End Sub

nielle -> vil du lave et svar, du har givet svar på oprindelig spørgsmål.
neomann -> laver et nyt sp til dig med point for den ekstra hjælp.

:-) karsten_larsen

Vi kan sagtens dele - og ellers kan man, oppe under Funktioner i øverste venstre side, sagtens tildele flere point til et spørgsmål.

... og et svar :^)

Den funktion kendte jeg ikke, den vil jeg bruge næste gang, så der ikke bliver for meget spam, tak for fiffet.
:-) karsten_larsen

Hvis der nu er flere knapper, pga. looping eller ligende, skal du huske at bruge knap_command og tilføje den et commandargument, så du kan skelne knapperne fra hinanden.. :)

saudoo -> tak for tippet
:-) karsten_larsen