Android Question TabStripViewPager and picto

ciginfo said:

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

Click to expand...

Mahares said:

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

Click to expand...

ciginfo said:

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

Click to expand...

'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

Mahares said:

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.

B4X:

'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

Click to expand...