B4A Library [Class] ICS Like Horizontal and Vertical Seekbars

This class implements ICS Like SeekBars.

Every seekbar is drawn when created so you can set :
- color and size of the button
- color and width of the stroke
- choose if value is shown or not
- choose where is the max value for the vertical one (up or down)
- set the max value and the start value
- enable/disable

Requirements:
- B4A 2.xx
- ABExtDrawing Lib

How to use (example for the horizontal one):

Initialize the class :

Sub Globals
   Dim SBT1 As mbHSeekBar
End Sub

then create it :

'Activity, Module,EventName,Left,Top,Width,Height,StrokeWidth,StrokeDefautColor,Color,TextVisible,InitValue,MaxValue
SBT1.Initialize(Activity,Me,"SBT_Click",1%x,10%y,98%x,52dip,5dip,Colors.DarkGray,Colors.RGB(0xcc,0x00,0x00),True,200,255)

(Don't forget to add True or False at the end if ou use the vertical class to choose where must be the max value, at the top or the bottom)

You can customize the text showing the value:

SBT1.CustomizeText(Colors.Red,22,Typeface.DEFAULT_BOLD)

You can set a value at any time:

SBT1.setValue(33)

You can set a step value:

SBT1.stepValue = 10 ' value will be rounded from 10 to 10

in the main activity you can get the selected value:

Sub SBT_Click(returnValue)
   Activity.Title = "Value is " & returnValue    
End Sub

That's it. Have a look at the demos and send feedback or ideas for enhancements.

 

[Taylor Chapman]

These are great! Thanks!

I'm wondering how to create a horizontal bar alike to the third one down in your picture (a balance bar). How can I make the "trail" of the seekbar the same color as the "leading" part?

I'd appreciate any help you can offer!

 

[migrec]

I got a small problem here, isn't mbhseekbar.maxvalue the same thing as seekbar.max?

 

[JTmartins]

I would like to handle values from - X to + X.

Help Would be appreciated.

****SOLVED****

 

[Marvin Januszewski]

Very nice ! I will use it to control my home heating!

But one question...how can I set a minimum value? That would be very nice!

 

[peacemaker]

Hi, All

Thanks for this well customizable class !
I used it for making the dual-side slider, range selection, for MinValue and MaxValue, try if you'd like.