そのオブジェクト名は、追加ハンドラーを使用してサブルーチンを開始しました

StackOverflow https://stackoverflow.com/questions/19839838

  •  29-07-2022
  •  | 
  •  

質問

私の問題は、サブルーチンが実行されたとき、どのボタンがトリガーされたのかわからないことです。変数カウントは、クリックされた削除ボタン番号に置き換える必要があります。各機会にユーザーをフォームに追加する必要がある数がわからないため、各ボタンに個別のサブルーチンを使用することはできません。

    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
役に立ちましたか？

解決

から入手できます sender 口論：

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

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

End Sub

前述の関数を直接追加するコードに注意してください（なしで delegate） は：

AddHandler MyClass.button1(counter).Click, AddressOf delete1
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top