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

System_OJ Messages postés 232 Date d'inscription jeudi 2 juillet 2009 Statut Membre Dernière intervention 9 juillet 2019 - 9 juin 2007 à 23:03
System_OJ Messages postés 232 Date d'inscription jeudi 2 juillet 2009 Statut Membre Dernière intervention 9 juillet 2019 - 10 juin 2007 à 12:43
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

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
9 juin 2007 à 23:07
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


 
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
9 juin 2007 à 23:08
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


 
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
9 juin 2007 à 23:26
0
System_OJ Messages postés 232 Date d'inscription jeudi 2 juillet 2009 Statut Membre Dernière intervention 9 juillet 2019
10 juin 2007 à 12:43
Ok, merci beaucoup, ça marche !
0
Rejoignez-nous