変数を使用してボタン名にアクセスする

Question

ビジュアルベーシックでは、変数に格納されている番号を使用してボタンの名前にアクセスできるようにします。 たとえば、24個のボタンの名前がす​​べて「ボタン」であり、番号の後に1,2,3 ... 22,23,24の番号が付いているとします。最初の8つのボタンのテキストを変更したい場合は、どうすればいいでしょうか。 、いずれの場合においても

Dim yourButtonArray = yourForm.Controls.OfType(of Button).ToArray 
' takes all controls whose Type is Button 
For each button in yourButtonArray.Take(8) 
    button.Text = "Hello" 
Next 

それとも

Dim yourButtonArray = yourForm.Controls.Cast(of Control).Where(
    Function(b) b.Name.StartsWith("Button") 
    ).ToArray 
' takes all controls whose name starts with "Button" regardless of its type 
For each button in yourButtonArray.Take(8) 
    button.Text = "Hello" 
Next 

：ここ

は、私が何を意味するかを示して助けるために私の例です：

For i = 1 to 8 
     Button(i).text = "Hello" 
    Next 

Answer 1

For index As Integer = 1 To 8 
    CType(Me.Controls("Button" & index.ToString().Trim()),Button).Text = "Hello" 
Next 

Answer 2

使用LINQ、あなたが行ってもいいです.Take(8)は、最初に格納された8つのアイテムを繰り返します。yourButtonArray

私はそれが助けてくれることを願っています。ボタンがは直接フォーム自体によって含まれていない場合

Answer 3

提案されたソリューションは、これまで失敗します。彼らが別の容器に入っていたら？たとえば、「Me」を「Panel1」に簡単に変更することはできますが、ボタンが複数のコンテナにまたがって広がっていればそれは役に立ちません。

それを動作させるためには、関係なく、ボタンの位置を、「searchAllChildren」オプションを使用してControls.Find()メソッドを使用します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim ctlName As String 
    Dim matches() As Control 
    For i As Integer = 1 To 8 
     ctlName = "Button" & i 
     matches = Me.Controls.Find(ctlName, True) 
     If matches.Length > 0 AndAlso TypeOf matches(0) Is Button Then 
      Dim btn As Button = DirectCast(matches(0), Button) 
      btn.Text = "Hello #" & i 
     End If 
    Next 
End Sub