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

 996492 visiteurs

 4 visiteurs en ligne

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


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