Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
Varios Texbox Con El Mismo Evento!!
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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).
PUBLIC SUB grupoText_KeyPress()

    IF mUtils.kEnter() THEN '--------------------- Se ha pulsado enter
          LAST.Next.SetFocus
    ELSE
        SELECT CASE LAST.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



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
Código: [Descargar] [Ocultar]
  1. PUBLIC SUB gEnter_KeyPress()  
  2.  
  3.    IF validar.kEnter() THEN '--------------------- Se ha pulsado enter  
  4.           LAST.NEXT.SetFocus  
  5.     ELSE  
  6.         SELECT CASE LAST.tag  
  7.            CASE 1                    ' Solo admite números  
  8.                     IF validar.onlynum() THEN STOP EVENT    
  9.            CASE 2                    ' Admite solo numeros pero con 2 decimales  
  10.                     IF validar.onlynum(2) THEN STOP EVENT  
  11.            ' CASE 3                    ' Pasa todo a Mayúsculas  
  12.            '          mUtils.amayusculas(LAST)       ' YO ESTO LO PONDRIA EN EL EVENTO CHANGE  
  13.        ' Y TODOS LO CASE QUE SE TE OCURRAN Y SEAN LOGICOS POR SUPUESTO  
  14.     END SELECT  
  15.   END IF  
  16.  
  17. END  
  18.  

 



 
m_padron - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.
 pantallazo
 



 
última edición por m_padron el Jueves, 25 Noviembre 2010, 15:17; editado 1 vez 
m_padron - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 



 
ahtonio - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Varios Texbox Con El Mismo Evento!! 
 
Ok lo pruebo y te aviso, antonio Gracias
 



 
m_padron - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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?
 



 
m_padron - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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

trytextbox-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: trytextbox-0.0.1.tar.gz
Tamaño: 9.44 KB
Descargado: 63 veces
trytextbox-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: trytextbox-0.0.1.tar.gz
Tamaño: 9.44 KB
Descargado: 63 veces
trytextbox-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: trytextbox-0.0.1.tar.gz
Tamaño: 9.44 KB
Descargado: 63 veces

 



 
ahtonio - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 



 
m_padron - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
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 Cargar Un Dato De La BD A Un "Evento ... OneErick Bases de Datos 7 Miercoles, 20 Marzo 2013, 23:29 Ver último mensaje
OneErick
No hay nuevos mensajes TurboPDF: Visiona Varios Pdf O El Mismo Pd... jsbsan Aplicaciones/Fragmentos de Código 2 Lunes, 28 Abril 2014, 01:38 Ver último mensaje
portaro
No hay nuevos mensajes Un Mismo Tooltip Para Varios Botones Hay O... v3ctor General 10 Miercoles, 05 Noviembre 2014, 15:16 Ver último mensaje
v3ctor
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

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