Tell me how to close the application using btExit located on B4XMainPage in the same way as:
B4X:
Private Sub B4XPage_CloseRequest As ResumableSub
Dim sf As Object = xui.Msgbox2Async ("Close?", "Title", "Yes", "Cancel", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
Log (Result)
If Result = xui.DialogResponse_Positive Then
Return True
End If
Return False
End Sub
Sub btExit_Click
'???
End Sub
Sub btExit_Click
Dim sf As Object = xui.Msgbox2Async ("Close?", "Title", "Yes", "Cancel", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then B4XPages.ClosePage(Me)
End Sub