Android Question XUI MsgBox2Async problem

[Alberto Michelis]

Hi, Im trying to put a message when the user press keycode_back to exit the app using:
B4A v 7.01 and XUI

Sub Activity_KeyPress (KeyCode As Int) As Boolean
Select KeyCode
Case KeyCodes.KEYCODE_BACK
Log("%%% to saliendo %%%")
Saliendo
Return True
End Select
End Sub

Sub Saliendo
Log("%%% in saliendo %%%")
Dim sf As Object = xui.Msgbox2Async("Confirma salida?", "Apagando...", "Si", "", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
Log("%%% back from wait %%%")
If Result = xui.DialogResponse_Positive Then
ExitApplication
End If
Return
End Sub

The log "%%% in saliendo %%%" does appears
The message never appears
The log "%%% back from wait %%% " never appears

What am I doing wrong?
Thanks

 

[Erel]

What am I doing wrong?
Not using code tags...

[code]code here...[/code]

 

[Alberto Michelis]

Hi, Im trying to put a message when the user press keycode_back to exit the app using:
B4A v 7.01 and XUI

Sub Activity_KeyPress (KeyCode As Int) As Boolean
  Select KeyCode
  Case KeyCodes.KEYCODE_BACK
    Log("%%% to saliendo %%%")
    Saliendo
    Return True
  End Select
End Sub

Sub Saliendo
  Log("%%% in saliendo %%%")
  Dim sf As Object = xui.Msgbox2Async("Confirma salida?", "Apagando...", "Si", "", "No", Null)
  Wait For (sf) Msgbox_Result (Result As Int)
  Log("%%% back from wait %%%")
  If Result = xui.DialogResponse_Positive Then
    ExitApplication
  End If
  Return
End Sub

The log "%%% in saliendo %%%" does appears
The message box never appears
The log "%%% back from wait %%% " never appears

What am I doing wrong?
Thanks

 

[Erel]

Works fine here (though it is better to call Activity.Finish instead of ExitApplication).

It is most probably related to the older B4A version, or XUI version.