Recherche
Recherche
Les mémos
Je débute...
Visites

 1000694 visiteurs

 3 visiteurs en ligne

Si la taille de la fenêtre Access a été fixée, on peut souhaiter quelle ne soit plus modifiable

La fonction ci-dessous permet de supprimer les boutons "MinMax" de la fenêtre Access. Il peut être utilise conjointement avec la fonction fn_RedimFen()

Placez ce code dans un module général et sauvez-le par exemple sous "mod_MinMaxAccess"

Utilisation :

Soit dans une macro "AutoExec" vous appelé l'action ExécuterCode et comme nom de fonction "ToggleMaxMin()"

Soit vous ouvrez un formulaire du genre "Menu général" et "Sur ouverture" vous appellez la fonction.

Option Compare Database
Option Explicit
'/
'/ A placer dans la partie déclarative
'/
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const GWL_STYLE As Long = (-16)
Public Const SWP_DRAWFRAME As Long = &H20
Public Const SWP_NOMOVE As Long = &H2
Public Const SWP_NOSIZE As Long = &H1
Public Const SWP_NOZORDER As Long = &H4
Public Const SWP_FLAGS As Long = SWP_NOZORDER Or _
       SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

Public Declare Function GetWindowLong Lib "user32" _
               Alias "GetWindowLongA" (ByVal hWnd As Long, _
               ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" _
               Alias "SetWindowLongA" (ByVal hWnd As Long, _
               ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SetWindowPos Lib "user32" _
              (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
               ByVal x As Long, ByVal Y As Long, ByVal cx As Long, _
               ByVal cy As Long, ByVal wFlags As Long) As Long

La fonction :

Public Function ToggleMaxMin()
    Dim style As Long
 
    'Lire le style actuel de la fenêtre Access
    style = GetWindowLong(Application.hWndAccessApp, GWL_STYLE)
 
    'Modification du style actuel
    style = style Xor WS_MAXIMIZEBOX
    style = style Xor WS_MINIMIZEBOX
 
    'Basculer et actualise
    If style Then
        Call SetWindowLong(Application.hWndAccessApp, GWL_STYLE, style)
        Call SetWindowPos(Application.hWndAccessApp, 0, 0, 0, 0, 0, SWP_FLAGS)
    End If
 
End Function


Catégorie : Les mémos - Vrac
Page lue 8341 fois