Debo repetir el codigo ? - VB-MUNDO

Markoz · #1 (**permalink**) 16-04-2006, 19:50:12

Hola, tengo un formulario el cual tiene varios text que son para el ingreso de datos por parte del usuario. le puse un boton "Borrar" para que al presionarlo borre todos los text (son 12).

Código:

For i = 0 To 11 
            frmINTERFAZ.txtINGRESADO(i) = ""
         Next i

[ aclaro que es una coleccion de Text, por eso el txtINGRESADO(i) ]

Si tengo otro formulario con la misma cantidad de Text, debo hacer otro procedimiento para este? No puedo hacer un modulo que contega un procedimiento para borrar todos los txt del
formulario que se le pase?
Me trave ahi porque me tirar un error, pero al hacerle otro procedimiento identico al otro form
ya no hubo problemas.

screw · #2 (**permalink**) 16-04-2006, 20:10:00

No comprendi bien la pregunta pere yo lo que haria seria crear una funcion generica para poder utilizarla en cualquier formulario sin importar cuantos textbox existan, es algo parecido a:

for each OBJ in FRM.controls

if OBJ.name = "Textbox" then

OBJ.text = ""

end if

next

Donde OBJ es una variable al objeto textbox y FRM es una variable para manipular el formulario, espero te sirva
Suerte :smt023

acalanto · #3 (**permalink**) 16-04-2006, 20:26:22

Acabo de probar este código y funciona (aunque no sea demasiado elegante)

Invoca desde el formulario borrarDatos me.txtINGRESADO

Public Sub borrarDatos(t As Variant)
On Local Error Resume Next
Dim i As Integer
If TypeOf t(0) Is TextBox Then
i = 0
Do Until Err
t(i).Text = ""
i = i + 1
Loop
End If
End Sub

chronos682 · #4 (**permalink**) 18-04-2006, 19:07:56

No sé si sea lo que quieres pero podrías hacer un procedimiento mas o menos así en un módulo:

Public Sub Borrar (Formulario As Form)
'Teniendo en cuenta que la matriz de controles
'siempre se va a llamar igual en todos los formularios
'en que la utilices
Dim i As Integer
For i = 0 To Formulario.txtINGRESADO.Count - 1
Formulario.txtINGRESADO(i).Text = ""
Next
End Sub

Para llamar la función colocarías en el command lo siguiente:

Call Borrar (Me)

La verdad no sé si funcione correctamente por lo que lo estoy haciendo de memoria, pero si no inténta hacerlo más o menos de esta manera.
Espero te sirva de algo.

Markoz · #5 (**permalink**) 18-04-2006, 19:41:53

Me olvide del pen drive, asi que impri sus respuestas para probar a ver cual funciona, o mejor dicho, a cual me adapto mejor.
Gracias a los tres por tomarse el tiempo de analizar mi problema y darme una mano.
Gracias muchachos!

Markoz · #6 (**permalink**) 19-04-2006, 20:35:42

Al final todo anduvo sobre ruedas... Aca les muestro el principio de lo que quiero hacer, mas que nada por si no me habian entendido bien que era lo que buscaba. Bueno, gracias otra vez. Cuando este todo terminado, lo subire para que me critiquen el programa, que de seguro tendra cosas que corregir.
Hasta pronto!