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

[Fiddler63]

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

-- 
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.