Force code execute when user closes OOB lightswitch app using the windows close red X

Question

I've created a lightswitch app using Forms Authentication.  If the user closes the application using the window close red 'X', I need to update a custom user profile table.  Is this possible?

Answer 1

I use this code and it works!
I handle the closing event of the user and I break it, execute my code ed after closing the application.
Under you see the code that I use in my application.vb :
Public Class Uscita
' Dichiara un evento per la classe
Public Event Event1()
' Definisce un metodo per richiamare l'evento
Sub CausaEvento()
RaiseEvent Event1()
End Sub
End Class
Protected Sub EsceAPP()
Dim Obj As New Uscita
AddHandler Obj.Event1, AddressOf Me.EventoUscita
' Provoca l'esecuzione dell'evento
Obj.CausaEvento()
End Sub
Sub Eventouscita()
Dispatchers.Main.BeginInvoke(Sub()
RemoveHandler _mainWindowClose.Closing, AddressOf MainWindow_Closing
System.Windows.Application.Current.MainWindow.Close()
End Sub)
End Sub
Private Sub Application_loggedin()
Try
Dispatchers.Main.BeginInvoke(Sub()
_mainWindowClose = System.Windows.Application.Current.MainWindow
AddHandler _mainWindowClose.Closing, AddressOf MainWindow_Closing
End Sub)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub MainWindow_Closing(ByVal sender As Object, ByVal e As ClosingEventArgs)
If MessageBox.Show("Vuoi Veramente uscire?", "Conferma", MessageBoxOption.OkCancel) = Windows.MessageBoxResult.Cancel Then
'Elimina l'uscita utente
e.Cancel = True
Else
'Interrompe momentaneamente l'uscita dell'utente per eseguire l'aggiornamento della tabella utenti loggati
e.Cancel = True
'Aggiorna la tabella utenti loggati ed esce dall'applicativo
Me.Details.Dispatcher.BeginInvoke(Sub()
Dim ws = CreateDataWorkspace()
Dim query = ws.ApplicationData.UtentiLoggatis.Where(Function(c) c.UserName = Me.User.FullName).FirstOrDefault
query.OnLineImage = MyImageHelper.GetImageByName("RedLight.png")
query.OnLIne = "OFF"
query.Logout = Now
ws.ApplicationData.SaveChanges()
'Chiama la routine per uscire dall'applicazione
EsceAPP()
End Sub)
End If
End Sub