Private Sub Sommaire_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If Not Quitter_logiciel.ShowDialog() = Windows.Forms.DialogResult.OK Then e.Cancel = True End If End Sub
Private Sub Sommaire_Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.Closing e.Cancel = True Quitter_logiciel.Show() End Sub
Public Class Quitter_logiciel Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Me.DialogResult = System.Windows.Forms.DialogResult.OK Me.Close() Sommaire.Close() End Sub Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click Me.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Close() Sommaire.Enabled() = True Sommaire.Select() End Sub End Class
Private Sub Sommaire_Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.Closing If Quitter_logiciel.Show()=System.Windows.Forms.DialogResult.Cancel Then e.Cancel = True End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question