Stop a form moving too far?

[99mel]

Hi everyone,

Does anyone know if its possible to stop a form being moved (by the user) outside the screens edges?

Thanks for any info!

 

[jmarler]

You could hook into the eventQueue and look for the message WM_MOVING (I don't think that VB automatically checks/maps that message, but it is there). When this message gets fired, check the forms Top and Left properties and compare them with the screen size and if they are not within the bounds that you have defined, stop the move. - Jeff Marler B-)

 

[99mel]

how do u hook into the EventQueue and look for that message?


Thanks again

 

[Onthrax]

Okay.. I;m doing this from the head so I hope it works...

Total = Screen.Width / Screen.TwipsPerPixelX
Tot = Screen.Height / Screen.TwipsPerPixelY

If form1.left = < 0 or form1.left > (total - form1.width) then
'out of screen put code here
end if

if form1.top = < 0 or form1.left > (tot - form1.top) then
'out of screen
end if

Hope this helps...