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 :
>
> Fab, thanks for that.
> I
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
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 = Borde
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
-
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-gene
