Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Disable

Disable

5 réponses
Avatar
Luis
Bonjour,
Dans le site de Raymond j'ai trouv=E9 une super=20
fonction 'DisableX' pour supprimer le X d'un formulaire,=20
peut-on faire la m=EAme chose avec restaurer et r=E9duire?
Merci =E0 Raymond pour son super site.
Luis
Signaler un problème avec ce contenu

5 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
Jessy Sempere [MVP]
Bonjour

Si tu parles des formulaires, regardes la propriété du formulaire
"Boutons MinMax"

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans le message news:
15bc01c4c6fb$a2a1a510$
Bonjour,
Dans le site de Raymond j'ai trouvé une super
fonction 'DisableX' pour supprimer le X d'un formulaire,
peut-on faire la même chose avec restaurer et réduire?
Merci à Raymond pour son super site.
Luis
Avatar
Luis
Bonjour,
Non je me suis mal exprimé il s'agit de la fenêtre Access.
Luis
-----Message d'origine-----
Bonjour

Si tu parles des formulaires, regardes la propriété du
formulaire

"Boutons MinMax"

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans
le message news:

15bc01c4c6fb$a2a1a510$
Bonjour,
Dans le site de Raymond j'ai trouvé une super
fonction 'DisableX' pour supprimer le X d'un formulaire,
peut-on faire la même chose avec restaurer et réduire?
Merci à Raymond pour son super site.
Luis


.



Avatar
Gilbert
Bonjour,

Voici tout ce que j'ai réussi à trouver après avoir testé dans tous les
sens.

Option Compare Database
Option Explicit

Public Declare Function GetSystemMenu Lib "User32" (ByVal Hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long)
As Long
Public Declare Function DrawMenuBar Lib "User32" (ByVal Hwnd As Long) As
Long
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&

Public Function DisableX()
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)
'Get rid of the Close menu and its separator
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Make sure the screen updates our change
DrawMenuBar Application.hWndAccessApp
End Function

nCount-1 : Le bouton X est grisé et inopéran
nCount-2 : L'option Fermer du menu de la barre de titre est supprimée (si
utilisé après nCount - 1, sinon rien ne se passe ?).
nCount-3 : Le bouton Agrandir est inopérant mais non grisé. L'option
Agrandir du menu de la barre de titre est supprimée. Ne fonctionne pas si
utilisé après nCount - 4 (dans la même fonction).
nCount-4 : Le bouton Réduire est inopérant mais non grisé. L'option Réduire
du menu de la barre de titre est supprimée. Ne fonctionne pas si utilisé
après nCount - 3 (même dans une autre fonction).

Gilbert

"Luis" a écrit dans le message de
news:160e01c4c701$350b8a60$
Bonjour,
Non je me suis mal exprimé il s'agit de la fenêtre Access.
Luis
-----Message d'origine-----
Bonjour

Si tu parles des formulaires, regardes la propriété du
formulaire

"Boutons MinMax"

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans
le message news:

15bc01c4c6fb$a2a1a510$
Bonjour,
Dans le site de Raymond j'ai trouvé une super
fonction 'DisableX' pour supprimer le X d'un formulaire,
peut-on faire la même chose avec restaurer et réduire?
Merci à Raymond pour son super site.
Luis


.



Avatar
Jessy Sempere [MVP]
Ok

Donc voici le code qui convient :
************************************************************
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long

Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000

Public Function MenuAccessInactif(Optional MenuItem)
'** MenuItem
'** 6 : Fermer
'** 5 : Barre de séparation
'** 4 : Agrandir
'** 3 : Reduire
'** 2 : Taille
'** 1 : Déplacer
'** 0 : Restaurer
'On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
Dim i As Integer
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
If IsMissing(MenuItem) = True Then
For i = menuItemCount - 1 To 0 Step -1
Call RemoveMenu(hMenu, i, MF_REMOVE Or MF_BYPOSITION)
Next
Else
Call RemoveMenu(hMenu, MenuItem, MF_REMOVE Or MF_BYPOSITION)
End If
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Function
************************************************************

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans le message news:
160e01c4c701$350b8a60$
Bonjour,
Non je me suis mal exprimé il s'agit de la fenêtre Access.
Luis
-----Message d'origine-----
Bonjour

Si tu parles des formulaires, regardes la propriété du
formulaire

"Boutons MinMax"

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans
le message news:

15bc01c4c6fb$a2a1a510$
Bonjour,
Dans le site de Raymond j'ai trouvé une super
fonction 'DisableX' pour supprimer le X d'un formulaire,
peut-on faire la même chose avec restaurer et réduire?
Merci à Raymond pour son super site.
Luis


.



Avatar
Luis
Bonjour,
Merci,
Ca fonctionne à la perfection, dommage que l'on ne puisse
pas griser les trois ou même les faire disparaître.
Luis
-----Message d'origine-----
Ok

Donc voici le code qui convient :
**********************************************************
**

Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal
hMenu As Long, _

ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal
hwnd As Long) As

Long

Global Const MF_BYPOSITION = &H400
Global Const MF_REMOVE = &H1000

Public Function MenuAccessInactif(Optional MenuItem)
'** MenuItem
'** 6 : Fermer
'** 5 : Barre de séparation
'** 4 : Agrandir
'** 3 : Reduire
'** 2 : Taille
'** 1 : Déplacer
'** 0 : Restaurer
'On Error Resume Next
Dim hMenu As Long
Dim menuItemCount As Long
Dim i As Integer
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
If IsMissing(MenuItem) = True Then
For i = menuItemCount - 1 To 0 Step -1
Call RemoveMenu(hMenu, i, MF_REMOVE Or
MF_BYPOSITION)

Next
Else
Call RemoveMenu(hMenu, MenuItem, MF_REMOVE Or
MF_BYPOSITION)

End If
Call DrawMenuBar(Application.hWndAccessApp)
End If
End Function
**********************************************************
**


--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans
le message news:

160e01c4c701$350b8a60$
Bonjour,
Non je me suis mal exprimé il s'agit de la fenêtre Access.
Luis
-----Message d'origine-----
Bonjour

Si tu parles des formulaires, regardes la propriété du
formulaire

"Boutons MinMax"

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Luis" a écrit dans
le message news:

15bc01c4c6fb$a2a1a510$
Bonjour,
Dans le site de Raymond j'ai trouvé une super
fonction 'DisableX' pour supprimer le X d'un formulaire,
peut-on faire la même chose avec restaurer et réduire?
Merci à Raymond pour son super site.
Luis


.




.