Désactiver croix rouge formulaire [Résolu/Fermé]

Signaler
Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
-
Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
-
Bonjour,
je souhaiterais savoir s'il était possible d'enlever (visiblement nan) ou de désactiver la croix rouge en haut d'un formulaire, je souhaite quitter ce formulaire par un bouton et non la croix.
merci de vos réponses.

4 réponses

Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
31
En effet (je cherchais dans le menu déroulant quelque chose comme exit...mais mes yeux ont du ratter le queryclose que je ne connaissais pas. Merci beaucoup c'est toujours utile ce genre d'astuce.
Messages postés
16431
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 avril 2021
3 161
re,

je viens de retrouver ce truc sur le site de F.Sigonneau

A pu croix!

'auteur: Laurent Longre
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

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub 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
End Sub

Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
31
:O Exactement ce que je cherchais ^^.
un très grand merci.
Messages postés
16431
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 avril 2021
3 161
bonjour

visiblement: nan... réellement: ouai !

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

le bouton de sortie est alors obligatoire!