Désactiver croix rouge formulaire

Résolu/Fermé

pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 - 1 déc. 2009 à 15:27
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 - 1 déc. 2009 à 21:13

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.

A voir également:

Désactiver croix rouge formulaire
Desactiver instagram - Guide
Désactiver onedrive - Guide
Desactiver windows defender - Guide
Desactiver edge - Guide
Mode securise android desactiver - Guide

4 réponses

Réponse 1 / 4

pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
1 déc. 2009 à 16:10

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.

Réponse 2 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 déc. 2009 à 16:14

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

Réponse 3 / 4

pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
1 déc. 2009 à 21:13

:O Exactement ce que je cherchais ^^.
un très grand merci.

Réponse 4 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 déc. 2009 à 15:54

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!

Discussions similaires

A quoi correspond cette croix sur snapchat

Free : mon FreePlug classic est bloqué sur le voyant rouge

Savoir si je suis bloqué par une personne sur snap chat

Comment faire le signe de croix (chrétiens) ?

smyley rectangulaire

Discussions similaires

Newsletters