Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Simple Funcion Solo Numeros En Un Textbox
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Simple Funcion Solo Numeros En Un Textbox 
 
aqui expongo una simple funcion pero  muy util para dejar que solo se introduzcan números dentro de un textbox o lo puedes aplicar a otro control.

PRIVATE FUNCTION Solo_Numeros(KeyTecla AS Integer)
  
  IF KeyTecla >= 48 AND KeyTecla <= 57 THEN
  ELSE
  STOP EVENT
  END IF
  
END
 


y la puedes llamar de esta forma
PUBLIC SUB TextBox1_KeyPress()
  Solo_Numeros(Key.Code)
END
 


si quieres saber el Key de una tecla especifica lo puedes hacer de la siguiente forma
PUBLIC SUB TextBox1_KeyPress()
Message.Info(Key.Code)
END
 

entonces cada vez que presiones una tecla dentro del textbox aparecera un Message con el numero Key (Key.Code)

saludos
 



 
DEATH - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
Hola

Esta es mi versión desde el manejador del evento KeyPress del mismo control, que además permite borrar hacia atrás o hacia delante y pulsar TAB para cambiar al siguiente control:

PUBLIC SUB txtFreq_KeyPress()
    SELECT CASE Key.Code
        CASE 48 TO 57
        CASE 46
        CASE Key.BackSpace
        CASE Key.Delete
        CASE Key.Tab
        CASE ELSE
          STOP EVENT
    END SELECT    
END
 


Pero igualmente se puede convertir a una función para usarlo a tu manera.

Saludos
 




===================
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
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
Hola
Esa rutina tiene el problema de usar constantes numéricas que pueden dar problemas. gambas aconseja no utilizarlas.
http://gambasdoc.org/help/comp/gb.qt/key/code

Reescribo esa rutina para evitar ese problema

PUBLIC SUB txtFreq_KeyPress()
   SELECT CASE Key.Code
       CASE key["0"] TO key["9"]
       CASE key[" "]
       CASE Key.BackSpace
       CASE Key.Delete
       CASE Key.Tab
       CASE ELSE
         STOP EVENT
   END SELECT    
END


aunque tambilén valdría mediante las funciones de interpretación de caracteres
PUBLIC SUB txtFreq_KeyPress()
   SELECT CASE Key.Code
       CASE isdigit(key.text)
       CASE isblank(key.text)
       CASE Key.BackSpace
       CASE Key.Delete
       CASE Key.Tab
       CASE ELSE
         STOP EVENT
   END SELECT    
END


Interpretación de caracteres
 
 



 
última edición por soplo el Viernes, 02 Octobre 2009, 18:47; editado 1 vez 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
wena wena... me gusto...  
 



 
DEATH - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
Pues de verdad que no lo entiendo.  
Yo en VB usaba IsNumeric() para eso. No se porque no utilizáis IsNumber() en el caso de gambas

PUBLIC SUB TextBox1_KeyPress()
IF IsNumber(Val(Key.Text)) = FALSE THEN
STOP EVENT
END IF
END

edito-
 por correciones, ok
 



 
última edición por CHIKILICUATRE el Lunes, 25 Enero 2010, 00:40; editado 1 vez 
CHIKILICUATRE - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
There is a VALUEBOX who realise this job.
but there is a bug. If you ajust Read propertie to FALSE, it is possible to write in it.
 
 



 
spheris - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
Why do you think that is a bug? If Read = True, then the ValueBox is only read, else (Read = False) the ValueBox is Read/Write. That's logical for me.
 




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

Speed Books: informática libre.
 
fabianfv - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
valuebox is only a new class inherits textbox with some templates. Making a new class which take from textbox wilth your own templates and methods is very easy so I don't like valuebox. Dates ave valid en english format only in valuebox.

I prefer my own class that does everything as I like. Its very easy and not a waste you time
 
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
Yo creo que la mejor función es usar el control ValueBox que solo acepta números mientras que el TextBox acepta letras, Caracteres especiales y números "Alfanumérico"
 



 
última edición por GambasLinux el Domingo, 28 Febrero 2010, 13:45; editado 1 vez 
GambasLinux - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Simple Funcion Solo Numeros En Un Textbox 
 
Depende de lo que quieras. El valuebox es un poco "buggy", defectuoso según para qué lo uses. Por ejemplo con valores Float, si el numero entero es 0 nunca lo muestra delante del delimitador decimal:

0,21332 lo mostraría como ,21332

Prefiero en este caso un control a mi medida...

Saludos
 




===================
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 Busqueda Simple Un Textbox Dentro De Un Te... alexprox Aplicaciones/Fragmentos de Código 1 Viernes, 05 Marzo 2010, 04:44 Ver último mensaje
Invitado
No hay nuevos mensajes Validacion De Letras Y Numeros ANDRYS General 3 Martes, 14 Diciembre 2010, 20:31 Ver último mensaje
razaAztk
No hay nuevos mensajes Validar Letras Y Numeros jousseph Controles/Librerías/Componentes 2 Sabado, 09 Julio 2011, 09:02 Ver último mensaje
ahtonio
No hay nuevos mensajes Impresion De La Suma De Numeros Chema9879 General 2 Lunes, 21 Octobre 2019, 15:39 Ver último mensaje
Guizans
 

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

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