dotNETportal.cz

Pozor, toto funguje v .NET 2.0+ (VS2005), v .NET 1.0/1.1 (VS2003) ne!

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  Select Case e.CloseReason
    Case CloseReason.ApplicationExitCall
      'Ukončeno programově (např. voláním metody Exit)
    Case CloseReason.FormOwnerClosing
      'Ukončeno nadřazeným oknem
    Case CloseReason.MdiFormClosing
      'Ukončeno nadřazeným oknem
    Case CloseReason.None
      'Neznámý důvod ukončení
    Case CloseReason.TaskManagerClosing
      'Ukončeno Správcem úloh
    Case CloseReason.UserClosing
      'Ukončeno uživatelem (klepnutím na X, Alt+F4 nebo přes systémovou nabídku)
    Case CloseReason.WindowsShutDown
      'Ukončeno systémem
  End Select
End Sub