Android Question Tabbed UI - how to with larger image and text underneath image

mfstuart said:

Anyone have any idea on how to replicate the UI and functionality like the attached image?

Click to expand...

'Below code must be located after the tabs are created.
    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
    
    For Each lbl As Label In GetAllTabLabels(TabStrip1)  'based on 5 tabs
        lbl.Width = 20%x
    Next

Mahares said:

This will do you for you. I am using 5 images in asset folder. cs is CSBuilder

B4X:

'Below code must be located after the tabs are created.
    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
   
    For Each lbl As Label In GetAllTabLabels(TabStrip1)  'based on 5 tabs
        lbl.Width = 20%x
    Next

Click to expand...