[VBnet] Evenement Closing

Evenement Closing [VBnet] - VB/VBA/VBS - Programmation

Marsh Posté le 04-02-2006 à 14:04:42    

Bonjour à tous,
 
J'ai un problème avec le code suivant :  
 

Code :
  1. Private Sub DinosaureForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
  3.         Dim Resultat As DialogResult
  5.         MessageBox.Show("Etes-vous sûr de vouloir quitter l'application?", "Encyclopédie des Dinosaures", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
  7.         If Resultat = DialogResult.No Then
  9.             e.Cancel = True
  11.         End If
  14.     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 :
  1. Private Sub DinosaureForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
  4.         If MessageBox.Show("Etes-vous sûr de vouloir quitter l'application?", "Encyclopédie des Dinosaures", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
  6.         e.Cancel = True
  8.         End If
  12.     End Sub



Message édité par drakins le 04-02-2006 à 14:13:42
Reply

Marsh Posté le 04-02-2006 à 14:04:42   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed