Comment empecher de quitter un formulaireRésolu

Question

Bonjour,





Je souhaite empecher l'utilisateur de quitter mon formulaire car je dois faire un test avant qu'il ne quitte.








C'est pourquoi je voudrais mettre un bouton "Quitter" qui me permettrait de faire mon test avant de quitter.





Pour cela, il me faudrait supprimer la croix en haut a droite du formulaire qui permet a l'utilisateur de quitter.





Merci

jauretch · Accepted Answer

Je vous presente mes excuses car en fait ma demande concernait vb.net
et il suffit en fait de mettre la propri&#233;t&#233; controlbox a false



Merci

mortalino · Answer

Salut,

Il faut faire un appel d'API. Pour cela, dans le code du UserForm, tout en haut, dans les déclarations, met ça :

Private Declare Function GetWindowLongA Lib "user32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "user32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


puis dans UserForm_Initialize :

  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF


Ta croix sera effacée.

@ ++
Mortalino

cs_Alain Proviste · Answer

tu n'es pas obligé de supprimer la croix, quand l'utilisateur clique sur la croix un evenement survient, query_unload, dans lequel tu peux faire ton test et eventuellement annuler la "demande" de fermeture du formulaire

cs_jperre · Answer

Pour empécher de fermer un formulaire avec le bouton système, on peut écrire le code suivant dans la procédure Form_QueryUnload

Sub Form_QueryUnload(Cancel As Indeger,UnloadMode As Integer)
  If UnloadMode = 0 Then
     Cancel = True
     Exit Sub
  End If
End sub

explication : si l'on clique sur le bouton système, UnloadMode est égal à zéro

jauretch · Answer

Comment est ce que j'annule la demande de fermeture du formulaire?

mortalino · Answer

Petite précision, si tu es en VBA, c'est Form_QueryClose avec la technique d'Alain Proviste & jpierre

mortalino · Answer

en mettant le code de jpierre.

englobe le avec ta condition.

Sub Form_QueryUnload(Cancel As Indeger,UnloadMode As Integer)

  If UnloadMode = 0 Then
    If TonTest = False Then
      Cancel = True
      MsgBox "Vous avez oublier de faire..."
      Exit Sub
    End If
  End If
End sub

cs_jperre · Answer

Réponse à ta question "Comment est ce que j'annule la demande de fermeture du formulaire?":
Dans le code que je t'ai fourni, j'affecte la valeur True à la variable Cancel (qui veut dire annuler en anglais), ceci annule la méthode Unload du formulaire.

rvblog · Answer

Salut à tous, un exemple de plus de description du problème pas assez succinte, et des chercheurs qui bossent pour le plaisir! (en tout cas grand merci à eux) au moins jauretch, acceptes ta réponse, pour qu'elle serve, et que personne ne revienne! PS: je ne t'en veux pas, je t'explique. à+ rvblogn ^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

mortalino · Answer

Apparement "réponse acceptée" n'est pas connu de tous. Le réglement n'est malheureusement pas lu par tout le monde !!

4 Msg et au revoir... plus d'interêt à CS maintenant que la Soluce est trouvée, vraiment dommage.

Mortalino

rvblog · Answer

Oui, du coup, me demande-je, serait-il, déontologiquement parlant, inconvenant que, dans pareil cas, un Admin CS accepte la réponse à la place du demandeur fuyant (au delà, bien sûr, d'un délai prévu dans le règlement)? Au pire, le fugueur revient, et voit qu'il a manqué à sa famille, et que celle-ci s'est occupé de ses petites affaires pendant son absence, ce qui contribuerait peut-être à lui faire prendre conscience que le monde peut tourner sans lui, mais qu'avec lui c'est mieux. m'enfin, pas de quoi nous entamer le moral, juste l'espoir :) à+ mortalino rvblogn ^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Comment empecher de quitter un formulaire

11 réponses

Discussions similaires