https://foro.gambas-es.org/viewtopic.php?f=1&t=4124&p=23242#p23242
-----------------------------------
Shell
Jueves, 11 Septiembre 2014, 18:55

Cuestion Sobre Key.Code
-----------------------------------
Hola!.

Observo que en juegos de un Gambas2 o aun mas antiguo , en vez de usar por ejemplo:

Key.Left usa 4114

¿ No existía entonces Key.Left ?. ¿ Cambiaba según la distribución del teclado ?. En este caso es de un teclado Italiano.
Os muestro el códiigo

[code linenumbers=false syntax=gambas]
Public Sub Form_KeyPress()
Dim a As Integer
    If Me.Mouse = Mouse.Wait Then Return

    Select Case Key.Code
    Case Key.Esc
    a = Message.Question("salir del juego? ", " si ", " no ")
    If a = 1 Then Ftetris.Close
        'Case 4114 'freccia sinistra
        Case Key.Left
            funcMuoviBlocco(BYT_SX)
        Case 4116 'freccia destra
            funcMuoviBlocco(BYT_DX)
        Case 4117 'freccia giu
            funcMuoviBlocco(BYT_GIU)
        Case 4129 'control
            funcMuoviBlocco(BYT_RSX)
'        CASE 4131 'alt
'            funcMuoviBlocco(BYT_RDX)
    End Select

End
[/code]

Lo cierto es que si no lo cambio por Key.Left, Key.Right..ni se entera.
Estoy cambiándolo.  :roll: 

Y si, el juego es el Tetris.

Saludos


