#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.
End Sub
Sub Globals
Private CircularProgressBar1 As CircularProgressBar
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub
Sub Button1_Click
CircularProgressBar1.Value = Rnd(0, 101)
Dim Anima As Animation
Anima.InitializeRotateCenter("Animacirlce",0,720,Panel1)
Anima.Duration = 1000
Anima.Start(Panel1)
End Sub
Sub Activity_Click
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Animacirlce_AnimationEnd
Dim Anima As Animation
Anima.InitializeRotateCenter("Animacirlce",0,720,Panel1)
Anima.Duration = 1000
Anima.Start(Panel1)
End Sub