Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PUBLIC FUNCTION Solo_Numeros()
- 'Message.Warning(Key.Code)
- SELECT CASE Key.Code
- CASE Key["0"] TO key["9"] '0123456789
- CASE Key.Control AND Key["C"] 'control+C
- CASE Key.Control AND Key["X"] 'control+X
- CASE Key.Control AND Key["V"] 'control+V
- CASE Key.Left 'izquierda
- CASE Key.Right 'derecha
- CASE Key.BackSpace 'borrar atras
- CASE Key.Delete 'borrar delante
- CASE Key.Tab 'tabulador
- CASE ELSE
- STOP EVENT
- END SELECT
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement