faire un boutton quitter

Question

Bonjour &#224; tous,

Losque je fais un boutton quitter que dois je mettre dans le code li&#233; &#224; ce boutton ?

En effet, il faut penser &#224; enregistrer les donn&#233;es par exemple ?

jpleroisse · Answer

Explique un peu, qu'est ce que tu quittes, une Form en VB6, un UserForm en VBA, un classeur ???

jpleroisse

VBSorcier · Answer

Si c'est du vb6 : 

private sub BtQuitter_Click()
   end
end sub

tout simplement

--------------------------------------------------------------------------------------

ou alors lorsque tu quitte le prog en cliquant sur la croix en haut a droite de la fenetre : 

private sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
      box=msgbox("Voulez sauvegarder avant de quitter ???",vbyesnocancel)
      if box= vbyes then
            TonCodeDeSave
            end
      elseif box=vbno then
            end
      elseif box= vbcancel then
            cancel = 1       'pour annuler la fermeture (0 pour continer la fermeture)
      endif
end if

bonne continuation

crenaud76 · Answer

Je te d&#233;conseille fortement l'utilisation du 'End' en VB6 ! c'est une v&#233;ritable peste ce truc.
A la place, mieux vaut d&#233;charger tous tes objets si tu en as, par des Set MonObjet = Nothing
puis fermer toutes tes fen&#234;tres, comme ceci par exemple :
Dim F As Form
For each F in Forms
  Unload F
Next

 Christophe R

VBSorcier · Answer

je ne vois pas en quoi 'End' est une peste (comme tu dis) moi je l'utilise dans tout mes progs et je n'ai aucun pb !!!!

crenaud76 · Answer

End, ne nettoie pas toujorus correctement la m&#233;moire utilis&#233; par le programme .. .ce qui occasionne des fuites m&#233;moire ...

 Christophe R

Faire un boutton quitter

5 réponses

Discussions similaires