[Gambas-user] Moving things

[charlesg]

Hi

Quick? Easy? Depends on where you are looking from :)
'----------------------------------
PUBLIC SUB btnExit_KeyPress()
  SELECT CASE Key.Code
    CASE Key.Up
      btnExit.y = btnExit.y - 10
    CASE Key.Down
      btnExit.y = btnExit.Y + 10
  END SELECT 
END
'---------------------------------
similar for left and right.
you would also have to check that the button (or whatever) has not moved out
of bounds (by comparing with the Form boundaries)
Obviously the focus does not have to be the button itself. You can control
it say from a hidden textBox.

rgds
-- 
View this message in context: http://www.nabble.com/Moving-things-tp24654731p24656776.html
Sent from the gambas-user mailing list archive at Nabble.com.