Fermeture FrmRésolu

Question

Bonjour, 

je voudrais que selon le contenu d'une variable globale pouvoir autoriser ou non la fermeture d'une fenêtre par l'intermédiaire de la petite croix en haut à droite. Comment faire ?

Merci

Makabey · Accepted Answer

J'ai testé avec et sans forme de type MDI (celles qui peuvent avoir des fenêtres filles comme par exemple MS-Word) et ça fonctionne parfaitement avec ces codes:

(MDIForm1)
Public CloseFlag As Boolean

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If (Not CloseFlag) Then
      Cancel = True
    'Else
  End If
End Sub

(Form1)
Private Sub Command1_Click()
  MDIForm1.CloseFlag = True
End Sub

Et ce, même avec un menu. Peut-être que si tu nous donne le code exact que tu utilise, nous pourrons mieux t'aider.

Clonk · Answer

ça marche comme ça il me semble:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Ma_variable = False Then
    Cancel = True    'la fenetre ne se ferme pas
Else
    Cancel = False     'la fenetre se ferme
End If
End Sub

Voilà

cs_pimousse75 · Answer

Merci cela marche très bien pour une frm classique ds mon appli mais sur la frm globale (qui gère les menus) cela ne fonctionne pas. Comment cela se fait il ? Une propriété à mettre ?

Dites moi si g pas été clair !

cs_pimousse75 · Answer

C tout bon, j'avais le end de l'appli qui foutait le bordel ! Merci à tous !

Fermeture Frm

4 réponses

Discussions similaires