MouseMove position

[eww245]

Is there anyway to detect if a MouseMove event is going up or down?

If the first value, moving down, is less than the new value, it would be moving up.

One option is with a Door event to get one property and _MouseMove to get the other.

Another way is calling a Sub from _MouseMove to save the Y position and check the new value against it.

In both situations saving it in a Global var.
The result is always the same value.
MouseUp and MouseDown obviously work, but not with MouseMove.

I just want a ImageButton to show a value based on the Y location and to decrease when moving Up.

.NET "Control.MousePosition.Y" might help, but I expect it would return the same result.

Any Thoughts?

 

[agraham]

I'm not sure what your problem is. This works for me

Sub Globals
   'Declare the global variables here.
   oldY = 0
End Sub

Sub App_Start
   Form1.Show
End Sub


Sub Form1_MouseMove(x, y)
   oy = oldy
   oldy = y
   If y < oy Then
      Label1.Text = "Going up!"
   Else If y > oy
      Label1.Text = "Going down!"
   Else
      Label1.Text = "Going nowhere!"   
   End If
End Sub

 

[eww245]

I'm not sure what your problem is. This works for me

Sub Globals
   'Declare the global variables here.
   oldY = 0
End Sub

Sub App_Start
   Form1.Show
End Sub


Sub Form1_MouseMove(x, y)
   oy = oldy
   oldy = y
   If y < oy Then
      Label1.Text = "Going up!"
   Else If y > oy
      Label1.Text = "Going down!"
   Else
      Label1.Text = "Going nowhere!"   
   End If
End Sub

Well I missed the oy = oldy
Thanks, it works.

Now another question.

I'm having trouble with args()
The only way a command line seems to work is

If ArrayLen(args())=2 then Form1.Show Else msgbox("NoForm")

How can the argument be saved, or read?

For.....
   If args(i) = -ShowTheForm then Form1.Show Else msgbox("NoForm")
Next

Index Out Of Range

 

[agraham]

Like this

   If ArrayLen(args()) > 0 Then
      For i = 0 To ArrayLen(args()) - 1
         msg = msg & args(i) & CRLF
      Next
   Else
      msg = "No arguments"
   End If
   Msgbox(msg)