配列またはテキストボックスのリストにループ値を表示

Question

私は以下のように非常に単純なforループ文を持っています。どのように配列やリストを使用して対応するテキストボックスに各値を表示するには？私のループでは6つのインデックスがあり、6つのテキストボックスもあります。つまり、インデックス0がtxtbox1に表示され、インデックス1がtxtbox2に表示されます。

Dim i As Integer 
    For i = 0 To 5 
     ' TextBox Here 
    Next 

Answer 1

すべてのテキストボックスを想定して、配列から値を割り当てたい場合、子コントロールはFormです。テキストボックス名がtxtBox0から始まる場合は、i+1を次のコードから削除します。

Dim arr() As String = {"aa", "bb", "cc", "dd", "ee"} 

    Dim txtBox As TextBox 
    Dim ctrlName As String 
    Dim i As Integer 

    For i = 0 To 5 
     ' TextBox Here 
     ctrlName = "txtbox" + (i + 1).ToString 
     Try 
      txtBox = CType(Me.Controls(ctrlName), TextBox) 
      If Not txtBox Is Nothing Then 
       txtBox.Text = arr(i) 
      End If 
     Catch ex As Exception 
      'ignore or raise error 
     End Try 
    Next