Taille fenêtre Access
Il arrive que l'on souhaite donner une taille précise à la fenêtre de l'application
Pour cela, collez le code ci-dessous dans un module standard que vous sauverez par exemple sous "mod_TailleApplication".
Ensuite, créez une macro "AutoExec" qui exécutera du code et appellera la fonction fn_RedimFen()
Option Compare Database Option Explicit '/ '/ A placer dans la partie déclarative '/ Private Declare Function MoveWindow Lib "user32" ( _ ByVal hwnd As Long, ByVal x As Long, _ ByVal y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long _ ) As Long
La fonction :
Public Function fn_redimfen() Dim x As Long '// Position Dim y As Long '// "" Dim nWidth As Long '// Dimension (hauteur) (en pixel) Dim nHeight As Long '// "" (largeur) Dim bRepaint As Long '// Indique si redessine(1=oui). '// Place la fenêtre dans le coin gauche et en haut (0,0) '// la redimensionne à 800 * 600 et redessine la fenêtre. nWidth = 800: nHeight = 600: bRepaint = 1 MoveWindow Application.hWndAccessApp, x, y, nWidth, nHeight, bRepaint End Function
Dernière modification : 08/02/2010 02:12
Catégorie : Les mémos - Vrac
Page lue 12734 fois