|
Nastavte vlastnost Cancel argumentu FormClosingEventArgs na True, tím se stornuje uzavření formuláře.
Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason = CloseReason.UserClosing Then
If MessageBox.Show("Ukončit aplikaci?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then
e.Cancel = True
End If
End If
End Sub
End Class
|