Sub Globals
Dim SText As EditText
Dim animatetimer As Timer
Dim x As Boolean = True
End Sub
Sub Activity_Create(FirstTime As Boolean)
SText.Initialize("")
SText.Text = "the quick brown fox jumps over the lazy dog"
SText.TextSize = 150dip
Activity.AddView(SText,800dip,10dip, 4500dip,300dip)
animatetimer.Initialize("animatetimer", 1000)
animatetimer.Enabled = True
End Sub
Sub animatetimer_tick
animatetimer.Interval = 10000
If x Then
SText.SetLayoutAnimated(10000, (SText.Left - SText.Width) * 1dip, 10dip, 4500dip, 300dip)
Else
SText.SetLayoutAnimated(10000, (SText.Left + SText.Width) * 1dip, 10dip, 4500dip, 300dip)
End If
x = Not(x)
End Sub