Android Question TabStripViewPager and picto

[ciginfo]

Hi,
With TabStripViewPager, is it possible to add pictogrammes ? How ?
Thank you

 

[Mahares]

With TabStripViewPager, is it possible to add pictogrammes ? How ?

Do you mean the tab labels with icons. If that is what you mean, then here is a link. Follow the 2 easy steps in it. Otherwise, you should explain in English not French what you like to do:

TabStripViewPager with FontAwesome / Material Icons

Step 1: Add a label named lblFontAwesome with the designer. Set its Typeface to FontAwesome and make it invisible. Step 2: Use the code editor Icon Picker to add the icons (right click to find it): TabStrip1.LoadLayout("Page1", "iOS " & Chr(0xF179)) TabStrip1.LoadLayout("Page2", "Android " &...

www.b4x.com

 

[ciginfo]

Do you mean the tab labels with icons. If that is what you mean, then here is a link. Follow the 2 easy steps in it. Otherwise, you should explain in English not French what you like to do:

TabStripViewPager with FontAwesome / Material Icons

Step 1: Add a label named lblFontAwesome with the designer. Set its Typeface to FontAwesome and make it invisible. Step 2: Use the code editor Icon Picker to add the icons (right click to find it): TabStrip1.LoadLayout("Page1", "iOS " & Chr(0xF179)) TabStrip1.LoadLayout("Page2", "Android " &...

www.b4x.com

Thank you, Yes it is, I know but I would like to use a custom image like with Tabhost and AddWithIcon before. Is there another library to do this?

 

[Mahares]

but I would like to use a custom image like with Tabhost and AddWithIcon

Bonjour Monsieur @ciginfo
You can do it with TabstripViewPager and CSBuilder like this. Make sure the code is after the tabs are created with TabStrip1.LoadLayout("Page1", "P1"), etc.

'Below code must be located after the tabs are created. The tabstrip labels heights can be changed in the Tabstrip layout in designer
    Dim MyList  As List
    MyList.initialize
    MyList.AddAll(Array("brazil.png", "romania.png", "france.png", "fiji.png", "benin.png"))
    For i = 0 To MyList.Size-1
        Dim c As String =MyList.Get(i)
        c=c.SubString2(0,c.IndexOf("."))
        Dim l As Label = GetAllTabLabels(TabStrip1).Get(i)  'label
        l.SingleLine = False
        cs.Initialize.Image(LoadBitmap(File.DirAssets, MyList.Get(i)), 40dip, 40dip, False).Append(CRLF).size(22).Append($"${c}"$)
        cs.PopAll
        l.Text = cs
    Next

 

[ciginfo]

Bonjour Monsieur @ciginfo
You can do it with TabstripViewPager and CSBuilder like this. Make sure the code is after the tabs are created with TabStrip1.LoadLayout("Page1", "P1"), etc.

'Below code must be located after the tabs are created. The tabstrip labels heights can be changed in the Tabstrip layout in designer
    Dim MyList  As List
    MyList.initialize
    MyList.AddAll(Array("brazil.png", "romania.png", "france.png", "fiji.png", "benin.png"))
    For i = 0 To MyList.Size-1
        Dim c As String =MyList.Get(i)
        c=c.SubString2(0,c.IndexOf("."))
        Dim l As Label = GetAllTabLabels(TabStrip1).Get(i)  'label
        l.SingleLine = False
        cs.Initialize.Image(LoadBitmap(File.DirAssets, MyList.Get(i)), 40dip, 40dip, False).Append(CRLF).size(22).Append($"${c}"$)
        cs.PopAll
        l.Text = cs
    Next

Bravo et merci beaucoup