On 18/01/10 19:27, Fiddler63 wrote:
> I'm trying to move an object within a form.
> The following code allows me to move the form, but not the object within the
> form, ie when I click on the mouse I can move the form around on the screen,
> but no the object within the form.
>
> Any suggestions ?
>
> PRIVATE $MX AS Integer
> PRIVATE $MY AS Integer
>
> PUBLIC SUB DrawingArea1_MouseDown()
> $MX = Mouse.ScreenX - ME.X
> $MY = Mouse.ScreenY - ME.Y
> END
>
> PUBLIC SUB DrawingArea1_MouseMove()
> ME.Move(Mouse.ScreenX - $MX, Mouse.ScreenY - $MY)
> END
>
ME relates to the form, not the Drawing Area.
This works for me:
'----------------------------------------------
Private thePicture As New Picture
Public Sub Form_Open()
thePicture = Picture.Load("/home/werda/Desktop/Wolf.jpg")
DrawingArea1.Resize(thePicture.Width, thePicture.Height)
End
Public Sub DrawingArea1_Draw()
Draw.Picture(thePicture, 0, 0)
End
Public Sub DrawingArea1_MouseMove()
DrawingArea1.X += Mouse.X - Mouse.StartX
DrawingArea1.Y += Mouse.Y - Mouse.StartY
End
'----------------------------------------------
Regards,
Werner
------------------------------------------------------------------------------
Throughout its 18-year history, RSA Conference consistently attracts the
world's best and brightest in the field, creating opportunities for Conference
attendees to learn about information security's most important issues through
interactions with peers, luminaries and emerging and established companies.
http://p.sf.net/sfu/rsaconf-dev2dev
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
