VB2019でフォーム上にボタンコントロール100個がすでに配置されているとき、
以下のようなイベント
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = Button1.Text
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = Button2.Text
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = Button3.Text
End Sub
…
Private Sub Button100_Click(sender As Object, e As EventArgs) Handles Button100.Click
TextBox1.Text = Button100.Text
End Sub
これを簡潔に記述するにはどうすればいいのでしょう?
Private Sub Button(i)_Click(sender As Object, e As EventArgs) Handles Button(i).Click
TextBox1.Text = Button(i).Text
next
のような感じにしたいです。
まだ回答がついていません
会員登録して回答してみよう