Problema Con Conjunto de Texbox

Question

Hola a todos 

tengo una problemática, tengo un conjunto de textbox1, textbox2,.... textbox17

y queria saber si hay alguna forma de que mediante un for se tomen los datos de cada textbox

por ejemplo

for i=1 to 17 

variable & i & = textbox & i & .text 

next 

gracias de antemano

Answer 1

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim texto As String = "Especialidad: Nana - Niñera - Babysitter" & vbCr & vbLf & " Tipo de Servicio: Por horas" & vbCr & vbLf & " Nombres: Martha" & vbCr & vbLf & " Apellidos: Simon Arrostegui" & vbCr & vbLf & " Email (opcional): [e-mail]" & vbCr & vbLf & " Teléfono: no tengo" & vbCr & vbLf & " Celular: 958994086" & vbCr & vbLf & " Operador Celular: Claro" & vbCr & vbLf & " Edad: 19" & vbCr & vbLf & " Experiencia (años): 1" & vbCr & vbLf & " Distrito: Jesus Maria" & vbCr & vbLf & " Expectativa salarial: 750" & vbCr & vbLf & " Horario: de 8am a 1pm" & vbCr & vbLf & " Servicios ofrecidos: Solo cuidado de niñ@s" & vbCr & vbLf & " Comentarios (opcional):"
        Dim sr As New StringReader(texto)

        For Each tb As TextBox In Controls.OfType(Of TextBox)().Reverse
            Dim línea As String = sr.ReadLine()
            If línea Is Nothing Then
                Exit For
            End If

            tb.Text = línea.Substring(línea.IndexOf(":"c) + 1)
        Next

        sr.Close()

    End Sub
End Class

Answer 2

Hola

podrías intentar con esto si tienes una lista de textos

    Function FillText() As Boolean
        Dim textos As New List(Of String) From {"Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis"}
        For i = 1 To 6
            Dim nombre = $"textBox{i}"
            Controls(nombre).Text = textos(i - 1)
        Next
        Return True
    End Function