Discussion :

[Christophe P.]

Je voudrais que l'utilisateur confirme qu'il veut quitter l'application après avoir cliqué sur la croix de la barre MSWindows. J'ai fais le code suivant :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call IHM_Quitter(Cancel)
End Sub

Private Sub IHM_Quitter(Cancel As Integer)
Dim TmpReponse As Integer

TmpReponse = MsgBox("Voulez-vous quitter l'application ?", vbOKCancel, "")
If TmpReponse = vbOK Then
' trucs à faire avant de quitter
End
Else
Cancel = 1
End If
End Sub

Quand je clique sur le bouton Annuler, l'application se ferme mais le processus existe encore. Cliquer sur OK ferme bien l'application.

[avigeilpro]

Je viens de prendre ton code et de le mettre dans une nouvelle feuille et quand je fais annuler ca ne quitte pas.

[Christophe P.]

Je viens de prendre ton code et de le mettre dans une nouvelle feuille et quand je fais annuler ca ne quitte pas.

Moi non plus ça ne quitte pas ; l'application tourne toujours mais je n'y ai plus accès.
Même en faisant "basculer vers" depuis le gestionnaire des taches ça ne fait rien. Comme ce code a l'air bon, je vais voir d'où ça peut provenir.

[Theocourant]

Bonjour,

Essaie plutôt l'utilisation d'une fonction comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Cancel = IHM_Quitter()
End Sub
 
Private Function IHM_Quitter() as Boolean
Dim TmpReponse As Integer
 
   TmpReponse = MsgBox("Voulez-vous quitter l'application ?", vbOKCancel, "")
   If TmpReponse = vbOK Then
      ' trucs à faire avant de quitter
      IHM_Quitter = 0
      End Function
   Else
      IHM_Quitter = 1
   End If
End Function

+

Théo

[Christophe P.]

Ca marche maintenant... J'ai du merder avec l'exe.
Merci.

[avigeilpro]

As-tu modifié quelque chose ou ton code fonctionnait ?

N'oubli pas le tag si ton problème est réglé