Limpiar todos los TextBox de un Formulario Visual Basic .Net

con la siguiente función podrán limpiar todos los textos de sus TextBox sin necesidad de hacerlo uno a uno.


 Public Sub Limpiar_TextBox(ByVal formulario As Form)

        'Recorremos todos los controles del formulario que enviamos  
        For Each control As Control In formulario.Controls
           
            'Filtramos solo aquellos de tipo TextBox 
            If TypeOf control Is TextBox Then
                control.Text = "" ' eliminar el texto  
            End If
        Next

  End Sub

Esperamos sea de su utilidad

Saludos

También te podría gustar...

11 Respuestas

  1. edgar morales dice:

    ‘Llamar la rutina de limpieza de controles
    Call Limpiar(Me)

    Sub Limpiar(ByVal c1 As Control)
    For Each c As Control In c1.Controls
    If TypeOf c Is TextBox Then
    c.Text = «» ‘ eliminar el texto
    Else
    Limpiar(c)
    End If
    If TypeOf c Is ComboBox Then
    c.Text = «» ‘ eliminar el texto
    Else
    Limpiar(c)
    End If
    If (TypeOf (c) Is CheckBox) Then
    CType(c, CheckBox).Checked = False
    Else
    Limpiar(c)
    End If
    If TypeOf c Is DateTimePicker Then
    c.Text = Date.Today ‘ eliminar el texto
    Else
    Limpiar(c)
    End If
    Next
    End Sub

  2. arge dice:

    No me detecta los checkbox que tengo en un tabcontrol. solo los que están fuera de ese control

  3. Adan Alberto dice:

    Buenos dias:

    Excelente aportacion, limpia los controles correctamente.

    Saludos.

  4. Victor dice:

    Funciona muy bien, Gracias por la ayuda.

  5. OZ Davila dice:

    Bufalo aporte! antes de esto, pasaba horas enlistando todos los controles EJ. textbox1.text=»», 😉

    Con esto esta super!

  6. JoaoM dice:

    Colocar este código en Módulo usar esto en varios formularios en que los TextBox tienen nuevo nombre

    Public Sub Limpiar(ByVal forme As Form)
    ‘Recorremos todos los controles TextBox del formulario que enviamos
    For Each control As Control In forme.Controls
    ‘Filtramos solo aquellos de tipo TextBox
    If TypeOf control Is TextBox Then
    control.Text = «» ‘ eliminar el texto
    End If
    Next
    End Sub

    joaely7@gmail.com

  7. comvision1 dice:

    He probado los codigos que han dejado de ejemplo, pero solo limpian los textbox contenidos directamente en el formulario, no limpian los textbox contenidos en otros objetos, por ejemplo si tengo un groupbox y dentro de este tengo textbox estos codigos que dejaron de ejemplo no los limpian.

  8. FernandoJV84 dice:

    ‘ Limpiar todos los textbox, incluidos los contenidos en GroupBox
    Sub LimpiarTextBox(p As Object)
    For Each c In p.controls

    If TypeOf (c) Is GroupBox Then
    LimpiarTextBox(c)
    ElseIf TypeOf (c) Is TextBox Then
    CType(c, TextBox).Text = «»
    End If
    Next
    End Sub

    ‘ En el formulario
    LimpiarTextBox(Me)

  9. eduardo dice:

    Gracias por el aporte

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *