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!

Saludos:

Lo que yo haria es recorrer los controles DENTRO del GroupBox, evaluar si es TextBox y hacer lo que necesito. En el siguiente ejemplo los coloco en Vacio.

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each cntrl As Control In GroupBox1.Controls
            If TypeOf cntrl Is TextBox Then
                cntrl.Text = ""
            End If
        Next

    End Sub

Espero ayude.


JOSE LUIS

Muchas gracias lo voy a mirar! Saludos

Ya lo tengo, muchas gracias.
Aquí os dejo la funcion para recorrer varios textbox en multiples gropbox y utilizando la función desde un módulo.

Public Sub SaveTEDSValue2(Form As Form, ByVal Save As String)
Dim result As String = ""
Dim TEDSValue As String = Save
'Dim i As Integer
If File.Exists(TEDSValue) = False Then
For Each GBox As Control In Form.Controls
For Each ctrl As Control In GBox.Controls
If TypeOf ctrl Is TextBox Then
result += (ctrl.Text & vbNewLine)
End If
Next

Next
Else
MsgBox("El Fichero ya existe")

End If
File.WriteAllText(TEDSValue, result)
End Sub

Saludos