iOS Question Tabstrip tab button problem

mrossen

Active Member
Licensed User
Hi,

I have a project there use Tabstrib and a side menu. This works fine for me but I can not push the tab bar buttons. Nothing happens.

I attached my code if anyone can se what I have done wrong.

When I swipe between pages it write the log fine.

B4X:
Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    
    Dim nc As NavigationController
    nc.Initialize("nc")
    NavControl = nc
    
    'NavControl = Nav
    MainPage.Initialize("MainPage")
    MainPage.RootPanel.LoadLayout("Main")
    nc.ShowPage(MainPage)
    MainPage.TopLeftButtons = Array(smc.CreateBarButton("left"))
    
    Dim lp As Page
    lp.Initialize("lp")
    lp.RootPanel.LoadLayout("sidemenu_scroll")
    
    smc.Initialize(lp, nc,Null)
    App.KeyController = smc

    TabPages.Initialize
    'Dim cs As CSBuilder
    Dim page1, page2 As Page
    
    
    page1.Initialize("page1")
    page1.RootPanel.LoadLayout("clvinput")
    page1.Title = "Input"
    TabPages.Add(page1)
    
    Dim fr1_xui As XUI
    Dim fr1_pnl As B4XView = fr1_xui.CreatePanel("")
    
    fr1_pnl.color = Colors.Transparent
    fr1_pnl.SetLayoutAnimated(400, 0, 0, 100%x, 100%y)
    
    fr1_pnl.Height = 1000dip
        
    CLVInput.add(fr1_pnl, MainPage)
    fr1_pnl.LoadLayout("input")
        
    page1.TopLeftButtons = Array(smc.CreateBarButton("left"))
    
    page2.Initialize("page2")
    page2.RootPanel.LoadLayout("output")
    page2.Title = "Output"
    TabPages.Add(page2)
            
    TabStrip1.SetPages(TabPages)
    
    ScrollViewSidemenu.ContentHeight = 1000dip
    PanelSidemenuMain = ScrollViewSidemenu.Panel
    PanelSidemenuMain.LoadLayout("sidemenu")
    
    RecievedList.Initialize
    
End Sub

Sub TabStrip1_PageSelected (Position As Int)
    
    Log("Current page: " & Position)
    
End Sub
Mogens
 

mrossen

Active Member
Licensed User
Hi Again,

I have solved the problem

I earlier used this snip of code and rem it out.

B4X:
Sub MainPage_Click
'
'    'smc.OpenLeftMenu
'   
End Sub
When removing it completly the code works as i should.

Mogens
 
Top