none
Problema Con Conjunto de Texbox RRS feed

  • Pregunta

  • 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

    miércoles, 26 de junio de 2019 17:56

Todas las respuestas

  • 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): estrella_poz@hotmail.com" & 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
    miércoles, 26 de junio de 2019 18:25
  • 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

    jueves, 27 de junio de 2019 2:04