使用FormClosing事件VB.net關閉應用程序

Question

我嘗試使用表單關閉事件退出應用程序，但確認消息框出現兩次。

這是我有：

Private Sub FrmMainPlatform_FormClosing(sender As Object, e As FormClosingEventArgs) _ 
Handles MyClass.FormClosing 

    Dim result As Integer 
    result = MessageBox.Show("Are you want to close", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.None) 
    If (result = DialogResult.No) Then 
     e.Cancel = True 
    Else 
     Application.Exit() 
    End If 

End Sub 

我也試圖與此解決方案：

Private Sub FrmMainPlatform_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
Select Case MessageBox.Show("Are you sure you want to exit?", "Confirm", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
    Case Windows.Forms.DialogResult.Yes 
     'nothing to do here the form is already closing 
    Case Windows.Forms.DialogResult.No 
     e.Cancel = True 'cancel the form closing event 
     'minimize to tray/hide etc here 
    End Select 
End Sub 

的形式被關閉，但應用程序，我仍然在運行。

Answer 1

Private Sub FrmMainPlatform_FormClosing(sender As Object, e As FormClosingEventArgs) _ 
    Handles Me.Closing 

    Dim result As Integer 
    result = MessageBox.Show("Are you want to close", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.None) 
    If (result = DialogResult.No) Then 
     e.Cancel = True 
    Else 
     Application.Exit() 
    End If 

End Sub 

嗨， 我得到這個問題的臨時解決方案。 Exit方法不會引發Closed和Closing事件，這些事件從.NET Framework 2.0開始已過時。

Answer 2

@karihalan，我相信你首先需要確保Form1實際上是你的應用程序的啓動形式。您可以從Project的屬性中確認這一點。如果是這樣，那麼你甚至不需要調用Application.Exit（）。

其次，嘗試用MyBase.FormClosing更換Me.FormClosing ......像這樣：

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing 

此外，還要確保你不訂閱兩次形成關閉的事件，也許使用AddHandler語句。

希望這會有所幫助。

Answer 3

更新：您可以嘗試關閉所有窗體。我會把它放在主要的封閉事件中。

For each f as Form in My.Application.OpenForms 
f.Close() 
Next 

擺脫第一個代碼塊。這就是我所做的，它問我是否只想關閉一次，當我點擊是時關閉，而當我說不時，關閉。

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
Select Case MessageBox.Show("Are you sure you want to exit?", "Confirm", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
    Case Windows.Forms.DialogResult.Yes 
     'nothing to do here the form is already closing 
    Case Windows.Forms.DialogResult.No 
     e.Cancel = True 'cancel the form closing event 
     'minimize to tray/hide etc here 
    End Select 
End Sub