Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » Controles/Librerías/Componentes

Fecha y hora actual: Martes, 30 Abril 2024, 06:29 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Recorrer Controles Iguales


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Recorrer Controles Iguales
Autor Mensaje
Desconectado karpaga Sexo: Masculino
Usuario
Usuario
avatar
Registrado: Febrero 2010
Mensajes: 36
Edad: 43
Ubicación: spain.png
 Happy Birthday
 
Responder citando   Descargar mensaje  
Mensaje Recorrer Controles Iguales 
 
Hola estoy intentando recorrer varios controles (TextBox) de un formulario con un for each pero no encuentro la manera.
La idea es limpiar el contenido de por ejemplo 10 cajas de texto siendo algo así como:

For each caja in txtcajas
  caja.text = ""
next
 


El nombre del campo "Group" es el mismo para todas (txtcajas).
Gracias.
 



 
#1  Lunes, 10 May 2010, 09:50
karpaga - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado chen_08 Sexo: Masculino
Aprendiz
Aprendiz
avatar
Registrado: Octobre 2009
Mensajes: 86
Edad: 34
Ubicación: panama.png Coclé
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Recorrer Controles Iguales 
 
Hola karpaga bueno espero haber entendido tu pregunta..!! Bueno quieres recorrer 10 textbox y al darle click por ejemplo a un Button que los 10 textbox se le elimine el texto..!! Si es así aquí te dejo el código que hice

'Declaro una variable publica para los textbox
'Porque publica bueno por si acaso necesitas recorrer nuevamente los textbox
PUBLIC textboxs AS NEW Object[]

'En el evento Open del Formulario "form"
PUBLIC SUB Form_Open()
'Agrego los 10 Textbox en el Array de Objetos
textboxs = [TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10]
END

'En el Button1
PUBLIC SUB Button1_Click()
'Se declara cajas como objeto esta guardara cada textbox de el array de objetos "textboxs"
DIM cajas AS Object
FOR EACH cajas IN textboxs
  cajas.Text = "" 'Elimino el Texto de cada objeto
NEXT
END
 


Espero que te sirva..!! Saludos  
 




===================
------------------------------------------------------------------------------------
Visita http://help-gambas.blogspot.com/
Blog Dedicado a la Programación en Gambas
------------------------------------------------------------------------------------
 
#2  Lunes, 10 May 2010, 15:27
chen_08 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado abarzuaf Sexo: Masculino
Ingeniero Programador
Ingeniero Programador
avatar
Registrado: Octobre 2009
Mensajes: 265
Edad: 54
Ubicación: chile.png
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Recorrer Controles Iguales 
 
Hola.

Otra forma seria:

PRIVATE SUB borrar_cajas(formulario AS form)
DIM control AS Control
DIM cajas AS TextBox

FOR EACH control IN formulario.Children
  IF control IS textbox THEN
    cajas = control
    cajas.Clear
    END IF
NEXT

END SUB


PUBLIC SUB Button1_Click()

  borrar_cajas(fmain)

END

 



 
#3  Lunes, 10 May 2010, 15:32
abarzuaf - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado karpaga Sexo: Masculino
Usuario
Usuario
avatar
Registrado: Febrero 2010
Mensajes: 36
Edad: 43
Ubicación: spain.png
 Happy Birthday
 
Responder citando   Descargar mensaje  
Mensaje Re: Recorrer Controles Iguales 
 
Me valen las dos. Gracias.
 



 
#4  Lunes, 10 May 2010, 15:40
karpaga - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado fabianfv Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Octobre 2009
Mensajes: 495
Edad: 50
Ubicación: argentina.png
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Recorrer Controles Iguales 
 
En realidad, se puede hacer aún más simple si se considera que cada formulario tiene una colección asociada llamada Controls cuyos elementos son referencias a esos controles, y que la estructura iterativa FOR-EACH asigna cada elemento de la colección Controls a la variable que se utiliza para la enumeración.

Modifico el código de abarzuaf:


PRIVATE SUB borrar_cajas(formulario AS form)
DIM Ctrl AS Object

  'Cada formulario tiene asociada un colección llamada Controls.
  FOR EACH Ctrl IN formulario.Controls
    'En cada iteración a Ctrl le es asignado uno de los elmentos de Controls,
    'es decir una referencia a un control del formulario.
    IF Ctrl IS TextBox THEN Ctrl.Clear  
  NEXT
END

PUBLIC SUB Button1_Click()
  borrar_cajas(fmain)
END

 

 




===================
Cómo programar con Gambas

Speed Books: informática libre.
 
#5  Lunes, 10 May 2010, 21:48
fabianfv - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Recorrer Una Cadena [SOLUCIONADO] pittusa General 3 Miercoles, 26 May 2010, 00:26 Ver último mensaje
Invitado
No hay nuevos mensajes Recorrer Varios Controles (Solucionado) Dani26 General 7 Miercoles, 21 Septiembre 2011, 22:50 Ver último mensaje
Dani26
No hay nuevos mensajes Rellenar Varios Combos De Varios Formulari... CanihoJR General 9 Martes, 12 Junio 2012, 21:44 Ver último mensaje
luisrel
No hay nuevos mensajes Recorrer ColumView kamps Controles/Librerías/Componentes 4 Miercoles, 20 Febrero 2013, 13:11 Ver último mensaje
kamps
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Gambas » Controles/Librerías/Componentes

Fecha y hora actual: Martes, 30 Abril 2024, 06:29 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron