Hi,
I need to put a wait in my application.
In Android version, I had this code:
And I call it:
The question is that a screen should be displayed, wait two seconds and open the second screen, but the screen appear in black, wait two seconds and open the second screen.
There any way to display the first, wait two seconds and open the second?
Thank you so much.
I need to put a wait in my application.
In Android version, I had this code:
B4X:
Sub Wait(Miliseconds As Int)
Dim Ti As Long
Ti = DateTime.Now + Miliseconds
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub
And I call it:
B4X:
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.Color = Colors.White
Page1.RootPanel.LoadLayout("intro")
NavControl.ShowPage(Page1)
utils.Wait(5000)
NavControl.RemoveCurrentPage
Page2.Initialize("Page2")
Page2.Title = "Page 2"
Page2.RootPanel.LoadLayout("loading")
NavControl.ShowPage(Page2)
The question is that a screen should be displayed, wait two seconds and open the second screen, but the screen appear in black, wait two seconds and open the second screen.
There any way to display the first, wait two seconds and open the second?
Thank you so much.