https://foro.gambas-es.org/viewtopic.php?f=1&t=1030&p=6336#p6336
-----------------------------------
jsbsan
Domingo, 21 Noviembre 2010, 00:04

Re: Mover Objeto
-----------------------------------
Con select case debe de ser algo parecido a esto:

[code linenumbers=false syntax=gambas]PUBLIC SUB control_KeyPress()
select case key.code
case Key.Right 
 control.X = Objeto.X + 40
case  Key.Down 
 control.Y = Objeto.Y + 40
case  Key.Up
 control.Y = Objeto.Y - 40
case  Key.Left 
 control.X = Objeto.X - 40
end select
END[/code]

Saludos

Nota:
Tras el consejo de jguardon, cambio la denominación de Objeto, por Control.. ;-)


