B4A Library [B4X] [XUI] AS ViewPagerNative based on AHViewPager and iTabstrip

The goal was to create a cross-platform viewpager based on existing viewpagers. Since AHViewPager and iTabstrip are very different, the view helps to create a unified interface.

I spend a lot of time in creating views, some views i need by my self, but some views not and to create a high quality view cost a lot of time. If you want to support me, then you can do it here by Paypal.

This library is compatible and tested with B4A and B4I.
B4J is currently not compatible, maybe this will change in the future.

Spoiler: Dependencies/Libraries you need for this view

B4a: XUi,AHViewPager
B4i: iXUI,iTabStrip

B4A: Make sure you have the AHViewPager V3.00
B4I: Make sure you have the ButtonCell.xib in the Special folder
B4A and B4I

ASViewPagerNative
Author: Alexander Stolte
Version: 1.01

• ASViewPagerNative
  • Events:
    • PageChanged (Index As Int)
    • ReachEnd
  • Fields:
    • mBase As B4XView
    • Tag As Object
  • Functions:
    • AddPages (ListOfPanels As List, Text As String) As String
    • Base_Resize (Width As Double, Height As Double) As String
    • Class_Globals As String
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
      Base type must be Object
    • getCurrentIndex As Int
      gets or sets the current index
    • getNativeViewPager As de.amberhome.viewpager.AHViewPager
    • getSize As Int
      Gets the number of pages
    • Initialize (Callback As Object, EventName As String) As String
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
    • NextPage As String
      Smooth goes to next page
    • PreviousPage As String
      Smooth goes to previous page
    • setCurrentIndex (Index As Int) As String
      gets or sets the current index
    • setCurrentIndexAnimated (Index As Int) As String
      sets the current index animated
  • Properties:
    • CurrentIndex As Int
      gets or sets the current index
    • CurrentIndexAnimated
      sets the current index animated
    • NativeViewPager As de.amberhome.viewpager.AHViewPager [read only]
    • Size As Int [read only]
      Gets the number of pages

Changelog

• 1.00
  • Add Event ReachEnd - Triggers if the last page is selected
  • Add get NativeViewPager - Gets the native ViewPager View in B4A: AHViewPager B4I: iTabstrip
  • Add get CurrentIndex - Gets the current index
  • Add set CurrentIndexAnimated - Sets the current index animated
  • BreakingChange set CurrentPage renamed to set CurrentIndex
  • Add get Size - Gets the number of pages
  • Base_Resize is now Public
  • Add NextPage - Smooth goes to next page
  • Add PreviousPage - Smooth goes to previous page
• 1.01
  • AddPages - Remove "Text" Parameter

Have Fun

 

[sultan87]

good evening
I would like to follow your project as an example
When compiling I got this error message

can you help me
Pierre

 

[Alexander Stolte]

I would like to follow your project as an example
When compiling I got this error message

Read the installation guide:

AHViewPager library - Sliding panels now perfect

This library is a B4A implementation of the ViewPager object provided by the compatibility class from google. With this library it is possible to add sliding panels to your apps. AHPageContainer - This object is a container for the pages of the AHViewPager. You should add Panels to this object...

www.b4x.com

 

[sultan87]

hello
in my tree I have

I always have this error message
why
Pierre

 

[Alexander Stolte]

I always have this error message
why

make a new thread.

 

[james_sgp]

HI, using this in a B4X app, in B4a I set the background as transparent without issues. But in B4i I have also set it transaprent, when it first appears it is correct, but after the 'resize' event the background becomes black?

Can anyone help?

Thanks, james

 

[Alexander Stolte]

but after the 'resize' event the background becomes black?

In b4i there is a resize event. Set the color again in this event.

 

[Jim2025]

For example, I now have 10 pages that I added with the help of the initial examples with the help of a list and now I am on page 5. Now how can I delete pages 2 and 8 so that my pages are updated?

With the help of the ASViewPager library, it would look like this

' Current page index is 4 means page5
ASViewPager1.RemovePage(1) ' page2 index 1
ASViewPager1.RemovePage(6) ' after removed page 2 index changed so page 8 index is 6

But how do I do remove special pages number with ASViewPagerNative ?

 

[Jim2025]

For example, I now have 10 pages that I added with the help of the initial examples with the help of a list and now I am on page 5. Now how can I delete pages 2 and 8 so that my pages are updated?

With the help of the ASViewPager library, it would look like this

' Current page index is 4 means page5
ASViewPager1.RemovePage(1) ' page2 index 1
ASViewPager1.RemovePage(6) ' after removed page 2 index changed so page 8 index is 6

But how do I do remove special pages number with ASViewPagerNative ?

I was able to solve the problem this way, maybe it will be useful to someone.

Dim AHPageContainer1 As AHPageContainer

AHPageContainer1.Initialize

    lst.Add (AddDynamicPage(xui.Color_ARGB(255,118,4,208)))
    AHPageContainer1.AddPage(lst.Get(0).As(Panel),"")
 
    lst.Add (AddCustomPage("pgtest"))
    AHPageContainer1.AddPage(lst.Get(1).As(Panel),"")
 
    lst.Add (AddDynamicPage(xui.Color_ARGB(0,255,4,208)))
    AHPageContainer1.AddPage(lst.Get(2).As(Panel),"")
    ASViewPagerNative1.NativeViewPager.PageContainer=AHPageContainer1

private Sub AddDynamicPage(color As Int) As B4XView

    Dim tmp_xpnl As B4XView = xui.CreatePanel("")
    tmp_xpnl.Color=color
    tmp_xpnl.SetLayoutAnimated(0,0,0,Root.Width,Root.Height)
    Return tmp_xpnl
 
End Sub

private Sub AddCustomPage(name As String) As B4XView

    Private tmp_xpnl As B4XView = xui.CreatePanel("")
    tmp_xpnl.SetLayoutAnimated(0,0,0,Root.Width,Root.Height)
    tmp_xpnl.LoadLayout(name)
    Return tmp_xpnl
 
End Sub

AHPageContainer1.DeletePage(0)
ASViewPagerNative1.NativeViewPager.GotoPage(2,True)