Attribuer du code à la croix pour quitter ?

Question

Salut tt le monde

Je sus en train de faire un logiciel avec VB6 qui se connecte à une BD Access à son démarrage., via une procédure Connexion.
J'ai créé un bouton Quitter qui me déconnecte de ma base avec ma procédure Deconnexion. Tout est Ok jusque là.

Mais lorsque je quitte mon logiciel en utilisant la croix Windows, en haut à droite, ma connexion reste active. Mon EXE reste dans le gestionnaire des tâches de Windows.

Il faudrait que le clic sur la croix me fasse la même chose que mon bouton Quitter, qui lui fonctionne et dont voici le code

-----------------------------------
Private Sub Quitter_Click()

    Call Deconnexion(BDD)
    End

End Sub
-----------------------------------

J'ai essayé avec Form_Unload mais mon appli reste dans le gestionnaire des tâches. J'ai essayé différentes solutions proposées dans le forum, sans succès.

Merci de m'aider!

cs_trabice · Answer

y'a plein de source sur ca je crois....
je cherche et je te donne ca..

fabrice

cs_frop01 · Answer

utilise l'événement Unload 



Private Sub Form_Unload(Cancel As Integer)
 If MsgBox("Voulez vous vraiment quitter ?", vbYesNo, "Quitter") = vbNo Then
  Cancel = True ' annuler la fermeture
 End If
End Sub



 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

cs_frop01 · Answer

pardon j'avais pas lu la dernière phrase !!

ya quoi comme code dans la procédure Deconnexion() ? 

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

cs_trabice · Answer

http://www.vbfrance.com/code.aspx?ID=4602

tu empeche le clic sur la croix.
te prend pa la tete..

fabrice

cs_Macfly71 · Answer

-------------------------------------
Public Function Deconnexion(BDD) As Boolean
    BDD.Close
    'test si la fermeture de la connection s'est bien effectué
    If (BDD.State = adStateClosed) Then
        Deconnexion = True
    Else
        Deconnexion = False
    End If
    Exit Function
End Function
-------------------------------------

cs_Macfly71 · Answer

T'as raison fabrice, je vais pas me creuser la tête pour rien, ça vait pas le coup, ya ka pas cliquer et d'un coup c'est plus simple!

Merci de votre aide!

econs · Answer

pour le clic sur la petite croix, c'est l'évenement QueryUnload du formulaire.

Manu

Attribuer du code à la croix pour quitter ?

7 réponses

Discussions similaires