Puoi ottenerlo dal sender
discussione:
Private Sub delete1(sender As System.Object, e As System.EventArgs)
Dim curButton As Button = DirectCast(sender, Button) 'Button you clicked
End Sub
Si noti che il codice per aggiungere direttamente la funzione di cui sopra (senza delegate
) è:
AddHandler MyClass.button1(counter).Click, AddressOf delete1