[Gambas-user] SOLVED - How to generate a new frame or pic box when a button is pressed

[Werner]

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 <mx4eva at ...626...>:
>   
>> 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 <mx4eva at ...626...>:
>>>       
>>>> 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