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

Alexander Stolte · Oct 27, 2021

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.

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 · Jan 4, 2023

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 · Jan 4, 2023

sultan87 said:
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 · Jan 5, 2023

hello
in my tree I have

I always have this error message
why
Pierre

Alexander Stolte · Jan 5, 2023

sultan87 said:
I always have this error message
why

make a new thread.

james_sgp · Sep 16, 2023

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 · Sep 16, 2023

james_sgp said:
but after the 'resize' event the background becomes black?

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

Jim2025 · Mar 14, 2025

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

B4X:

' 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 · Mar 14, 2025

Jim2025 said:
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

B4X:

' 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.

in Class_Globals:

Dim AHPageContainer1 As AHPageContainer

in Initialize:

AHPageContainer1.Initialize

in B4XPage_Created:

    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

custom subs:

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

for delete or goto special page:

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

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

Attachments

sultan87

Active Member

Alexander Stolte

Expert

AHViewPager library - Sliding panels now perfect

sultan87

Active Member

Alexander Stolte

Expert

james_sgp

Active Member

Alexander Stolte

Expert

Jim2025

Member

Jim2025

Member

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

Attachments

Active Member

Expert

Active Member

Expert

Active Member

Expert

Member

Member

Privacy & Transparency

Privacy & Transparency