Bouton agrandir et fermer

Question

Hello...
Je voudrais activer le bouton réduire et griser les boutons agrandir et fermer selemt, j'ai aucune idée de comment faire....... faut-il utilier l'api EnableMenuItem? Si oui, comment?

Ze_Dam · Answer

ben il doit etre en Syzable, minimzed button = True, maximized button = False, mais pour griser la croix, ca je sais po comment faire

Gobillot · Answer

Pour agrandir il faut mettre la propriété MaxButton de la Forme à False.
Pour le X je crois qu'il faut les API.
mais il y a aussi ça:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    If UnloadMode 0 Then Cancel True
End Sub

Daniel

cs_frop01 · Answer

1 - Crééz d'abord un module, puis insérez la ligne de code suivante:



'On va déclarer les API
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

Public Const MF_BYCOMMAND = &H0
Public Const SC_CLOSE = &HF060



2- Une fois ceci fait, insérez dans le Form_load de la form désirée ceci:



Dim hMenu As Long
hMenu = GetSystemMenu(hwnd, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)



 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)

Bouton agrandir et fermer

3 réponses

Discussions similaires