Hi
This library animates standard progress bars. It doesn't add any view
Animation is smoother on a real device. this is a gif.
Example:
This library animates standard progress bars. It doesn't add any view
Animation is smoother on a real device. this is a gif.
Example:
B4X:
Sub Globals
Private ProgressBar1 As ProgressBar
Private RndPb As Button
Dim apb As AnimateProgressBar
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
End Sub
Sub RndPb_Click
apb.SetProgressAnimated(ProgressBar1,Rnd(0,101))
End Sub