Ver Mensaje Individual
  #6 (permalink)  
Antiguo 28/11/2003, 11:02
Avatar de lic_dahool
lic_dahool
 
Fecha de Ingreso: noviembre-2003
Mensajes: 418
Antigüedad: 21 años, 6 meses
Puntos: 0
ok, es realmente muy simple, yo hice una función con estas constantes:

Const eNumero = "1234567890"
Const eTextoMi = "abcdefghijklmnopqrstuvwxyzñáéíóú"
Const eTextoMa = "ABCDEFGHIJKLMNOPQRTSUVWXYZÑ"
Const eSimbolo = "/*-+=_][{}\|';:.,?!@#$%^&()`~<>"
Const eMoneda = "1234567890."

a la función le paso como referencia el KeyAscii del evento KeyPress del control y que formato quiero (numero, texto min, texto mayusc, etc) verifico un INSTR si el chr(keyascii) este en la constante, sino seteo keyascii=0.

ojo tenes que tener en cuenta que si el keyascii es igual a 8, 13 o 27 no haga nada (borrar, enter, esc).

espero te sea util. saludos.
__________________
La cantidad total de inteligencia del planeta permanece constante.
La población, sin embargo, sigue aumentando.

COLE


:cool: Los ordenadores no resuelven problemas ... ejecutan soluciones.
Laurent Gasser


Tienes alguna duda :pensando: ? >>> www.google.com :aplauso: <<<