In "main" the menu won't show when I us the "wait permission". When I start the app a second time, the menu shows. When I kill all apps on my tablet and then start my app again, the menu don't show. In a second start it will show. When I don't us the permission questions, then menu shows directly. How can I solve this problem?
If FirstTime Then
Dim rp As RuntimePermissions
For Each permission As String In Array(rp.PERMISSION_CALL_PHONE,rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
rp.CheckAndRequest(permission)
Wait For Activity_PermissionResult (permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("Machtigingen van deze app moeten nog ingesteld worden!", True)
Activity.Finish
Return
End If
Next
End If
Activity.LoadLayout("Main")
Activity.Title="Bespanservice.net"
Activity.AddMenuItem("spelregels","views")
Activity.AddMenuItem("competitieregels","views")
Activity.AddMenuItem("vragen over spelregels","views")
If FirstTime Then
Dim rp As RuntimePermissions
For Each permission As String In Array(rp.PERMISSION_CALL_PHONE,rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
rp.CheckAndRequest(permission)
Wait For Activity_PermissionResult (permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("Machtigingen van deze app moeten nog ingesteld worden!", True)
Activity.Finish
Return
End If
Next
End If
Activity.LoadLayout("Main")
Activity.Title="Bespanservice.net"
Activity.AddMenuItem("spelregels","views")
Activity.AddMenuItem("competitieregels","views")
Activity.AddMenuItem("vragen over spelregels","views")