Bonsoir,
Je pense qu'il ne parle pas de réduction, mais plutôt de la case fermeture.
Cordialement
Stéphane
-------------------------------
Réponse au message :
-------------------------------
Ou bien, dans les propriétés de la feuille tu choisis False pour la propriété ControlBox et tu n'auras pas non plus réduction ni agrandissement
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
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
' Remove the Close menu item and disable the Close button
' from a window
Public Sub RemoveCloseMenuItem(ByVal hWnd As Long)
Const SC_CLOSE = &HF060
Const MF_BYCOMMAND = 0
Dim hMenu As Long
' get the system menu's handle
hMenu = GetSystemMenu(hWnd, 0)
' remove the Close item
RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND
End Sub
Cordialement
Stéphane
-------------------------------
Réponse au message :
-------------------------------
Comment je peux faire pour que le X dans le coins de la fenêtre à droite devienne invulnérable ??
Merci..
|