Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: abelsql3000 en Viernes 27 de Abril de 2007, 19:32
Título: Limpiar Varias Cajas De Texto
Publicado por: abelsql3000 en Viernes 27 de Abril de 2007, 19:32
Tengo una interface con un sin numero de cuadro de texto y deseo limpiar el contendido de todos ellos. Por favor el codigo mas sencillito para poder lograr esto Me han dicho que debo crear un procedimiento de usuario y usar la Sentencia FOR EACH, pero no tengo idea como funciona, pero si he usado FOR NEXT Agradecere sus diferentes aporte, Gracias Abel
Título: Re: Limpiar Varias Cajas De Texto
Publicado por: AnioN en Viernes 27 de Abril de 2007, 19:56
si lo que tenes es un array de controles lo que podes hacer es dentro de un for-next es poner este codigo:
Código: Text
Text1(i).text = " "
no recuerdo muy bien la sintaxis de VB 6.
Título: Re: Limpiar Varias Cajas De Texto
Publicado por: Epa en Viernes 27 de Abril de 2007, 20:30
Buenas
Como dijo AnioN, seria
Código: Text
For i = 0 to (Text1.Count - 1)
Text1(i).Text = vbNullString
Next
Saludos :hola:
Título: Re: Limpiar Varias Cajas De Texto
Publicado por: RadicalEd en Viernes 27 de Abril de 2007, 21:24
checa esto Limpiar Varios TextBox (http://foros.solocodigo.com/index.php?showtopic=20158&hl=varios+textbox) lo encontre con el buscador del foro.
Título: Re: Limpiar Varias Cajas De Texto
Publicado por: Miguel_ACL en Domingo 29 de Abril de 2007, 02:01
Una buena forma es como indican Epa y AnioN, pero el detalle si te percatas, es que debes crear matrices de controles; pero con el For ... Each es mucho más funcional, ahí te dejo un pedazo de código:
SENTENCIA FOR EACH ... NEXT Esta construcción es similar al bucle For, con la diferencia de que la variable que controla la repetición del bucle no toma valores entre un mínimo y un máximo, sino a partir de los elementos de un array (o de una colección de objetos). La forma general es la siguiente: For Each variable In grupo [ sentencias] Next variable Con arrays variable tiene que ser de tipo Variant. Con colecciones variable puede ser Variant una variable de tipo Object. Esta construcción es muy útil cuando no se sabe el número de elementos que tiene el array o la colección de objetos.
El código es este:
Private Sub cmdBorrar_Click() Dim Control As Object For Each Control In Controls 'Con este bucle recorres todos los controles del form If TypeOf Control Is TextBox Then 'Comprueba que tipo de control es Control.Text = "" End If Next Control End Sub
Espero que te sirva. ____________________________________________________________________ Nadie sabe todo, ni nadie sabe nada.
Todos tenemos algo que enseñar, y también tenemos algo que aprender.