模擬物件陣列取值

因為 .NET 已經沒有像以前VB6一樣的物件陣列的命名方式，例如 text(1),text(2)....
所以若是有10個 textbox ,名為 textbox1,textbox2,textbox3....的時候，要放在FOR迴圈裡跑資料是有點麻煩，這是以前我同事教我的，還挺好用的：



        Dim ctr As Control
        Dim 值, 變數名稱 As String
        For i As Integer = 1 To 10
            變數名稱 = "TextBox" & i.ToString
            For Each ctr In Me.Controls
                If (ctr.Name.ToUpper = 變數名稱.ToUpper) Then
                    值 = CType(ctr, TextBox).Text
                    Debug.Print(值)
                    Exit For
                End If
            Next
        Next