cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 14 oct. 2002 à 17:21
Salut,
Je ne pense pas qu'il soit possible de le supprimer ou le masquer, à moins d'enlever directement la barre de titre. Par contre, il est possible d'éxécuter une procédure lorsqu'on clique dessus : Il suffit de rentrer le code source dans la procédure Form_Unload de la feuille.
Il est également possible de ne pas quitter la feuille lorsque qu'on clique sur ce bouton : il suffit de taper le code suivant dans Form_Load :
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Puis ces quelques lignes dans la procédure Form_Load :
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?