On 11/01/10 17:36, Fiddler63 wrote: > Wicked, I like it :-) > > > > PRIVATE $MX AS Integer > PRIVATE $MY AS Integer > > PUBLIC SUB Form_MouseDown() > > $MX = Mouse.ScreenX - ME.X > $MY = Mouse.ScreenY - ME.Y > > END > > PUBLIC SUB Form_MouseMove() > > ME.Move(Mouse.ScreenX - $MX, Mouse.ScreenY - $MY) > > END > > > It's like that :) > > 2010/1/11 Fiddler63 <[email protected]>: > >> Fab, thanks for that. >> I got the form to show fine but I'm a bit confused about the movement with >> the mouse. >> Tell me if I'm on the right track here: >> >> X,Y of the mouse is within X,Y of the object to be moved >> and while MouseDown, move object to current Mouse X,Y coordinates. >> >> Do I handle each of the events as separate sub routines ? >> >> I mainly struggle because I come from a 8-bit chip background where you >> need >> to know absolutely everything. >> >> Cheers >> Kim >> >> >> >> >> Fabien Bodard-4 wrote: >> >>> in fact you need to load a new form, set it's border to none, set it's >>> size to the picture size, set it's picture to the picture, and then >>> manage the movement with mouseDown, mouseUp and MouseMove events. >>> >>> >>> dim hForm as new Form >>> hForm.Resize(hPic.W, hPic.H) >>> hForm.Picture = hPic >>> hForm.Border = Border.None >>> >>> >>> >>> >>> 2010/1/10 k p <[email protected]>: >>> >>>> I got a button on a form and when I click the button I need the program >>>> to >>>> load a new frame/picture. >>>> Also I would like to be able to move the new frame/pic around on the >>>> screen >>>> to suit. >>>> >>>> How do I go about the above ? >>>> >>>> Cheers >>>> >>>> kim >>>> > So what does Mouse.StartX and Mouse.StartY do then?
Regards Werner ------------------------------------------------------------------------------ This SF.Net email is sponsored by the Verizon Developer Community Take advantage of Verizon's best-in-class app development support A streamlined, 14 day to market process makes app distribution fast and easy Join now and get one step closer to millions of Verizon customers http://p.sf.net/sfu/verizon-dev2dev _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
