Sub Globals
Private tmpX, tmpY, Tolerance as Float
end sub
Private Sub pn_Touch (Action As Int, X As Float, Y As Float)
Dim pn As Panel = Sender
Tolerance = 5
Select Action
Case Activity.ACTION_DOWN
tmpX = X
tmpY = Y
Case Activity.ACTION_UP
If Abs(tmpx - X) > Tolerance Or Abs(tmpY - Y) > tolerance Then
'Slid
Else
'Touch
End If
Case Activity.ACTION_MOVE
End Select
End Sub