Добавить значения в несколько текстовых полей (похожие имена)

Question

Я пытался найти решение для этого, но ничего не работает. У меня около 650 текстовых полей с именем: A001A, A002A ... A600A, и я хотел бы поместить значения в те текс-боксы, например, «примерное значение».

Я нашел решение поместить значения во все текстовые поля в форме, но в моих есть те, у кого есть другие значения.

Следующая решение это один:

Dim textBoxArr() As TextBox = {A2, A3, A4, A5, etc..} 
For Each tb As TextBox In textBoxArr 
    Select Case tb.Text 
     Case "RESNO" 
      tb.Text = "-15,55,0" 
     Case "DOGAL" 
      tb.Text = "-15,54,0" 
    End Select 
Next 

... опять я должен ввести все имена и не имеют достаточно свободы, чтобы манипулировать значениями для первого 50 и так далее.

Это код, у меня есть, и он не работает:

For I As Integer = 0 To 650 
    Dim txt As TextBox = DirectCast(Me.Controls("A00" & I.ToString & "A"), TextBox) 
      txt.Text = "example value" 
Next 

ошибка: Ссылка на объект не указывает на экземпляр объекта

Спасибо за помощь.

EDIT: Я нашел решение от пользователя Idle_Mind

Dim matches() As Control 
For i As Integer = 1 To 650 
    matches = Me.Controls.Find("A" & String.Format("{0:000}", i) & "A", True) 
    If matches.Length > 0 AndAlso TypeOf matches(0) Is TextBox Then 
     Dim cb As TextBox = DirectCast(matches(0), TextBox) 
     If cb.Text = "" Then 
      cb.Text = "test" 
     End If 
    End If 
Next 

Answer 1

Вы не тестируете для правой клавиши (если ваши TextBoxes правильно называется).

Попробуйте так:

For i As Integer = 1 To 650 
    Dim key As String = "A" & String.Format("{0:000}", i) & "A" 
    If Me.Controls.ContainsKey(key) Then 
    Me.Controls(key).Text = "blah" 
    End If 
Next