#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private xui As XUI
Private imgSq As Boolean
Private t As Timer
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
Private imv As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
imv.Initialize("imv")
Activity.AddView(imv,50%x,50%y,50%x,50%y)
t.Initialize("Timer1", 60000)
t.Enabled = True
imgSq=True
End Sub
Sub Timer1_Tick
'Handle tick events
If imgSq Then
imv.Bitmap = LoadBitmap(File.DirAssets, "rgtarrow.png")
Else
imv.Bitmap = LoadBitmap(File.DirAssets, "lftarrow.png")
End If
imgSq=Not(imgSq)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub