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
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
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
Lo cierto es que si no lo cambio por Key.Left, Key.Right..ni se entera.
Estoy cambiándolo.
Y si, el juego es el Tetris.
Saludos
