none
Recorrer TextBox en GroupBox vb.net RRS feed

  • Pregunta

  • Hola,

    tengo varios TextBox todos con el mismo nombre solo cambia el número del final. Tengo una función que al clicar en un botón me exporta el texto de los TextBox a un .txt con un salto de linea después de cada dato. Esta es la función:

    Public Sub SaveTEDSValue2()
    Dim result As String = ""
    Dim MetaTEDSValue As String = "c:\Users\Admin\Desktop\CTEDS.txt"

    Dim i As Integer


    If File.Exists(MetaTEDSValue) = False Then
    For i = 1 To 3
    Dim ctrl As Control = Me.Controls("TextBox" & i)
    result += (ctrl.Text & vbNewLine)
    Next
    Else
    MsgBox("El Fichero ya existe")

    End If
    'MsgBox()
    File.WriteAllText(MetaTEDSValue, result)
    End Sub


    En este ejemplo va de 1 a 3 pero tengo otro que va de 1 a 13, con lo que los organizo en 3 GroupBox diferentes. Al ser otro control, al usar esta función me salta la excepción NullReferenceException. Se que el error se debe a que al utilizar los GroupBox tendría que recorrer los "hijos" de los GropuBox para poder sacar los datos de los TextBox que contiene, pero no se como hacerlo. 

    Si alguien me puede iluminar se lo agradecería. 

    Muchas gracias

    salu2!
    jueves, 31 de marzo de 2016 14:30

Respuestas

  • For
    
    Each 
    ctrl As
    
    Control In
    
    GroupBox2.Controls
    
        If
    
    TypeOf 
    ctrl Is
    
    Label Then
    
            DirectCast(ctrl,
     Label).Font = New
    
    Font("Arial",
     10, FontStyle.Bold)
    
        End
    
    If
    
    Next
    
    
    
    fijate
     si podes usar esto.

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.


    jueves, 31 de marzo de 2016 14:35