[SOLVED]
OK I managed to do it.
I remembered that DEMO Multi user at the beginning displays the login window without DrawBar and NavBar. have you looked at the source. I have cut out
Locked the code
Sub Initialize 'ignoreDeadCode
'initialize the app
app.AddApp(Me, Main.AppName)
'set the font of the app
app.Font = "font-sans"
'load the base layout
BANano.LoadLayout(app.Here, "baselayout")
'link this app to the drawer, this is needed
'when adding pages to side nav
' appdrawer.app = app
'create the drawer menu
' CreateDrawerMenu
'add any other page not added to the drawer menu
' AddPages
'show the sign in page
' IsAuthenticated(False)
pgSignIn.Show(app)
End Sub
The page was displayed when I removed the
BANano.LoadLayout(app.Here, "baselayout")
Blank screen.
I have added
Sub Initialize 'ignoreDeadCode
'initialize the app
app.AddApp(Me, Main.AppName)
'set the font of the app
app.Font = "font-sans"
'load the base layout
' BANano.LoadLayout(app.Here, "baselayout")
'link this app to the drawer, this is needed
'when adding pages to side nav
' appdrawer.app = app
'create the drawer menu
' CreateDrawerMenu
'add any other page not added to the drawer menu
' AddPages
'show the sign in page
' IsAuthenticated(False)
app.AddPageView ' ------> This I have added
pgSignIn.Show(app)
End Sub
And the page was displayed, so ...
Similarly, I have done the same in your resource regarding 2 pages and switching.
Sub Initialize 'ignoreDeadCode
'initialize the app
app.AddApp(Me, Main.AppName)
'set the font of the app
app.Font = "font-sans"
'show page 1
app.AddPageView ' ----- >Added :)
pg1.Show(app)
End Sub
In the code for pages 1 and 2, I changed to
'start building the page 1
private Sub BuildPage
' banano.LoadLayout("#body", "page1layout")
banano.LoadLayout(app.PageViewer, "page1layout")
End Sub
'start building the page 2
private Sub BuildPage
' banano.LoadLayout("#body", "page2layout")
banano.LoadLayout(app.PageViewer, "page2layout")
End Sub
And it all worked. The page loads and it is easy to navigate between them.
www.b4x.com
