semplificare 30 buttonlink in un'unica operazione

[RiminiRimini]

Ciao a tutti,
ho 30 buttonlink con il nome "L1" "L2" ecc ecc, ora ogni Bottonlink fa la seguente funzione
Protected Sub L1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
CambioGio(1)
End Sub
Protected Sub L2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
CambioGio(2)
End Sub
ecc ecc

function Cambiogio(byval x as int)
ecc ecc
end function

Ora senza avere 30 di queste linee, come posso semplificarlo?
Grazie e spero di essere stato abbastanza chiaro.

[sspintux]

Originariamente inviato da RiminiRimini
Ciao a tutti,
ho 30 buttonlink con il nome "L1" "L2" ecc ecc, ora ogni Bottonlink fa la seguente funzione
Protected Sub L1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
CambioGio(1)
End Sub
Protected Sub L2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
CambioGio(2)
End Sub
ecc ecc

function Cambiogio(byval x as int)
ecc ecc
end function

Ora senza avere 30 di queste linee, come posso semplificarlo?
Grazie e spero di essere stato abbastanza chiaro.

ad occhio e croce direi che puoi associare al click di ogni bottone un'unica
funzione fatta più o meno così
(... non mi ricordo le proprietà del buttonlink e non ho tempo per provare
per cui abbi pazienza se ho scritto qualche fesseria)

     Protected Sub LX_Click(ByVal sender As Object, ByVal e As System.EventArgs)
           dim g as int =ctype(sender, buttonlink).commandargument
           'oppure ,se non è disponibile il commandargument, potresti  ricavare
            'il giorno dal nome del button
           CambioGio(g)
    End Sub

HTH

[djciko]

buttonlink = linkbutton vero ?

[djciko]

Comunque:

ASPX
<form id="form1" runat="server">
        <asp:PlaceHolder ID="PH" runat="server"></asp:PlaceHolder>
</form>


VB
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load   
        For indice As Integer = 1 To 30
            Dim lbutton As New LinkButton
            lbutton.Text = "LinkButton N." & CStr(indice)
            lbutton.ID = "L" & CStr(indice)
            lbutton.CommandArgument = indice
            AddHandler lbutton.Click, AddressOf GestoreLinkButtons
            PH.Controls.Add(lbutton)
            PH.Controls.Add(New LiteralControl("
"))
        Next
    End Sub

    Private Sub GestoreLinkButtons(ByVal o As Object, ByVal e As System.EventArgs)
        Dim argomento As Integer = CType(o, LinkButton).CommandArgument
        .......
    End Sub

[sspintux]

Originariamente inviato da djciko
buttonlink = linkbutton vero ?

yes sir... ho solo inverito nome e cognome