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
Gracias por el aporte
‘ 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)
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.
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
Bufalo aporte! antes de esto, pasaba horas enlistando todos los controles EJ. textbox1.text=»», 😉
Con esto esta super!
Funciona muy bien, Gracias por la ayuda.
Buenos dias:
Excelente aportacion, limpia los controles correctamente.
Saludos.
No me detecta los checkbox que tengo en un tabcontrol. solo los que están fuera de ese control
‘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
me parece bueno tu aporte sin embargo recuerda que los combobox se componen de items por lo tanto también deberías limpiarlos. Saludos
Suave, gracias