Pb d'unload de forms

Question

B'soir les gens

bon voila le pb, j'ai un bouton cmdCancel qui me permet de quitter mon prog quand je clique dessus, le code est le suivant:

Private Sub cmdCancel_Click()
Dim Form As Form
If MsgBox("Do you really want to quit ?", vbYesNo) = vbYes Then
    'unload every form
    For Each Form In Forms
        If Not Form Is Me Then Unload Form
    Next Form
    End
End If
End Sub

Comme vous pouvez le voir avant la sortie je demande si la personne est sure grace a une msgbox. J'ai voulu rajouter ce meme code mais pour le form_unload et la surprise, ca ne marche pas pour le form_unload, quand je clicke sur No j'ai mon prog qui est fermé quand meme.

Qlq un pourrait il m'expliquer svp
merci

cs_labout · Answer

labout

If MsgBox("Do you really want to quit ?", vbYesNo) = vbYes Then
'unload every form
For Each Form In Forms
If Not Form Is Me Then Unload Form
Next Form
End
else 
cancel=true
End If
 
Ajoute dans else cancel=true
@+

sbouquet · Answer

merci bien,
Effectivement, ca marche impec, mais je comprends pas pkoi en fait puisk cancel est defini comme un integer, pkoi faire cancel = true ? et du coup pkoi ca marche ?

Merci

cs_labout · Answer

labout
c'est comme cela c'est microsoft

sbouquet · Answer

mdr, ok, merci billou !

cs_DARKSIDIOUS · Answer

En fait, lorsque Cancel <> 0, alors ca annule le déchargement => le fait de faire Cancel = True ou Cancel = 1 revient au même puisque : Val(True) = 1 !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

sbouquet · Answer

Ben la je comprends d'un coup, merci

cs_Sharkiller · Answer

Moi je fais avec ça d'habitude, mais j'avais pas essayé depuis que j'étais sous Vista, et je viens de constater que ça ne marchait pas... Je ne sais pas si ça vient de là..?

C'est en VB 6, j'ai un exemple tout simple:

Dim Saved As Boolean

Private Sub Command1_Click()
Saved = True
MsgBox "Enregistré"
End Sub

Private Sub Form_Load()
Saved = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Ask As VbMsgBoxResult
If Saved = False Then
    Ask MsgBox("Voulez-vous enregistrer?", vbYesNoCancel) vbYes
    Select Case Ask
        Case vbYes
            MsgBox "Enregistré"
        Case vbCancel
            Cancel = 1
            MsgBox "Enregistré"
    End Select
End If
End Sub

Dans aucun cas ça n'affiche le message "Enregistré" lorsque l'on ferme le programme...
Quelqu'un a-t-il déjà rencontré ce problème?

cs_Sharkiller · Answer

Désolé pour la mise en forme :/ (c'est le navigateur^^)

Pb d'unload de forms

8 réponses

Discussions similaires