B4A Library [B4X] [XUI] AS NumberProgressBar

Alexander Stolte

Well-Known Member
Licensed User
i spend a lot of time in creating views, like this and to create a high quality view cost a lot of time. If you want to support me and further views, then you can do it here by Paypal. :)

  • cross-platform compatible
  • Prefix and Suffix
  • customizable
  • Increment and Decrement Progress
  • easy to use
Bildschirmfoto 2020-05-17 um 01.05.09.png

Author: Alexander Stolte
Version: 1.00

  • ASNumberProgressBar
    • Functions:
      • Class_Globals As String
      • DecrementProgressBy (by As Int) As String
      • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
        Base type must be Object
      • getBarMax As Int
      • getCurrentProgress As Int
      • getPrefix As String
      • getReachedColor As Int
      • getReachedHeight As Float
      • getSuffix As String
      • getTextBackgroundColor As Int
      • getTextColor As Int
      • getTextFont As B4XFont
      • getTextOffset As Int
      • getUnreachedColor As Int
      • getUnreachedHeight As Float
      • IncrementProgressBy (by As Int) As String
      • Initialize (Callback As Object, EventName As String) As String
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • setBarMax (bar_max As Int) As String
      • setCurrentProgress (current_progress As Int) As String
      • setPrefix (prefix As String) As String
      • setReachedColor (color As Int) As String
      • setReachedHeight (height As Float) As String
      • setSuffix (suffix As String) As String
      • setTextBackgroundColor (color As Int) As String
      • setTextColor (color As Int) As String
      • setTextFont (fnt As B4XFont) As String
      • setTextOffset (offset As Int) As String
      • setUnreachedColor (color As Int) As String
      • setUnreachedHeight (height As Float) As String
    • Properties:
      • BarMax As Int
      • CurrentProgress As Int
      • Prefix As String
      • ReachedColor As Int
      • ReachedHeight As Float
      • Suffix As String
      • TextBackgroundColor As Int
      • TextColor As Int
      • TextFont As B4XFont
      • TextOffset As Int
      • UnreachedColor As Int
      • UnreachedHeight As Float
  • 1.00
    • Release
Have Fun :)



hi @Alexander Stolte

thank you for share this awesome lib.

i want to change font :
Sub Process_Globals
Private Xui As XUI
Private FontXui As B4XFont=Xui.CreateFont(Typeface.LoadFromAssets("my.ttf"),15)
end sub
BUT NOT WORK. And B4a give Me Error in syntax.

Wher is my Wrong?

Thank u.


hi how i can use this lib with code :(your example made in designer)
what is callback object ?
Initialize (Callback As Object, EventName As String) As String
i use this but it not work

Dim aa As Object
@Alexander Stolte
Last edited: