Android Question [B4XPages] How to quickly load a B4XPage without showing MainPage

[josejad]

Hi:

I'm starting to play with B4XPages, just adapting this example
It has a login page an then 2 others.
What I want to do is to save the logged user (i.e. in KVS) and, from then on, once you start the app check if the user is already logged, then go to the next page instead of B4XMainPage.

I've tried three different ways, each one with its drawbacks.

First of all, I save the login in KVS

Sub btnLogin_Click
    KVS.Put("user", txtUser.Text.Trim)
    B4XPages.ShowPageAndRemovePreviousPages("Page 2")
End Sub

First way

Private Sub B4XPage_Created (Root1 As B4XView)
    B4XPages.GetManager.LogEvents = True
    Root = Root1
    KVS.Initialize(File.DirInternal,"kvs")
    Page2.Initialize
    B4XPages.AddPage("Page 2", Page2)
    Page3.Initialize
    B4XPages.AddPage("Page 3", Page3)
    Root.LoadLayout("Login")
End Sub

Sub B4XPage_Appear
    If KVS.ContainsKey("user") Then
        B4XPages.ShowPageAndRemovePreviousPages("Page 2")
    End If
End Sub

This way (I think this is the right one), when you open the app, you see (even in Release Mode) how everything happens, in the Title bar: "BXAExample -> MainPage-> Page 2"
The effect here is minor because of the low frame rate.

Second way

Private Sub B4XPage_Created (Root1 As B4XView)
    B4XPages.GetManager.LogEvents = True
    Root = Root1
    KVS.Initialize(File.DirInternal,"kvs")
    Page2.Initialize
    B4XPages.AddPage("Page 2", Page2)
    Page3.Initialize
    B4XPages.AddPage("Page 3", Page3)
    If KVS.ContainsKey("user") Then
        B4XPages.ShowPageAndRemovePreviousPages("Page 2")
    Else
        Root.LoadLayout("Login")
    End If
End Sub

This way, when you've saved the user in KVS, if you start the app again, it get stucked in MainPage until you touch in some place:

Third way:

Sub B4XPage_Appear
    If KVS.ContainsKey("user") Then
        B4XPages.ShowPageAndRemovePreviousPages("Page 2")
   else
        Root.LoadLayout("Login")
    End If
End Sub

Problem: Obviously, if close the app and open it again, the layout is reloaded over the first one when B4XPage_Appear
And, as the B4XTutorial says:
4. B4XPage_Created This is the place to load the layout.

And:

Tip: don't treat B4XPages as activities. In most cases you don't need to do anything in the Appear and Disappear events.

Attached the project with the second option.

 

[angel_]

Did you try this?

B4XPages.GetManager.TransitionAnimationDuration = 0

 

[Erel]

B4XPage_Appear is not the solution.

Check the state in the Initialize sub of B4XMainPage.
If you show a page here then B4XMainPage will not be shown automatically.

 

[josejad]

Did you try this?

No, I miss that one. It runs better, but with the code in B4XPage_Appear, what Erel doesn't recommend. Thanks

Check the state in the Initialize sub of B4XMainPage.
If you show a page here then B4XMainPage will not be shown automatically.

Hi Erel,
I can initializce KVS there, but I can't show a page from Initialize due to B4XPage_Created is not yet fired so the rest of B4XPages are not created yet.
Not sure if I've understood right.

Public Sub Initialize
    KVS.Initialize(File.DirInternal,"kvs")
    B4XPages.GetManager.TransitionAnimationDuration = 0

     'I can't run this code here because "Page 2" still doesn't exist
    If KVS.ContainsKey("user") Then
        Log (KVS.Get("user"))
        B4XPages.ShowPageAndRemovePreviousPages("Page 2")
    End If
End Sub

Thanks to both of you

 

[Erel]

Public Sub Initialize
    KVS.Initialize(File.DirInternal,"kvs")
    B4XPages.GetManager.TransitionAnimationDuration = 0
    Dim p2 As Page2
    p2.Initialize("")
    B4XPages.AddPage("Page 2", p2)
     'I can't run this code here because "Page 2" still doesn't exist
    If KVS.ContainsKey("user") Then
        Log (KVS.Get("user"))
        B4XPages.ShowPage("Page 2")
    End If
End Sub

 

[josejad]

Is not the B4XPages_Appear event fired when you call B4XPages.ShowPage?
The drawer is not shown until you close and reopen the app.

 

[Erel]

Don't do anything in B4XPage_Appear. Load the layout in the Create event.

 

[josejad]

Hi Erel:

You're right, if I move this code from B4XPage_Appear to B4XPage_Create, the Hamburger is created first time.
But this code is "as it" from your [B4X] B4XPages + B4XDrawer example so I though it should be there.

Private Sub B4XPage_Appear
    #if B4A
    Sleep(0)
    B4XPages.GetManager.ActionBar.RunMethod("setDisplayHomeAsUpEnabled", Array(True))
    Dim bd As BitmapDrawable
    bd.Initialize(HamburgerIcon)
    B4XPages.GetManager.ActionBar.RunMethod("setHomeAsUpIndicator", Array(bd))
    #End If
End Sub

 

[Erel]

This code is indeed required in B4XPage_Appear.
I think that it will be best if you upload a small project based on the B4XDrawer example, which doesn't work as you expect.

 

[josejad]

Here you got it.
I have had some troubles to adapt it, but here it is.
It's the B4XPages + B4XDrawer adapted to show Page 2 if the user has previously logged in.

If you call B4XPages.ShowPageAndRemovePreviousPages("Page 2") from btnLogin, it works and shows the hamburger.

Sub btnLogin_Click
    KVS.Put("user", txtUser.Text.Trim) 'ADDED LINE TO SAVE THE LOGGED USER
    B4XPages.ShowPageAndRemovePreviousPages("Page 2")
End Sub

But if you close the app, and then reload and you call from Initialize, it's not shown, just after hide the app and reload again, then B4XPage_Appear is fired and the hamburger appears:

Public Sub Initialize

    'ADDED CODE, CHECK IS USER IS LOGGED THEN GO TO PAGE 2 DIRECTLY
    B4XPages.GetManager.LogEvents = True
    KVS.Initialize(File.DirInternal, "kvs")
   
    If KVS.ContainsKey("user") Then
        Page2.Initialize
        B4XPages.AddPage("Page 2", Page2)
        Page3.Initialize
        B4XPages.AddPage("Page 3", Page3)
        B4XPages.ShowPageAndRemovePreviousPages("Page 2")
    End If
End Sub

 

[Erel]

Fixed in v1.08: https://www.b4x.com/android/forum/threads/updates-to-internal-libraries.59340/

Note that the first page added, in the Initialize sub, will be shown automatically.

 

[rosippc64a]

Hi All!
I faced to this problem, but I can't find the solution on the link showed above. What is the right code fragment to solve this?
thanks in advance
Steven

 

[Erel]

Please start a new thread.