[B4X] [XUI] AS TabStrip (ASViewPager + ASTabMenu)

[jahswant]

ASTabMenu Cannot be disabled in b4a and b4i

 

[Alexander Stolte]

Update

• 1.14
  • Add ViewEnable - enable or disable the view

 

[jahswant]

Thanks.

 

[jahswant]

Add ViewEnable - enable or disable the view

please check b4i seems not to work here.

 

[Alexander Stolte]

please check b4i seems not to work here.

fixed in 1.15

 

[Sorin Pohontu]

Hello,

I have an error compiling on B4i:

ld: library not found for -lASViewPager

Anyone had the same issue ?

 

[shrs]

ASTabStrip
Author: Alexander Stolte
Version: 1.00

• ASTabStrip
  • Functions:
    • AddPage (tab_background_color As Int, tab_text As String, tab_icon As B4XBitmap, tab_tag As Object, pager_layout As B4XView, pager_value As Object) As String
    • Initialize (TabMenu As com.as.tabstrip.astabmenu, ViewPager As com.as.tabstrip.asviewpager) As String
      Initializes the object. You can add parameters to this method if needed.
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
    • RemovePage (index As Int) As String
    • TabMenu_TabClick (index As Int) As String
    • ViewPager_PageChanged (index As Int) As String

Hi Alexander Stolte
One suggestion for improving the library is to have a method that specifies the number of pages in ASTabStrip like:

AsTabStrip1.PageCount

A function is also required to delete all pages in the ASTabStrip like:

AsTabStrip1.RemoveAllPages

It is also better to have a method to detect the index of the current page like:

AsTabStrip1.TopPageIndex

 

[Brandkaoz]

Can create AddPage with new pages (LoadLayout) ? Can give me example for that? thanks before

 

[Alexander Stolte]

Can create AddPage with new pages (LoadLayout) ? Can give me example for that? thanks before

Dim xpnl As B4XView = xui.CreatePanel("")
xpnl.SetLayoutAnimated(0,0,0,Root.Width,Root.Height)
xpnl.LoadLayout("YourLayout")
ASTabStrip1.AddPage(xui.Color_Black,"Test",Null,"",xpnl,"")

 

[Brandkaoz]

Dim xpnl As B4XView = xui.CreatePanel("")
xpnl.SetLayoutAnimated(0,0,0,Root.Width,Root.Height)
xpnl.LoadLayout("YourLayout")
ASTabStrip1.AddPage(xui.Color_Black,"Test",Null,"",xpnl,"")

Thanks @Alexander Stolte , i will try your code

 

[yiankos1]

Hello Alexander,

Is it possible this tabstrip hold a tabmenuadvanced?

I am asking because tabmenuadvanced is the prefered now.

Thank you for your time.

 

[Alexander Stolte]

Is it possible this tabstrip hold a tabmenuadvanced?

well the bilbiothek is so simple, it only switches the index in the TabMenu when you change the page in the ViewPager and vice versa. Best to open the .B4XLib and look inside, there is hardly any code.

 

[sagmill]

[I]Alexander[/I],​

Can be added ASTabMenu and ASViewPager without designer?​

 

[Alexander Stolte]

Can be added ASTabMenu and ASViewPager without designer?

No.
What's so bad about the designer? You guys are making way too much work for yourselves...
There are absolutely no advantages to adding views by code, in fact quite the opposite, there is only downside by doing so.

 

[sagmill]

No.
What's so bad about the designer? You guys are making way too much work for yourselves...
There are absolutely no advantages to adding views by code, in fact quite the opposite, there is only downside by doing so.

Can be added in future update?

 

[Alexander Stolte]

Can be added in future update?

No!