Controlar eventos de controles creados al vuelo

[Krato]

Bueno, parece mentira, pero justo ahora que acabo de prguntar, encuentro la respuesta, mmmm

Bueno, la respuesta es simple.

Hay que añadir un AddHandler para agregarle una accion al objeto.

Pongo un ejemplo:

Código vb.net:

Private Sub Muestras_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For i = 1 To Muestras
            item = New Button
            With item
                .Text = "Prueba " & i
                .Dock = DockStyle.Top
            End With
            AddHandler item.Click, AddressOf item_Click 'Le decimos que en el evento click del item vaya al sub item_Click :P
            item.Top = Top
            PanelMuestras.Controls.Add(item)
            Top = Top + item.Height + 1
        Next
    End Sub
 
Private Sub item_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim clic As Button
        clic = sender 'Para acceder a los atributos del sender
 
 
        MsgBox(clic.Text) 'Mostrara el texto del botón según el botón que hayas pulsado
 
        'Y ya está :D
    End Sub
 

Espero que le sirva a alguien