unload me dans une form

Question

Bonjour,

J&#146;ai fait en sorte que la croix rouge affiche un message lorsqu&#146;on la clic dans une form(form1) (voulez vous quitter).


Mon probl&#232;me, est de mettre une variable depuis une autre form(form2), mais quand je fait &#171; unload me &#187; pour fermer la form(form1), le message (voulez vous quitter) s&#146;affiche, et si je ne met pas &#231;&#224;, la variable n&#146;est pris en compte qu&#146;apr&#232;s red&#233;marrage.


Y-at&#146;il une solution ?

Merci.

cs_DARKSIDIOUS · Answer

Teste la valeur du UnloadMode :



If UnloadMode = 0 Then 'message

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

bricoyeye · Answer

voici la source:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Msg As String, indx As Integer
Msg = "Voulez-vous fermer l'application ?"
indx = MsgBox(Msg, vbYesNo + vbInformation, "Fermeture")
If indx = vbYes Then
    Cancel = False
Else
    Cancel = True
End If



End Sub
--------------------------------------


mais quand je fais unload me dans cette form, il me renvoit le message (sans avoir appuy&#233; sur la croix), sinon (si je ne met pas Unload me) il ne me met la variable qu'au redemarrage!
Alors comment faire pour que la variable soit prise de suite sans avoir le message?

PCPT · Answer

salut, [VB6] un bouton par défaut Option Explicit ' Dim bUnLoad As Boolean ' ' Private Sub Form_Load() ' init var bUnLoad = False End Sub ' ' Private Sub Command1_Click() ' ce bouton quitte sans message bUnLoad = True Unload Me End Sub ' ' Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' on quitte par la croix If bUnLoad Then Cancel = False Else Dim lRet As Long lRet = MsgBox ("Voulez-vous fermer l'application ?", _ vbYesNo + vbInformation, "Fermeture") If lRet vbYes Then Cancel False Else Cancel = True End If End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

cs_CanisLupus · Answer

Salut, pourquoi ne pas se servir tout simplement de UnLoadMode ? C'est pourtant simple. Voir la MSDN.


L'argument unloadmode renvoie les valeurs suivantes :


Constante
,
Valeur
,
Description
,
----

vbFormControlMenu
,
0
,
L'utilisateur a choisi dans le menu Syst&#232;me de la feuille la commande Fermeture.
,
----

vbFormCode
,
1
,
L'instruction Unload est invoqu&#233;e &#224; partir du code.
,
----

vbAppWindows
,
2
,
La session Microsoft Windows en cours prend fin.
,
----

vbAppTaskManager
,
3
,
Le Gestionnaire de t&#226;ches de Microsoft Windows ferme l'application.
,
----

vbFormMDIForm
,
4
,
Une feuille MDI fille se ferme en raison de la fermeture de la feuille MDI.
,
----

vbFormOwner
,
5
,
Une feuille se ferme en raison de la fermeture de son propri&#233;taire.



Dans ton cas, le code serait donc :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)


If UnloadMode = vbFormCode Then Exit Sub


Dim Msg As String, indx As Integer
Msg = "Voulez-vous fermer l'application ?"
indx = MsgBox(Msg, vbYesNo + vbInformation, "Fermeture")
If indx = vbYes Then
    Cancel = False
Else
    Cancel = True
End If


End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Et ce n'est qu'un compl&#233;ment de la r&#233;ponse de DARKSIDIOUS.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

bricoyeye · Answer

Merci de vos r&#233;ponses, mais j'ai trouv&#233; avec form.visible Fasle ou Troue


Le probl&#233;me, c'est que &#231;&#224; marchait tr&#233;s bien, mais lorsque je faisai un unload sur ma form, &#231;&#224; me mettait le message, maintenant c'est ok.
merci

cs_CanisLupus · Answer

Je pense que ta solution avec form.visible ne fait que reporter le probl&#232;me et non le r&#232;gler mais bon, si &#231;a te va, tant mieux.

Bonne prog.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_DARKSIDIOUS · Answer

Mais pourquoi persiste &#224; ne pas utiliser l'UnloadMode ??? comme l'a
dit canislupus, faire un Visible ne r&#232;glera s&#251;rement pas le probl&#232;me !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

bricoyeye · Answer

Oui, je sais, mais
J'ai essay&#233; If UnloadMode = vbFormCode Then Exit Sub mais &#231;&#224; me fait tourner le programme en boucle!
Je dois avoir un truc quelque part, je vais voir!
merci de vos r&#233;ponses.

Unload me dans une form

9 réponses

Discussions similaires