iOS Question Wait n seconds

Alberto SN

Member
Licensed User
Hi,

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