|
Página 1 de 1
|
Autor |
Mensaje |
jesusdaredevil
Usuario
Registrado: Marzo 2011
Mensajes: 14
Edad: 39
|
Ayuda Con Ciclo
Hola.....!!! soy nuevo jejejejeje Espero me Puedan Ayudar...!
Básicamente lo que quiero es resumir el código de limpieza de un formulario, tengo una función que se llama limpiar
PUBLIC SUB limpiar()
DIM i AS Integer
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
END
y lo que Quiero Hacer es algo como esto para ahorrar lineas de programación pero no me funciona, alguien sabe que estoy haciendo mal?
Espero de su Ayuda Gracias de Ante Mano.......!
Nota en la siguiente Linea:
TextBox & Str(i) & .Text = "" '<- me da Este Error: Syntax Error. Point syntax used outside of WITH/END WITH
|
#1 Domingo, 03 Abril 2011, 18:44 |
|
|
Ayortano
|
Re: Ayuda Con Ciclo
No sé si ya lo han respondido en otro tema, pero puedes hacen un TextBox[], y recorrerlo. Así:
Ahora bien, si comparten el mismo contenedor, y justamente quieres limpiar todas las de éste...
|
#2 Domingo, 03 Abril 2011, 21:35 |
|
|
jesusdaredevil
Usuario
Registrado: Marzo 2011
Mensajes: 14
Edad: 39
|
Re: Ayuda Con Ciclo
Gracias....!! Ayortano
Aqui te dejo algo que Consegui.... creo que es un poco mas Sencillo....! Salu2....!
PRIVATE SUB borrar_textbox(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 SUB
y simplemente lo llamo asi:
borrar_textbox(senso) 'donde senso es el Nombre del Formulario
última edición por jesusdaredevil el Lunes, 04 Abril 2011, 01:41; editado 1 vez
|
#3 Lunes, 04 Abril 2011, 01:38 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 50 Ubicación: dos hermanas, sevilla
|
Re: Ayuda Con Ciclo
Interesante solucion....
Saludos
|
#4 Lunes, 04 Abril 2011, 07:16 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Ayuda Con Ciclo
Bienvenido a la comunidad.
Pues si, la solución es bastante buena y nos recuerda el uso del For Each que a veces lo tenemos olvidado.
Es perfecto para este caso.
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#5 Lunes, 04 Abril 2011, 08:28 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Ayuda Con Ciclo
Volviendo al ejemplo.
Si declaras la variable objeto Ctrl como TextBox, estas diciendo la clase de objeto que quieres que sea.
A la hora de comparar en el "IF Ctrl is TextBox" en vez de .Clear, puedes ver en la lista desplegable todas las propiedades del control.
En este caso .Clear o .Txt=""
Si lo haces de la otra manera no sabes realmente lo que puedes poner.
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#6 Lunes, 04 Abril 2011, 09:34 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Ayuda Con Ciclo
Re-contras...
Pues no, si hago eso, me esta pidiendo una caja de texto y le paso un formulario.
Ale, por aprendiz de brujo.
Es que me gusto mucho tu ejemplo.La prisa no es buena consejera.
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#7 Lunes, 04 Abril 2011, 09:55 |
|
|
|
Temas parecidos
Temas parecidos
Tema |
Autor |
Foro |
Respuestas |
último mensaje |
|
Ayuda Y Mas Ayuda, Con Programar Fecha
|
luisrel |
Controles/Librerías/Componentes |
2 |
Viernes, 03 Diciembre 2010, 15:50 luisrel |
|
Gambas3.4(Casi).Ventana De Ayuda Y Ayuda O...
|
Shell |
Instalación |
3 |
Martes, 22 Enero 2013, 00:23 Shell |
|
Ayuda.
|
mauricio785 |
Controles/Librerías/Componentes |
4 |
Miercoles, 12 Octobre 2016, 00:42 vuott |
|
Ayuda Online, Ayuda Offline
|
Shell |
General |
1 |
Jueves, 20 Octobre 2016, 13:30 Shell |
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|