case system

Question

Bonjour,

Par des API et grâce à NIX,
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
j'ai pu désactiver la case "Fermer" (croix) dans le menu system.

Est-ce qq1 peut me dire s'il en existe 1 ou + pour faire la même chose avec la case "Agrandir".

J'ai recherché dans VB5 (pas de flouz pour VB6), mais comme c'est en US (pas ma tasse de thé), j'ai essayé avec ce qui pouvais se rapprocher mais je n'ai rien de concluant.

Merci.

crenaud76 · Answer

Pour suppriemr la case agrandir, c'est comme pour supprimer la croix !! Sauf que l'index du menu n'ets pas le même. Tu n'as qu'a les compter et tu trouveras le bon index ... Normalement, l'option "Agrandir" est juste avant l'option "Fermer", donc index -1

Christophe R.

Case system

1 réponse

Discussions similaires