[Gambas-user] How to move an object within a form

[Matti]

I did this with PictureBoxes.

1. On MouseDown event, the start position of the PictureBox is taken:
  iMStartx = Mouse.X
  iMStarty = Mouse.Y

2. On MouseMove event, the sub is:
("Rahmen" are the PictureBoxes, and "Ziel" means target)

PUBLIC SUB Rahmen_MouseMove()
  DIM Zielx AS Integer
  DIM Ziely AS Integer
  iNr = LAST.Tag
  Zielx = aRahmen[iNr].X + Mouse.X - iMStartx
  Ziely = aRahmen[iNr].Y + Mouse.Y - iMStarty
  aRahmen[iNr].X = Zielx
  aRahmen[iNr].Y = Ziely
  ...
END

That's all.
Matti


Fiddler63 schrieb:
> I would like the user to be able to move the drawingarea around within the
> form.
> The drawingarea(s) will eventuality  be created dynamically, when I get
> around to understand that part as well.
> Image a bunch of boxes like a mindmap, which you can move around on the
> screen (within the form).
> Kim
> 
> 
> 
> Fabien Bodard-4 wrote:
>> what do you want to do exactly... i don't understand :/ (english is
>> not my primary language !)
>>
>> 2010/1/18 Fiddler63 <mx4eva at ...626...>:
>>> 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
>>> --
>>> View this message in context:
>>> http://old.nabble.com/How-to-move-an-object-within-a-form-tp27209201p27209201.html
>>> Sent from the gambas-user mailing list archive at Nabble.com.
>>>
>>>
>>> ------------------------------------------------------------------------------
>>> 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
>>> Gambas-user at lists.sourceforge.net
>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>
>> ------------------------------------------------------------------------------
>> 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
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>>
>