Code pour cacher ou désactiver "bouton-close"

Signaler
Messages postés
232
Date d'inscription
jeudi 2 juillet 2009
Statut
Membre
Dernière intervention
9 juillet 2019
-
Messages postés
232
Date d'inscription
jeudi 2 juillet 2009
Statut
Membre
Dernière intervention
9 juillet 2019
-
Salut à tous !






J'ai besoin d'un code pour cacher ou désactiver le croix "fermer" d'une form en VB6, je sais que ça existe mais je n'ais pas trouvé sur le internet....
Donc, si quelqu'un connait le code, il peut me le donner...
Merci d'avance !

Salut !

4 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Met cela dans un module si tu dois y faire appel dans plusieurs From :

' Déclare API pour désactiver la croix systèm d'une Frm ****
 Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
 Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


 Private Const MF_BYCOMMAND = &H0
 Private Const SC_CLOSE = &HF060

Utilisation dans le Form_Load :

    ' Appelle de la function qui désactive la croix
     SetSystemCrossOff Me


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Oups, j'ai oublié cela aussi à mettre dans le module(sans la fonction on va pas bien loin...lol)

Public Sub SetSystemCrossOff(MyFrame As Form)


'**************************************************************************/
' Fonction qui désactive la crois sur les feuilles                         /
'**************************************************************************/
     Dim hMenu As Long


    ' Retire la croix fermer de la fenêtre
     hMenu = GetSystemMenu(MyFrame.hwnd, 0)
     Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
        
        
End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Messages postés
232
Date d'inscription
jeudi 2 juillet 2009
Statut
Membre
Dernière intervention
9 juillet 2019

Ok, merci beaucoup, ça marche !