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
Raymond [mvp]
RE.
pour les formulaires, utiliser les propriétés boutons min/max et bouton fermer de l'onglet format de la fenêtre propriétés. pour la fenêtre access ce n'est pas pareil: pour désactiver fermer: voir la procédure page : http://officesystem.access.free.fr/apidisablex.htm pour désactiver tous les menus, voici la procédure de Jessy (non testée mais qui doit fonctionner sans auncun doute) 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
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fujitsuchaos" a écrit dans le message de news: cp6uis$fqb$
Bonjour à tous,
Je souhaite supprimer ou masquer les deux icône "Fermer" et "Niveau inférieur dans les case système par en module ?
Merci par avance pour votre aide
Et aussi encore merci à Raymond
Marco
RE.
pour les formulaires, utiliser les propriétés boutons min/max et bouton
fermer de l'onglet format de la fenêtre propriétés.
pour la fenêtre access ce n'est pas pareil:
pour désactiver fermer: voir la procédure page :
http://officesystem.access.free.fr/apidisablex.htm
pour désactiver tous les menus, voici la procédure de Jessy (non testée mais
qui doit fonctionner sans auncun doute)
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
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
cp6uis$fqb$1@s5.feed.news.oleane.net...
Bonjour à tous,
Je souhaite supprimer ou masquer les deux icône "Fermer" et "Niveau
inférieur dans les case système par en module ?
pour les formulaires, utiliser les propriétés boutons min/max et bouton fermer de l'onglet format de la fenêtre propriétés. pour la fenêtre access ce n'est pas pareil: pour désactiver fermer: voir la procédure page : http://officesystem.access.free.fr/apidisablex.htm pour désactiver tous les menus, voici la procédure de Jessy (non testée mais qui doit fonctionner sans auncun doute) 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
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fujitsuchaos" a écrit dans le message de news: cp6uis$fqb$
Bonjour à tous,
Je souhaite supprimer ou masquer les deux icône "Fermer" et "Niveau inférieur dans les case système par en module ?
Merci par avance pour votre aide
Et aussi encore merci à Raymond
Marco
fujitsuchaos
Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
Public Function DisableX() Dim hMenu As Long Dim nCount As Long hMenu = GetSystemMenu(Application.hWndAccessApp, 0) nCount = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) DrawMenuBar Application.hWndAccessApp End Function
Et
*** POUR ACTIVE *** ????
Merci de votre aide
Marco
Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active
quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
Public Function DisableX()
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
DrawMenuBar Application.hWndAccessApp
End Function
Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
Public Function DisableX() Dim hMenu As Long Dim nCount As Long hMenu = GetSystemMenu(Application.hWndAccessApp, 0) nCount = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) DrawMenuBar Application.hWndAccessApp End Function
Et
*** POUR ACTIVE *** ????
Merci de votre aide
Marco
Raymond [mvp]
RE.
pour remettre un menu c'est autre chose et en général on ne le remet pas tellement c'est compliqué; je te donne la page de la fonction InsertMenuItem en espérant que tu pourras t'y retrouver. http://www.mangovision.com/vbapi/ref/i/insertmenuitem.html -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fujitsuchaos" a écrit dans le message de news: cp91cf$f4s$
Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
Public Function DisableX() Dim hMenu As Long Dim nCount As Long hMenu = GetSystemMenu(Application.hWndAccessApp, 0) nCount = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) DrawMenuBar Application.hWndAccessApp End Function
Et
*** POUR ACTIVE *** ????
Merci de votre aide
Marco
RE.
pour remettre un menu c'est autre chose et en général on ne le remet pas
tellement c'est compliqué;
je te donne la page de la fonction InsertMenuItem en espérant que tu pourras
t'y retrouver.
http://www.mangovision.com/vbapi/ref/i/insertmenuitem.html
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
cp91cf$f4s$1@s5.feed.news.oleane.net...
Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active
quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
Public Function DisableX()
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
DrawMenuBar Application.hWndAccessApp
End Function
pour remettre un menu c'est autre chose et en général on ne le remet pas tellement c'est compliqué; je te donne la page de la fonction InsertMenuItem en espérant que tu pourras t'y retrouver. http://www.mangovision.com/vbapi/ref/i/insertmenuitem.html -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fujitsuchaos" a écrit dans le message de news: cp91cf$f4s$
Salut, encore merci Mr Raymond pour "Disablex", mais aussi je veux active quand j'ai modifier, par ex :
*** POUR DESACTIVE ***
Public Function DisableX() Dim hMenu As Long Dim nCount As Long hMenu = GetSystemMenu(Application.hWndAccessApp, 0) nCount = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) DrawMenuBar Application.hWndAccessApp End Function
