在应用程序结束之前执行代码

Question

我得到了 MDI 应用程序并且有一些 OnFormClosing 事件在 End 应用程序之前做一些工作 - 这些行：

Projekt.UnlockAllLockedProjects()
End 'completly close app

在整个代码下面：

Protected Overrides Sub OnFormClosing(e As FormClosingEventArgs)
    MyBase.OnFormClosing(e)

    If e.CloseReason = CloseReason.WindowsShutDown Then
        Return
    End If

    Dim dr As DialogResult
    Select Case Lang.name
        Case Lang.LangShortcut.PL
            dr = MessageBox.Show(Me, "Kontynuować zamykanie okna?", MsgLevel.QUESTION.ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Case Lang.LangShortcut.EN
            dr = MessageBox.Show(Me, "Are you sure you want to quit?", MsgLevel.ZAPYTANIE.ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Case Else
    End Select

    ' Confirm user wants to close
    Select Case dr
        Case DialogResult.No
            e.Cancel = True
            Exit Select
        Case Else
              Projekt.UnlockAllLockedProjects()
            End 'completly close app
    End Select
End Sub

问题是，让我们假设会有应用程序错误，因此应用程序将崩溃或手动我在代码End 子句中的其他位置。如何确保Projekt.UnlockAllLockedProjects() 始终在应用退出之前执行。有什么地方可以放它并确定吗？

Answer 1

我会在一个模块中使用一个 Sub Main 来显示 GUI 并最终在 Try...Catch 中处理解锁过程。

1. 向项目中添加一个模块。
2. 在模块中添加一个 Sub Main。
3. 在 Sub Main 中，使用 Try...Catch 显示表单并处理异常。
4. 将 Startup 对象设置为 Sub Main (Project>Properties>Application)。

例子：

Module Program

    Public Sub Main(ByVal cmdArgs() As String)
        Try
            Application.Run(frmLogin)
        Catch ex As Exception
            'Any special code for handling exceptions goes here.
        Finally
            Projekt.UnlockAllLockedProjects()
        End Try
    End Sub

End Module