dotNETportal.cz

    Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init

        For i As Integer = 1 To 2

            Dim btn As New Button
            btn.ID = "btn" & i
            btn.Text = "tlačítko " & i
            div.Controls.Add(btn)

            Select Case i
                Case 1
                    AddHandler btn.Click, AddressOf btn1_Click
                Case 2
                    AddHandler btn.Click, AddressOf btn2_Click
            End Select

        Next


    End Sub

    Private Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Write("event jedna")
    End Sub

    Private Sub btn2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Write("event dva")
    End Sub