Objektname dieser Start -Unterroutine mithilfe von Handlern hinzufügen

Question

Mein Problem ist, dass ich nicht weiß, welcher Knopf dazu führte, dass ich das ausgelöst habe, wie ich das herausfinden kann. Die variable Anzahl muss durch die Klicknummer der Schaltfläche Löscher ersetzt werden. Ich kann keine separate Unterprogramme für jeden Knopf haben, da ich nicht weiß, wie viele der Benutzer bei jedem Gelegenheit dem Formular hinzugefügt werden muss.

    Dim delete1 = Sub()
        .Remove(label1(count, 1))
        .Remove(combo1(count, 1))
        .Remove(label1(count, 2))
        .Remove(combo1(count, 2))
        .Remove(label(count, 3))

                 End Sub

    For counter = 1 To count
        AddHandler MyClass.button1(counter).Click, delete1
    Next

Answer 1

Sie können es von der bekommen sender Streit:

Private Sub delete1(sender As System.Object, e As System.EventArgs)

    Dim curButton As Button = DirectCast(sender, Button) 'Button you clicked

End Sub

Beachten Sie, dass der Code zur oben genannten Funktion direkt hinzufügt (ohne delegate) ist:

AddHandler MyClass.button1(counter).Click, AddressOf delete1