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 -- View this message in context: http://old.nabble.com/How-to-generate-a-new-frame-or-pic-box-when-a-button-is-pressed-tp27095779p27107825.html Sent from the gambas-user mailing list archive at Nabble.com. ------------------------------------------------------------------------------ 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
