顯示數組或文本框列表中的循環值

Question

我有一個非常簡單的循環語句，如下所示。如何使用數組或列表將每個值顯示到相應的文本框？在我的循環中，我有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