• Jueves 28 de Marzo de 2024, 13:30

Autor Tema:  Limpiar Varias Cajas De Texto  (Leído 2692 veces)

abelsql3000

  • Miembro activo
  • **
  • Mensajes: 76
    • Ver Perfil
Limpiar Varias Cajas De Texto
« en: Viernes 27 de Abril de 2007, 19:32 »
0
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

AnioN

  • Miembro MUY activo
  • ***
  • Mensajes: 339
    • Ver Perfil
Re: Limpiar Varias Cajas De Texto
« Respuesta #1 en: Viernes 27 de Abril de 2007, 19:56 »
0
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
  1. Text1(i).text = " "
  2.  

no recuerdo muy bien la sintaxis de VB 6.

Epa

  • Miembro MUY activo
  • ***
  • Mensajes: 242
  • Nacionalidad: ar
    • Ver Perfil
Re: Limpiar Varias Cajas De Texto
« Respuesta #2 en: Viernes 27 de Abril de 2007, 20:30 »
0
Buenas

Como dijo AnioN, seria
Código: Text
  1.  
  2. For i = 0 to (Text1.Count - 1)
  3.   Text1(i).Text = vbNullString
  4. Next
  5.  
  6.  

Saludos :hola:
The sweet smell of a great sorrow lies over the land.


RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Limpiar Varias Cajas De Texto
« Respuesta #3 en: Viernes 27 de Abril de 2007, 21:24 »
0
checa esto Limpiar Varios TextBox lo encontre con el buscador del foro.
El pasado son solo recuerdos, el futuro son solo sueños

Miguel_ACL

  • Nuevo Miembro
  • *
  • Mensajes: 18
    • Ver Perfil
Re: Limpiar Varias Cajas De Texto
« Respuesta #4 en: Domingo 29 de Abril de 2007, 02:01 »
0
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.
__________________________________________________
Nadie conoce todo, ni nadie desconoce todo; por ello todos tenemos algo que aprender y también tenemos algo que enseñar.