Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Vrac - Taille fixe fenêtre Access

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

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

 

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


 


Date de création : 17/01/2006 : 00:20
Dernière modification : 08/02/2010 : 02:13
Catégorie : Vrac
Page lue 7956 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut