VB.Net Управление контуром по именам с использованием переменных

Question

Мне нужно установить текст некоторых элементов управления.

У меня есть Form с некоторыми CheckBoxes a TextBoxes.

В VBA (Если у меня есть 5 TextBoxes под названием "TextBox1", "TextBox2", ... "TextBox5") я могу использовать что-то вроде этого:

For n = 1 To 5 
    Me("TextBox" & n).Text = NeededValue 
Next n 

Я знаю, что-то вроде этого является также возможно в VB.Net, но я не смог найти правильный синтаксис (и я не нашел похожих кодов на SO).

Я судимый используя

Me.Controls() 

Но я не могу вставить имя элемента управления таким образом

Answer 1

Используйте For Each, а затем тест с TypeOf найти все TextBoxes в вашем form как:

For Each myObject1 As [Object] In Me.Controls 
    If TypeOf myObject1 Is TextBox Then 
     TryCast(myObject1, TextBox).Text = "NeededValue" 
    End If 
Next 

также:

Dim myText = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5} 
     For Each btn In myText 
      btn.Text = "NeededValue" 
     Next 

For i As Int32 = 1 To 5 
    Dim Txt = Me.Controls.Find("TextBox" & i, True) 
    If Txt.Length > 0 Then 
     Txt(0).Text = "blah" 
    End If 
Next 

Или:

For i As Int32 = 1 To 5 
     Dim Txt = Me.Controls.Find("TextBox" & i, True) 
     If Txt.Length > 0 Then 
      Txt(0).Text = "NeededValue" 
     End If 
    Next 

Answer 2

Me.Controls.Find("TextBox" & n, True) 

бы подобный подход к вашему VBA Style.