Move a panel with the sylus... But there're some problems...

[sitajony]

Hi, I know it's a newbie question, in JS it's easy but apparently there're some problem here:
I added 3 events: MouseDown, MouseMove and MouseUp.
When we MouseDown 2 variables are modified: posx and controlx.
When we move the panel the Left propriete is = to Controlx+x-posx.
It work but apparently the MouseMove is run each time we move the panel so +1=+1+1+1...
The MouseMove doesn't run when POSX=-1 and I tried to set -1 each time we move the panel and after I reset this variable to X but it's the same thing...
Someone understand and could help me?
Thanks for your help!
PS: I can tell you how do this in JS, I did Windows Seven all in JS (Nearly like Win7)

 

[Erel]

This code move a panel named Panel1:

Sub Globals
    mouseDown = False
    Dim mouseX, mouseY As Number
End Sub

Sub App_Start
    Form1.Show
End Sub


Sub Panel1_MouseDown (x,y)
    mouseDown = True
    mouseX = x
    mouseY = y
End Sub

Sub Panel1_MouseMove (x,y)
    If Not(mouseDown) Then Return
    panel1.Left = panel1.Left + x - mouseX
    Panel1.Top = panel1.Top + y - mouseY
End Sub

Sub Panel1_MouseUp (x,y)
    mouseDown = False
End Sub

 

[Erel]

This code adds a "snap to grid" effect:

Sub Globals
    mouseDown = False
    Dim mouseX, mouseY, gridSize As Number
    gridSize = 15
End Sub

Sub App_Start
    Form1.Show
End Sub


Sub Panel1_MouseDown (x,y)
    mouseDown = True
    mouseX = x
    mouseY = y
End Sub

Sub Panel1_MouseMove (x,y)
    If Not(mouseDown) Then Return
    Dim dx, dy As Number
    dx = x - mouseX - ((x - mouseX) Mod gridSize)
    dy = y - mouseY - ((y - mouseY) Mod gridSize)
    panel1.Left = panel1.Left + dx
    Panel1.Top = panel1.Top + dy
End Sub

Sub Panel1_MouseUp (x,y)
    mouseDown = False
End Sub

 

[sitajony]

Thanks for your code, I use this and it doesn't work:

Sub Globals
    startx=-1
    starty=-1
End Sub
Sub AppStart
    Form1.Show
End Sub
Sub Panel1_MouseDown (x,y)
    startx=x
    starty=y
End Sub
Sub Panel1_MouseMove (x,y)
    if startx=-1 Then Return
    Panel1.Left = Panel1.Left + x - startx
    Panel1.Top = Panel1.Top + y - starty
End Sub
Sub Panel1_MouseUp (x,y)
    startx=-1
    starty=-1
End Sub

And apparently it's nearly the same code so I don't know if it work... I try...

 

[sitajony]

It works better but there's again a problem, sometime the panel go to right, left, right left etc...
It's weird... Maybe something is wrong on my code elsewhere...
But it's better than before Thanks

 

[Deleted member 103]

Hi sitajony,

you can use the function "fgMouseEvents" by the Library http://www.b4x.com/forum/additional-libraries/1238-fgcontrols-library.html#post6485 everything what you want to move with the mouse.


Ciao,
Filippo

 

[sitajony]

Thanks but I must to move this Control in B4P...
I'm doing a library and it'll be better if we don't need several Lib for just one function
This is an example in my lib features: http://www.b4x.com/forum/code-samples-tips/5908-window-slide-effect-opening-effect-new-post.html