iOS Question [Solved] Tabstrip not working after "reloadPagerTabStripView"

[Livio F]

Hello everybody. After using the example suggested by Erel. Tab navigation is not functional.
ex: from the first tab to the third.
would you know what it could be?

Change tabstrip label color when focus

in B4A, tabstripviewpager can do this to change tabstrip color label when it focused : For Each lbl As Label In GetAllTabLabels(tabkategori) If i = Position Then lbl.TextColor = Colors.White strcat=lbl.Text Else lbl.TextColor =...

www.b4x.com

 

[Erel]

Not sure that I understand. I see an issue with the icons but I can switch tabs by swiping.

 

[Livio F]

Hello Erel.
When I'm on the first tab and tap on the third, the selected tab is in the second position.

 

[Erel]

I see. The problem is that this event is raised for the intermediate pages as well.
This workaround seems to work:

Sub TabStrip1_PageSelected (Position As Int)
    Log("Current page: " & Position)
    For i = 0 To TabPages.Size - 1
        Dim p As Page = TabPages.Get(i)
        Dim lbl As Label = p.TitleView
     
        Dim clr As Int
        If i = Position Then clr = Colors.Red Else clr = Colors.Black
        Dim cs As CSBuilder
        SetAttributedTitle(p, cs.Initialize.Color(clr).Append(lbl.AttributedText.ToString).PopAll)
    Next
       PageSelectedEventIndex = PageSelectedEventIndex + 1 'this is a global variable
    Dim MyIndex As Int = PageSelectedEventIndex
    Dim no As NativeObject = TabStrip1
    Sleep(300)
    If MyIndex = PageSelectedEventIndex Then
        no.RunMethod("reloadPagerTabStripView", Null)
    End If
End Sub

Test it in release mode.

 

[Livio F]

I see. The problem is that this event is raised for the intermediate pages as well.
This workaround seems to work:

Sub TabStrip1_PageSelected (Position As Int)
    Log("Current page: " & Position)
    For i = 0 To TabPages.Size - 1
        Dim p As Page = TabPages.Get(i)
        Dim lbl As Label = p.TitleView
    
        Dim clr As Int
        If i = Position Then clr = Colors.Red Else clr = Colors.Black
        Dim cs As CSBuilder
        SetAttributedTitle(p, cs.Initialize.Color(clr).Append(lbl.AttributedText.ToString).PopAll)
    Next
       PageSelectedEventIndex = PageSelectedEventIndex + 1 'this is a global variable
    Dim MyIndex As Int = PageSelectedEventIndex
    Dim no As NativeObject = TabStrip1
    Sleep(300)
    If MyIndex = PageSelectedEventIndex Then
        no.RunMethod("reloadPagerTabStripView", Null)
    End If
End Sub

Test it in release mode.

Thank you Erel.
Once I complete the account creation process, I will also test in release mode.

 

[Erel]

Once I complete the account creation process, I will also test in release mode.

If you can run your app in debug mode then you can also run it in release mode.