Sub LblBack_Click
If hasChanges Then AskForSave
Activity.Finish
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event, also cancelt den Schließen-Vorgang
If KeyCode = KeyCodes.KEYCODE_BACK And hasChanges Then
AskForSave
End If
Return False
End Sub
private Sub AskForSave
Msgbox2Async("Es gibt ungesicherte Änderungen. Sollen die gespeichert werden?", "Bitte wählen!", "Ja", "", "Nein", Null, False)
Wait For Msgbox_Result (Result As Int) 'after this line, sub is left
If Result = DialogResponse.POSITIVE Then
BtnSave_Click
End If
hasChanges=False
End Sub