Autor |
Mensaje |
soplo
Analista Programador
Registrado: Septiembre 2009
Mensajes: 843
Edad: 44
|
Re: Varios Texbox Con El Mismo Evento!!
Pues agradece a ahtonio también por explicar el NEXT de esa forma. Aquí todos aprendemos algo je je je jej e
|
#11 Miercoles, 24 Noviembre 2010, 22:23 |
|
|
m_padron
Usuario
Registrado: Noviembre 2010
Mensajes: 9
Edad: 55
|
Re: Varios Texbox Con El Mismo Evento!!
[quote user="ahtonio" post="6461"]
En el evento _keypress del/os textbox que lo requieran (buena la idea de agruparlos).
Gracias antonio, este codigo se ve fenomenal, pero lo tratar de adaptarlo a mis requerimeinto y no hace nada, es decir no salta al oprimir enter y mucho menos no me deja escribir letras ni numero, yo tengo un modulo q se llama VALIDAR en donde coloque la funcion, yben FMAIN, coloco el disparador de evento de la siguiente manre
- PUBLIC SUB gEnter_KeyPress()
-
- IF validar.kEnter() THEN '--------------------- Se ha pulsado enter
- LAST.NEXT.SetFocus
- ELSE
- SELECT CASE LAST.tag
- CASE 1 ' Solo admite números
- IF validar.onlynum() THEN STOP EVENT
- CASE 2 ' Admite solo numeros pero con 2 decimales
- IF validar.onlynum(2) THEN STOP EVENT
- ' CASE 3 ' Pasa todo a Mayúsculas
- ' mUtils.amayusculas(LAST) ' YO ESTO LO PONDRIA EN EL EVENTO CHANGE
- ' Y TODOS LO CASE QUE SE TE OCURRAN Y SEAN LOGICOS POR SUPUESTO
- END SELECT
- END IF
-
- END
-
|
#12 Jueves, 25 Noviembre 2010, 15:09 |
|
|
m_padron
Usuario
Registrado: Noviembre 2010
Mensajes: 9
Edad: 55
|
Re: Varios Texbox Con El Mismo Evento!!
Aqui le dejo erl FORM en vista grafica para q se den una idea. Saludos y mil garcias por artar de orientarme en este programa.
última edición por m_padron el Jueves, 25 Noviembre 2010, 15:17; editado 1 vez
|
#13 Jueves, 25 Noviembre 2010, 15:14 |
|
|
ahtonio
Programador
Registrado: Octobre 2009
Mensajes: 144
Edad: 58 Ubicación: Zaragoza
|
Re: Varios Texbox Con El Mismo Evento!!
Hola, para adaptarlo y entender como funciona yo te diría que probases a adaptarlo para un textbox sin incluir en ningún grupo.
Además me hace dudar y no puedo probarlo por que estoy trabajando en este momento sobre una máquina con Windows, que la sentencia case podría ser que fuese un string lo que te de y la comparación deba ir entre comillas así:
PUBLIC SUB TextBox1_KeyPress()
IF mUtils.kEnter() THEN '--------------------- Se ha pulsado enter
TextBox1.Next.SetFocus
ELSE
SELECT CASE TextBox1.tag
CASE "1" ' Solo admite números
IF mUtils.onlynum() THEN STOP EVENT
CASE "2" ' Admite solo numeros pero con 2 decimales
IF mUtils.onlynum(2) THEN STOP EVENT
CASE "3" ' Pasa todo a Mayúsculas
mUtils.amayusculas(LAST) ' YO ESTO LO PONDRIA EN EL EVENTO CHANGE
' Y TODOS LO CASE QUE SE TE OCURRAN Y SEAN LOGICOS POR SUPUESTO
END SELECT
END IF
END
Si no funciona, me lo dices que probaré con un grupo de controles textbox.
Un saludo
Antonio
|
#14 Jueves, 25 Noviembre 2010, 19:50 |
|
|
m_padron
Usuario
Registrado: Noviembre 2010
Mensajes: 9
Edad: 55
|
Re: Varios Texbox Con El Mismo Evento!!
Ok lo pruebo y te aviso, antonio Gracias
|
#15 Jueves, 25 Noviembre 2010, 20:46 |
|
|
m_padron
Usuario
Registrado: Noviembre 2010
Mensajes: 9
Edad: 55
|
Re: Varios Texbox Con El Mismo Evento!!
Esta parte si funciona:
PUBLIC SUB TextBox1_KeyPress()
Label1.Text = TextBox1.Tag
IF validar.kEnter() THEN '--------------------- Se ha pulsado enter
TextBox1.Next.SetFocus
ELSE............
Pero de textbox1 al siguiente, es decir al 2, pero si hay mas de 2 no hace el salto.
Pero en el resto del codigo:
SELECT CASE TextBox1.tag
CASE "1" ' Solo admite números
IF validar.onlynum() THEN STOP EVENT
CASE "2" ' Admite solo numeros pero con 2 decimales
IF validar.onlynum(2) THEN STOP EVENT
CASE "3" ' Pasa todo a Mayúsculas
validar.amayusculas(LAST) ' YO ESTO LO PONDRIA EN EL EVENTO CHANGE
' Y TODOS LO CASE QUE SE TE OCURRAN Y SEAN LOGICOS POR SUPUESTO
END SELECT
END IF
END
Si coloco en el tag=1 propeidad no escribe letra ni numeros, sino coloco nada me deja escribir letras y numeros a la vez
TextBox1.tag->coriijeme si me equivoco esto es cuando quiero agrupar varios objetos, y difernciarlo es por el tag?
|
#16 Jueves, 25 Noviembre 2010, 21:20 |
|
|
soplo
Analista Programador
Registrado: Septiembre 2009
Mensajes: 843
Edad: 44
|
Re: Varios Texbox Con El Mismo Evento!!
El ejemplo que el te dió era para un textbox. Si quieres probarlo en un grupo en vez de textbox1.next.setfocus debería ser last.next.setfocus.
Last siempre es el actual, sea el que sea. De esa forma le dices que salte al NEXT del actual.
Creo que eso te pasa en general en todo el código que te puso.
Un saludo
|
#17 Jueves, 25 Noviembre 2010, 22:33 |
|
|
ahtonio
Programador
Registrado: Octobre 2009
Mensajes: 144
Edad: 58 Ubicación: Zaragoza
|
Re: Varios Texbox Con El Mismo Evento!!
Hola de nuevo. Creo que te falta un poco probar y equivocarte para aprender. No te sepa malo, pero en gambas tienes que ser así.
Consulta la ayuda en línea y busca, pruébalo y si no funciona inténtalo de otra forma.
El modelo de gambas es distinto de lo que antes sabías, hay cosas que funcionan distinto, otras mejor, otras que te tendrás que adaptar y muy importante, si no existe HAZTELO.
La propiedad Tag es una "etiqueta" como la misma palabra dice, y sirve para que la use el programador como mejor le convenga, pero ponga lo que ponga en Tag, no va a afectar para nada al funcionamiento de la aplicación. Esta propiedad existe en todos (creo) los entorno gráficos con los que puedas trabajar, al menos yo la conozco de Foxpro, VBA, Visual Basic, y otros y no falta en ninguno. El uso que tu le des a esa propiedad es lo que afectará al funcionamiento de la aplicación porque dependiendo de lo que pongas, te permitirá tomar decisiones sobre la lógica de tu programa.
Aunque no es lo normal, te paso un ejemplo para que lo veas, sencillo y funcional y si tienes alguna duda, ya sabes para que estamos. No obstante recuerda darle un poco al coco y destroza el programa antes de rendirte. Cada vez que costará menos por que sabrás más.
Un saludo
Descripción: |
|
Descargar |
Nombre del archivo: |
trytextbox-0.0.1.tar.gz |
Tamaño: |
9.44 KB |
Descargado: |
63 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
trytextbox-0.0.1.tar.gz |
Tamaño: |
9.44 KB |
Descargado: |
63 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
trytextbox-0.0.1.tar.gz |
Tamaño: |
9.44 KB |
Descargado: |
63 veces |
|
#18 Jueves, 25 Noviembre 2010, 23:07 |
|
|
m_padron
Usuario
Registrado: Noviembre 2010
Mensajes: 9
Edad: 55
|
Re: Varios Texbox Con El Mismo Evento!!
Gracias SOPLO, y ANTONIA, por tus palabras tiene toda la razon, para saber mas hay q equivocarse, ya que asi podrasdetectar lo errores q estas cometiendo. Saludos, probare el ejemplo y me partire la cabeza para desglosarlo poco a psoco
|
#19 Viernes, 26 Noviembre 2010, 13:56 |
|
|
jguardon
Administrador
Registrado: Septiembre 2009
Mensajes: 2708
Edad: 57 Ubicación: Granada
|
Re: Varios Texbox Con El Mismo Evento!!
m_padron escribió: Gracias SOPLO, y ANTONIA, por tus palabras tiene toda la razon, para saber mas hay q equivocarse, ya que asi podrasdetectar lo errores q estas cometiendo. Saludos, probare el ejemplo y me partire la cabeza para desglosarlo poco a psoco
No está permitido el uso de abreviaturas SMS. Por favor, revisen las Normas del Foro.
=================== Jesús Guardón
Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".
"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
|
#20 Viernes, 26 Noviembre 2010, 20:25 |
|
|
|