Puisqu'il semble impossible de désactiver la case "restaurer" d'un
formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui
empêche la restauration de cette fenêtre formulaire ?
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]
je t'ai trouvé une api pour t'occuper cet après-midi, je ne l'ai pas testée. Elle est presque la même que pour l'application.
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joël GARBE" a écrit dans le message de news: 41d12901$0$7582$
Bonjour à tous,
Puisqu'il semble impossible de désactiver la case "restaurer" d'un formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui empêche la restauration de cette fenêtre formulaire ?
Vous en remerciant par avance... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr
je t'ai trouvé une api pour t'occuper cet après-midi, je ne l'ai pas testée.
Elle est presque la même que pour l'application.
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the
seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
41d12901$0$7582$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Puisqu'il semble impossible de désactiver la case "restaurer" d'un
formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui
empêche la restauration de cette fenêtre formulaire ?
je t'ai trouvé une api pour t'occuper cet après-midi, je ne l'ai pas testée. Elle est presque la même que pour l'application.
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joël GARBE" a écrit dans le message de news: 41d12901$0$7582$
Bonjour à tous,
Puisqu'il semble impossible de désactiver la case "restaurer" d'un formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui empêche la restauration de cette fenêtre formulaire ?
Vous en remerciant par avance... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr
Joël GARBE
Merci beaucoup Raymond ;-)
Je teste ça !
Mais au passage, j'ai positionné la propriété Style bordure sur Aucun, Bouton MinMax sur Aucun, Bouton Fermer NON et je n'ai plus le problème apparemment ! (Access 2000)
Cela suffirait-il à mon bonheur, à voir.
Je compare avec ton code...
Encore merci --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Raymond [mvp]" a écrit dans le message de news:
je t'ai trouvé une api pour t'occuper cet après-midi, je ne l'ai pas testée. Elle est presque la même que pour l'application.
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joël GARBE" a écrit dans le message de news: 41d12901$0$7582$
Bonjour à tous,
Puisqu'il semble impossible de désactiver la case "restaurer" d'un formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui empêche la restauration de cette fenêtre formulaire ?
Vous en remerciant par avance... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr
Merci beaucoup Raymond ;-)
Je teste ça !
Mais au passage, j'ai positionné la propriété Style bordure sur Aucun,
Bouton MinMax sur Aucun, Bouton Fermer NON et je n'ai plus le problème
apparemment ! (Access 2000)
Cela suffirait-il à mon bonheur, à voir.
Je compare avec ton code...
Encore merci
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news: uPzzpdN7EHA.2552@TK2MSFTNGP09.phx.gbl...
je t'ai trouvé une api pour t'occuper cet après-midi, je ne l'ai pas
testée. Elle est presque la même que pour l'application.
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,
ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the
seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
41d12901$0$7582$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Puisqu'il semble impossible de désactiver la case "restaurer" d'un
formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui
empêche la restauration de cette fenêtre formulaire ?
Mais au passage, j'ai positionné la propriété Style bordure sur Aucun, Bouton MinMax sur Aucun, Bouton Fermer NON et je n'ai plus le problème apparemment ! (Access 2000)
Cela suffirait-il à mon bonheur, à voir.
Je compare avec ton code...
Encore merci --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Raymond [mvp]" a écrit dans le message de news:
je t'ai trouvé une api pour t'occuper cet après-midi, je ne l'ai pas testée. Elle est presque la même que pour l'application.
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Joël GARBE" a écrit dans le message de news: 41d12901$0$7582$
Bonjour à tous,
Puisqu'il semble impossible de désactiver la case "restaurer" d'un formulaire lorsqu'on et en plein écran, existe-t-il une procédure qui empêche la restauration de cette fenêtre formulaire ?
