Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic desactiver le bouton MAXIMIZE

desactiver le bouton MAXIMIZE

3 réponses
Avatar
lou
bonjour

j'ai trouvé chez microsoft le code pour désactiver le bouton de fermeture

et je voudrais en meme temps désactiver aussi le bouton MAXIMIZE
je n'y arrive pas

voici le code en question pouvez vous ajouter pour desactiver le bouton
MAXIMIZE
MERCI

Option Compare Database
Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
Const SC_SIZE = &HF000&
Const SC_MINIMIZE = &HF020&
Const SC_MAXIMIZE = &HF030&
Public Function SetEnabledState(blnState As Boolean)
Call CloseButtonState(blnState)
''''''Call ExitMenuState(blnState)
End Function
'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
End Sub
'Disable the Close Button Option
Sub CloseButtonState(boolClose As Boolean)
Dim hWnd As Long
Dim wFlags As Long
Dim hMenu As Long
Dim result As Long

hWnd = Application.hWndAccessApp
hMenu = GetSystemMenu(hWnd, 0)
If Not boolClose Then
wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If

result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Sub

'Disable the maximize Button Option
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FG
tu met la propriété BORDERSTYLE de ta form à FIXED DIALOG

"lou" a écrit dans le message de
news:41230b64$0$317$
bonjour

j'ai trouvé chez microsoft le code pour désactiver le bouton de fermeture

et je voudrais en meme temps désactiver aussi le bouton MAXIMIZE
je n'y arrive pas

voici le code en question pouvez vous ajouter pour desactiver le bouton
MAXIMIZE
MERCI

Option Compare Database
Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
Const SC_SIZE = &HF000&
Const SC_MINIMIZE = &HF020&
Const SC_MAXIMIZE = &HF030&
Public Function SetEnabledState(blnState As Boolean)
Call CloseButtonState(blnState)
''''''Call ExitMenuState(blnState)
End Function
'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
Application.CommandBars("File").Controls("Exit").Enabled blnExitState
End Sub
'Disable the Close Button Option
Sub CloseButtonState(boolClose As Boolean)
Dim hWnd As Long
Dim wFlags As Long
Dim hMenu As Long
Dim result As Long

hWnd = Application.hWndAccessApp
hMenu = GetSystemMenu(hWnd, 0)
If Not boolClose Then
wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If

result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Sub

'Disable the maximize Button Option







Avatar
lou
merci

mais ce n'est pas vraiment ce que je veux

en fait ce n'est pas le bouton MAXIMIZE du form que je veux desactiver mais
bien celui de l'application

comme le dit l'article de MICROSOFT

How to disable the Close button on the Application window and the Exit
command on the File menu
sauf que je voudrais aussi ajouter le bouton MAXIMIZE

"FG" a écrit dans le message de news:
41231889$0$20693$
tu met la propriété BORDERSTYLE de ta form à FIXED DIALOG

"lou" a écrit dans le message de
news:41230b64$0$317$
> bonjour
>
> j'ai trouvé chez microsoft le code pour désactiver le bouton de


fermeture
>
> et je voudrais en meme temps désactiver aussi le bouton MAXIMIZE
> je n'y arrive pas
>
> voici le code en question pouvez vous ajouter pour desactiver le bouton
> MAXIMIZE
> MERCI
>
> Option Compare Database
> Option Explicit
>
> Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long,


_
> ByVal bRevert As Long) As Long
>
> Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
> Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
>
> Const MF_GRAYED = &H1&
> Const MF_BYCOMMAND = &H0&
> Const SC_CLOSE = &HF060&
> Const SC_SIZE = &HF000&
> Const SC_MINIMIZE = &HF020&
> Const SC_MAXIMIZE = &HF030&
> Public Function SetEnabledState(blnState As Boolean)
> Call CloseButtonState(blnState)
> ''''''Call ExitMenuState(blnState)
> End Function
> 'Disable the Menu Option
> Sub ExitMenuState(blnExitState As Boolean)
> Application.CommandBars("File").Controls("Exit").Enabled > blnExitState
> End Sub
> 'Disable the Close Button Option
> Sub CloseButtonState(boolClose As Boolean)
> Dim hWnd As Long
> Dim wFlags As Long
> Dim hMenu As Long
> Dim result As Long
>
> hWnd = Application.hWndAccessApp
> hMenu = GetSystemMenu(hWnd, 0)
> If Not boolClose Then
> wFlags = MF_BYCOMMAND Or MF_GRAYED
> Else
> wFlags = MF_BYCOMMAND And Not MF_GRAYED
> End If
>
> result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
> End Sub
>
> 'Disable the maximize Button Option
>
>
>
>
>




Avatar
ng
Salut,

Dans les propriétés de ta feuille mets MaxButton à False.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



lou a écrit :

bonjour

j'ai trouvé chez microsoft le code pour désactiver le bouton de
fermeture

et je voudrais en meme temps désactiver aussi le bouton MAXIMIZE
je n'y arrive pas

voici le code en question pouvez vous ajouter pour desactiver le
bouton MAXIMIZE
MERCI

Option Compare Database
Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As
Long, _ ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
Const SC_SIZE = &HF000&
Const SC_MINIMIZE = &HF020&
Const SC_MAXIMIZE = &HF030&
Public Function SetEnabledState(blnState As Boolean)
Call CloseButtonState(blnState)
''''''Call ExitMenuState(blnState)
End Function
'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
Application.CommandBars("File").Controls("Exit").Enabled > blnExitState End Sub
'Disable the Close Button Option
Sub CloseButtonState(boolClose As Boolean)
Dim hWnd As Long
Dim wFlags As Long
Dim hMenu As Long
Dim result As Long

hWnd = Application.hWndAccessApp
hMenu = GetSystemMenu(hWnd, 0)
If Not boolClose Then
wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If

result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Sub

'Disable the maximize Button Option