Please help iam trying to close my app but iam not seeing the message for close the app please help
in the log file i can see
Sleep not resumed (context is paused): anywheresoftware.b4a.shell.DebugResumableSub$DelegatableResumableSub
in the log file i can see
Sleep not resumed (context is paused): anywheresoftware.b4a.shell.DebugResumableSub$DelegatableResumableSub
B4X:
Sub Activity_Pause (UserClosed As Boolean)
'Activity.RemoveAllViews
End Sub
'We capture the menu and back keys
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
msgb("Do you want to close the app ?", "Close App")
If returnValue Then Return True
End If
Return False
End Sub
Sub msgb(txt As String, title As String)
returnValue = False
Dim sf As Object = Msgbox2Async(txt, title, "Yes", "Close App", "No", Null, False)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
returnValue = True
End If
End Sub