Limpiar todos los textbox de un formulario

[ci2000]

Hola. Logré limpiar los textbox de un formulario. Pero si este formulario tiene textbox dentro de un GroupBox no los limpia.

Código:

    Public Sub Limpiar_Cajas(ByVal f As Form)
        'Recorrer todos los controles del formulario indicado  
        For Each c As Control In f.Controls
            If TypeOf c Is TextBox Then
                c.Text = "" ' eliminar el texto  
            End If
        Next
    End Sub

¿De qué forma puedo hace que limpie todos los textbox inclusive los que están dentro del GroupBox?

Gracias desde ya por las respuestas.
Saludos

[alan_69niupi]

bueno yo simplemente hago eso

textbox.Clear()

aun y este dentro del GroupBox y me funciona. tambien podrias hacer
textbox.text=" "

aunque este ultimo solo desapacere lo escrito pero no lo limpia del todo

[rikakashi]

Yo lo hacia de forma similar pero para ello hay que llamar todos los controles en cada contenedor... usaba un codigo como este solo que en lugar de enable seria .tex=nothing

Código vb:

Dim c As Control
        Dim g As Control
        Dim p As Control
 
        For Each p In TabPage1.Controls
            If TypeOf p Is Panel Then
                For Each g In p.Controls
                    If TypeOf g Is GroupBox Then
                        For Each c In g.Controls
                            If TypeOf c Is TextBox Then
                                c.Enabled = True
                            ElseIf TypeOf c Is ComboBox Then
                                c.Enabled = True
                            ElseIf TypeOf c Is CheckBox Then
                                c.Enabled = True
                            End If
                        Next
                    End If
                Next
            End If
        Next
 

pero tambien pudieras hacer un arreglo de todos tus textbox y despues un metodo para recorrer el arreglo ahora uso este metodo ya que valido todos mis controles

Código vb:

Public Sub limpiar1()
        'LIMPIA LOS CONTROLES DE LA PRIMERA PESTAÑA
        Dim arr_con_tp1() As Control = {txt_nom_completo, txt_1_nom, txt_2_nom, txt_1_ap, txt_2_ap, txt_rfc, _
                                            txt_calle, txt_num_int, txt_num_ext, txt_limite, txt_num_locker, _
                                            txt_fecha_alta, dtp_fecha_aniversario, dtp_fecha_cumpleaños, txt_fecha_ult_acc, txt_fecha_ult_comentario, txt_fecha_ult_consumo, txt_fecha_ult_pago, _
                                            txt_valordecuota, txt_dep_garantia, txt_num_locker, _
                                            cmb_titulo, cmb_edocivil, cmb_ptocardinal, cmb_pais, cmb_estado, cmb_ciudad, cmb_colonia, _
                                            rad_fisico, chk_inha_cred, chk_tarj_credito, chk_cargo_aut, chk_factura, chk_carga_intereses, chk_consumo_minimo_salas, _
                                            chk_notif_cxc, chk_notif_nf, chk_notif_np, _
                                            pic_foto, pic_firma, txt_edad, txt_tipo_tarjeta, txt_num_tarj, dtp_fecha_aniversario, dtp_fecha_cumpleaños}
        limpiacontroles(arr_con_tp1)
         End Sub
 

Código vb:

Public Sub limpiacontroles(ByVal arr_con_tp1_1() As Control)
        'REGRESAR EL CONTROL A UN FORMATO INICIAL SIN TEXTO NI ELEMENTOS
        For j As Integer = 0 To arr_con_tp1_1.Length - 1
            If (TypeOf arr_con_tp1_1(j) Is TextBox) Then               'SI ES TEXTBOX
                CType(arr_con_tp1_1(j), TextBox).Text = Nothing
            ElseIf (TypeOf arr_con_tp1_1(j) Is CheckBox) Then          'SI ES CHECKBOX
                CType(arr_con_tp1_1(j), CheckBox).Checked = False
            ElseIf (TypeOf arr_con_tp1_1(j) Is RadioButton) Then       'SI ES RADIOBUTOON
                CType(arr_con_tp1_1(j), RadioButton).Checked = False
            ElseIf (TypeOf arr_con_tp1_1(j) Is DateTimePicker) Then      'SI ES DATETIMEPICKER
 
                If CType(arr_con_tp1_1(j), DateTimePicker).Name <> "dtp_fecha_aniversario" Then
                    CType(arr_con_tp1_1(j), DateTimePicker).Value = CType(arr_con_tp1_1(j), DateTimePicker).MaxDate
                    CType(arr_con_tp1_1(j), DateTimePicker).Format = DateTimePickerFormat.Custom
                    CType(arr_con_tp1_1(j), DateTimePicker).CustomFormat = "dd/MMM/yyyy"
                ElseIf CType(arr_con_tp1_1(j), DateTimePicker).Name = "dtp_fecha_cumpleaños" Then
                    CType(arr_con_tp1_1(j), DateTimePicker).Value = Date.Now.Day & "/" & Date.Now.Month & "/" & (Date.Now.Year - 18)
                    CType(arr_con_tp1_1(j), DateTimePicker).Format = DateTimePickerFormat.Custom
                    CType(arr_con_tp1_1(j), DateTimePicker).CustomFormat = "dd/MMM/yyyy"
                End If
 
            ElseIf (TypeOf arr_con_tp1_1(j) Is PictureBox) Then        'SI ES PICTUREBOX
                If CType(arr_con_tp1_1(j), PictureBox).Name = "pic_foto" Or CType(arr_con_tp1_1(j), PictureBox).Name = "pic_adi_foto" Then
                    CType(arr_con_tp1_1(j), PictureBox).ImageLocation = rutaimagenes & rutafotos & "\foto.png"
                ElseIf CType(arr_con_tp1_1(j), PictureBox).Name = "pic_firma" Then
                    CType(arr_con_tp1_1(j), PictureBox).ImageLocation = rutaimagenes & rutafirmas & "\firma.png"
                ElseIf CType(arr_con_tp1_1(j), PictureBox).Name = "pic_adi_foto" Then
                    CType(arr_con_tp1_1(j), PictureBox).ImageLocation = rutaimagenes & rutafotosadi & "\foto.png"
                End If
            ElseIf (TypeOf arr_con_tp1_1(j) Is ComboBox) Then       'SI ES COMBOBOX
                CType(arr_con_tp1_1(j), ComboBox).Items.Clear()
                CType(arr_con_tp1_1(j), ComboBox).Text = Nothing
                CType(arr_con_tp1_1(j), ComboBox).Refresh()
                End If
        Next
    End Sub
 

y cuando quiera limpiar solo llamo la funcion

Código vb:

limpiar()
 

y listo

[eperedo]

GroupBox también tiene una propiedad controls, tendrías que recorrerla e ir borrando las cajas de texto que estén dentro de él, tal como haces con el form.