コントロールを配列のようにまとめて操作したい

Question

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

のような感じにしたいです。

Answer 1

押されたボタンの Text を TextBox1 に入れるということでしょうか。
こうかなあ...

' Handles は頑張って 100 個書く
Private Sub ButtonX_Click(sender As Object, e As EventArgs) Handles _
    Button1.Click, Button2.Click, ...
    Button11.Click, Button12.Click, ...
    Button21.Click, Button22.Click, ...

    Dim btn = DirectCast(sender, System.Web.UI.WebControls.Button)
    TextBox1.Text = btn.Text

End Sub

※試してないです

Comments

[Gant]

System.Web.UI.WebControls.Buttongaが定義されていません。
とエラーが出てしまい、それ以上進めませんでした。

[sk_3122]

このサンプルコードでしようとしていることは以下です。

1. Button1 ～ Button100 をクリックした時に ButtonX_Click() を呼ぶ
（Handles に書かれているイベントが発火した際に ButtonX_Click が呼ばれる）

2. 引数として受け取った sender が Object 型なので、以下で Button コントロールに変換する。

```vb
Dim btn = DirectCast(sender, System.Web.UI.WebControls.Button)
```

3. あとは btn.Text を TextBox1 に突っ込む

----

そのエラーが出ているのはおそらく 2 のロジックですかね。
Button コントロールの型は、あなたの環境の `Button1` の型を指定すれば とりあえず変換はできるのじゃないかなと思います。

たとえば ASP.NET Web Forms の `<asp:Button />` だと `Global.System.Web.UI.WebControls.Button` だし、
普通の HTML のボタンタグ `<button>test</button>` とかだと `Global.System.Web.UI.HtmlControls.HtmlButton` かな？ になります。

YAmaGNZ さんが提示されてるサンプルコードが動くなら `System.Windows.Forms.Button` ですかね

[Gant]

ご回答有難うございます。
元のコードよりはスッキリしました。
でも
Handles _
Button1.Click, Button2.Click,Button3.Click, ...Button100.Click
はどうにもならないんですかね、、

[sk_3122]

この書き方だと Handles 部分はどうにもならないですね... ボタンの数だけ書く必要があります。
ボタン数が多い場合や、数が変わる可能性がある場合などは YAmaGNZ さんのコードの方が良いと思います。

たとえばボタンの数が 100 → 200 になった場合、私の方のコードでは Handles 部分を 200 個に書き換える必要があります。
YAmaGNZ さんのコードであれば、`For i = 1 To 200` と LOOP する回数を弄れば良いだけです。

具体的にこのコードは何をしているところなのか、を一行ずつ確認していけば勉強にもなると思います。
そこまで難しいことはしていないし、特別 特殊なことでもないので 調べておいて今後 損はないと思います。

Answer 2

コントロールの配列を作成する
こちらが参考になりませんか？

Comments

[Gant]

それは「コントロール配列」でググったらトップに出てくるページですね。
私もすでにそれは確認済みでした。

ただこれだと、90行以上のコード追加になってしまうので、
もっと簡単な記述はありますか？

[YAmaGNZ]

同じサイトにある「フォームに配置されているコントロールを名前で探す」
https://dobon.net/vb/dotnet/control/findcontrolbyname.html
こちらと組み合わせればいいでしょう。

[Gant]

ご回答有難うございます。
返ってコードが複雑になってしまいました。

[YAmaGNZ]

どのようなコードを書いて複雑になったのでしょうか？
下記のコードで実現できるはずです。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 1 To 10
AddHandler Me.Controls($"Button{i}").Click, Sub(s, ea) TextBox1.Text = DirectCast(s, Button).Text
Next
End Sub

分かりやすく書いても
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 1 To 10
Dim buttonName = "Button" & i.ToString
Dim b As Button = Me.Controls(buttonName)

AddHandler b.Click, AddressOf Button_Click
Next
End Sub

Private Sub Button_Click(sender As Object, e As EventArgs)
TextBox1.Text = DirectCast(sender, Button).Text
End Sub
こうなります。

[Gant]

とてもコードがスッキリしました。
ただ、これだけ短いコードなのに、分からない部分があるので、、
これから勉強しようと思います。

有難うございました。