Enlaces patrocinados:

Trucos de Visual Basic 6.0 Limpiar todas las cajas de texto de un formulario

Podemos limpiar, o inicializar todos los campos de un formulario de visual basic 6.0 rápidamente.


Public Sub Limpiar(frmForm As Form)
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmForm.Controls ctlControl.Text = "" ctlControl.ListIndex = -1
DoEvents
Next ctlControl
End Sub
NUEVO: Si tienes dudas de informática pregunta en nuestros foros

Comentarios sobre Limpiar todas las cajas de texto de un formulario

mario dice:

no te entendi ni madre :S
Comentario publicado 01/06/2010 18:43:00
sasuke dice:

haha neta q yo tampoco le entiendo
Comentario publicado 17/06/2010 6:10:00
james dice:

sigan estudiando calichines
Comentario publicado 13/09/2010 16:38:00
markos dice:

primero crea un boton con el nombre cmdlimpiar. y en el codigo del boto colocas esto... Private Sub cmdlimpiar_Click() Dim ctlControl As Object On Error Resume Next For Each ctlControl In frmForm.Controls ctlControl.Text = "" ctlControl.ListIndex = -1 DoEvents Next ctlControl End Sub
Comentario publicado 31/01/2011 15:31:00
karlos dice:

Hola! tengo un problema con el codigo y me dice que el frmForm no esta declarado, que hago¿?
Comentario publicado 12/04/2011 9:43:00
luis dice:

dean nuevos codigos para realizar nuevos procesos en el progframador
Comentario publicado 09/05/2011 2:42:00
jorge dice:

pero hay que crear un comandboton para ejecutar esto?
Comentario publicado 27/05/2011 4:45:00
Nano dice:

Está clarísimo. Lo que hace la rutina es recorrer todos los controles del formulario los deja vacíos. Lo único que se hace es llamar a la rutina de donde quieran... Basta colocar un commandbutton y en el evento click escribir "Call Limpiar(Me)".
Comentario publicado 31/05/2011 18:54:00
Czar dice:

Nano mira no funciono
Comentario publicado 08/07/2011 1:43:00
brav dice:

Que monton de idiotas, como no van a entender, para q se meten a programar si el cerebro no les da!
Comentario publicado 27/07/2011 19:52:00
Luis Tomasto dice:

Aqui un codigo espero lo entiendan Public Sub Limpiar(sFORM As Form) For Each ObjTexto In sFORM.Controls If (TypeOf ObjTexto Is TextBox) Then ObjTexto.Text = "" 'vbNullString Next ObjTexto Set ObjTexto = Nothing For Each Objcombo In sFORM.Controls If (TypeOf Objcombo Is ComboBox) Then Objcombo.Text = "" 'vbNullString Next Objcombo Set Objcombo = Nothing For Each ObjListview In sFORM.Controls If (TypeOf ObjListview Is ListView) Then ObjListview.ListItems.Clear Next ObjListview End Sub
Comentario publicado 12/09/2011 19:31:00
karla dice:

creen un boton que se llame cmdlimpiar... despues usan el codigo... private sub cmdboton_click() txtnombre="" txtedad="" txtdomicilio="" y asi dependiendo la cantidad de cajas de texto que utilicen end sub
Comentario publicado 27/10/2011 10:25:00
CECILIA dice:

para limpiat campos de texto. SUB PRIVATE cmbLimpiar_click() text1.text="" text2.text="" . . . textn.text="" end sub
Comentario publicado 18/01/2012 19:50:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad