Discussion :

[fweds]

Bonjour à tous !

Alors voilà, j'ai inclu dans mon application le code suivant qui me permet d'intercepter le moment ou l'utilisateur clique sur la croix de fermeture afin de lui demander confirmation :

Code :

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

1
2
3
4
5
6
7
8
9
If CloseMode = 0 Then
    reponse = MsgBox("Etes-vous sur de vouloir quitter l'application ?", vbYesNo + vbQuestion, "Confirmation")
    If reponse = vbNo Then
        Cancel = True
        Exit Sub
    End If
    End
    Cancel = False
End If

J'ai également inclus dans mon menu présent sur la forme MDI qui contient le code ci-dessus, un menu dans lequel à chaque clique sur un élément, toutes les feuilles MDI filles sont fermées avant d'ouvrir la nouvelle :

Code :

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

1
2
3
While Forms.Count > 1
    Unload Forms(1)
Wend

Le probléme est que maintenant, dés que je clique sur un élément du menu, cela fais comme si j'avais cliqué sur la croix de fermeture, boite de dialogue de confirmation et je reste bloqué en boucle sur cette boite si je choisis non.

Une idée ????

Merci

[ucfoutu]

Bonjour,

depuis quand le paramètre cancel a-t-il la valeur True ou False dans l'évènement QueryUnload ?
Ce n'est pas une booléenne mais un Integer ! (lis donc ton aide en ligne !)
donne-lui la valeur 0

[fweds]

Bon j'ai remplacé comme tu dis les true et false et ça ne change rien lol, à chaque fois que je clique sur un élément de mon menu, c'est comme si je cliquer sur la croix...

Code :

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

1
2
3
4
5
6
7
8
9
If CloseMode = 0 Then
reponse = MsgBox("Etes-vous sur de vouloir quitter l'application ?", vbYesNo + vbQuestion, "Confirmation")
If reponse = vbNo Then
Cancel = 1
Exit Sub
End If
End
Cancel = 0
End If

[ucfoutu]

Tu fais un sacré champion, toi ....

Tu as donné la valeur 0 là où il ne convenait pas de le faire !!!

Tu vas lire ton aide en ligne, oui ????

EDIT :

Allez, va ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If CloseMode = 0 Then
     reponse = MsgBox("Etes-vous sur de vouloir quitter l'application ?", vbYesNo + vbQuestion, "Confirmation")
     If reponse = vbNo Then
       Cancel = 0
        Exit Sub
     End If
     End
    Cancel = 4555555 '(ou ce que tu veux)
  End If
 
End Sub

[fweds]

Euh désolé je viens de trouver le problème, erreur de frappe !!! J'ai besoin de vacances moi lol