Bonjour à tous,
J'ai un problème avec le code suivant :
Code :
- Private Sub DinosaureForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
- Dim Resultat As DialogResult
- MessageBox.Show("Etes-vous sûr de vouloir quitter l'application?", "Encyclopédie des Dinosaures", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
- If Resultat = DialogResult.No Then
- e.Cancel = True
- End If
- End Sub
|
Au moment où je clique sur le bouton Quitter de mon programme, que je réponde "Oui" ou "Non", ca quitte.
Merci de votre aide.
Finalement j'ai trouvé tout seul.
Code :
- Private Sub DinosaureForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
- If MessageBox.Show("Etes-vous sûr de vouloir quitter l'application?", "Encyclopédie des Dinosaures", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
- e.Cancel = True
- End If
- End Sub
|
Message édité par drakins le 04-02-2006 à 14:13:42