Convertir el valor de una tecla en otra
Necesito que cuando digite en un text y presione la tecla space "espacio" en vez de darme un espacio me coloque un astrisco, es para un asunto de búsqueda
Respuesta de SysGen Argentina
1
Se me ocurren 2 maneras de hacerlo.
Primera:
En el método KeyPress de tu Textbox incluyes lo siguiente
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=32
this.Value = ALLTRIM(this.Value)+'*'
KEYBOARD '{END}'
ENDIF o bien en el método Valid del mismo TextBox.
this.Value = CHRTRAN(this.Value,' ','*')
La 1ra.opción cambiará automáticamente el espacio en *, mientras que la segunda una vez que salgas del objeto textbox.
¡Muchas Gracias SysGen!
El primer código era justo lo que solicitaba.
Soy aficionado de la programación de Fox Pro y admiro todas las persona que se dedican a la programación. mil gracias
