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

Question

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 !

cs_Exploreur · Answer

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

cs_Exploreur · Answer

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

mortalino · Answer

Salut,

il y a aussi cette source :

http://www.vbfrance.com/codes/MODIFIER-ETAT-BOUTONS-REDUIRE-AGRANDIR-FERMER-MODULE-CLASSE_
37556.aspx

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

System_OJ · Answer

Ok, merci beaucoup, ça marche !

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

4 réponses

Votre réponse

Discussions similaires