Sub Globals
Dim lblTest As Label
Dim reflect As Reflector
End Sub
Sub Activity_Create(FirstTime As Boolean)
lblTest.Initialize("lblTest")
Activity.AddView(lblTest, 10dip, 10dip, 200dip, 100dip)
lblTest.Color = Colors.Blue
lblTest.Text = "Test Test"
reflect.Target = lblTest
reflect.SetOnTouchListener("lblTest_Touch")
End Sub
Sub lblTest_Touch(lblTest1 As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Select Action
Case Activity.ACTION_DOWN
Activity.Title = "DOWN"
Case Activity.ACTION_MOVE
Activity.Title = "MOVE"
Case Activity.ACTION_UP
Activity.Title = "UP"
End Select
Return True
End Sub