Cita:
Iniciado por zaida 
Hola a todos:
Estoy utilizando gambas (código basic)
Quiero limitar la entrada de un texbox solo a numeros, estoy inetentando usar el siguiente codigo:
Código:
PUBLIC SUB TextBox_KeyPress()
SELECT CASE Key.Code
CASE 48 TO 57
CASE Key.BackSpace
CASE Key.Delete
CASE Key.Tab
STOP EVENT
END SELECT
END
Me da un error de sintaxis en ésta línea CASE 48 TO 57 y no consigo descubrir por qué. Espero que podais ayudarme
Saludos y muchas gracias
Hola zaida,
en Gambas la instrucción CASE xx
To XX, creo que no funciona, pero en vez de un Select puedes poner una condición If:
Código:
IF key.Code >= 48 AND key.Code <= 57 THEN
ELSE IF key.Code = key.BackSpace THEN
ELSE IF key.Code = key.Delete THEN
ELSE
STOP EVENT
ENDIF
Saludos