Android Question How to close B4XMainPage

[Sergey_New]

Tell me how to close the application using btExit located on B4XMainPage in the same way as:

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

 

[William Lancee]

B4XPages.ClosePage(Me)

 

[Sergey_New]

Thanks!
But I need to execute the same Msgbox2Async code, but write it twice.

 

[William Lancee]

Could you explain further?

 

[stevel05]

How about:

Sub btExit_Click
    Wait For (B4XPage_CloseRequest) Complete (Resp as Boolean)
    If Resp Then B4XPages.ClosePage(Me)
End Sub

 

[William Lancee]

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

I was too slow!

 

[Sergey_New]

stevel05, that's what I need! Thank you!
Уильям Ланси, thank you!