Centrer un formulaire sur n importe quel écran

Version imprimable

02/06/2008, 23h24
adelsunwind

Centrer un formulaire sur n importe quel écran

Bonsoir,
savez vous comment on avoir en permanence un formulaire centré sur l'écran pour que la totalité du formulaire ( bouton, zone de texte..) soit contenu sur l'ecran sans avoir a bouger la barre de défilement pour atteindre ces controles?
Thanks a lot.
Ce forum est excellent.
Merci à ceux qui l'administre.
02/06/2008, 23h40
LedZeppII

Bonsoir,

Essaie ce code de la faq.

A+
03/06/2008, 08h15
vlksoft

bonjour

citation

Code:

Essaie ce code de la faq.

le code que LedZeppII t'a recommandé est parfaitement efficace pour ton problème car je l'ai déjà testé il marche parfaitement. Et n'oublies pas de mettre résolu.Très important.
04/06/2008, 09h56
adelsunwind

centrer formulaire sur plein ecran

Bonjour à tous.
J'ai bien essayé d'insérer ce bout de code issu de la FAC dans un module de ma BDD.
Si je comprends bien, j isère la première partie de ce code et la dernière dans un module.
Les 3 lignes de code du milieu sont à inserer dans mon formulaire sous un bouton.
Pourtant quand je clique le formualire bouge legerement mais sans se centrer.
Merci aux bonnes ames.

Tu crée un nouveau module (que tu appelle par exemple modCentrer) dans le quel tu colle le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
 
Private Type Position
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 ' --Pour obtenir les coordonnées de la fenêtre parent
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 ' --Pour obtenir les coordonnées de notre formulaire
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
lpRect As Position) As Long
 ' --Pour obtenir les coordonnées de l'écran
Public Declare Function GetDesktopWindow Lib "user32" () As Long
 ' --Pour positionner et dimensionner la fenêtre
Public 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
 
Public Sub Positionner(frm As Form)
Dim FParent As Position '--Fenêtre Parent
Dim Fenetre As Position
Dim Largeur As Integer
Dim Hauteur As Integer
Dim LParent As Integer ' --Largeur Fenêtre Parent
Dim HParent As Integer ' --Hauteur Fenêtre Parent
Dim PParent As Long ' --Posion parent
On Error GoTo Erreur
 ' --Trouver les coordonnées de mon formulaire à centrer.
PParent = GetParent(frm.hwnd)
 ' --Obtenir les coordonnées de mon formulaire et celles de son parent.
Call GetWindowRect(frm.hwnd, Fenetre)
 ' --Si le parent est la fenêtre Access, pas de soustracion
If PParent <> Application.hWndAccessApp Then
    Call GetWindowRect(PParent, FParent)
Else
    ' -- les coordonnées du Desktop
    Call GetWindowRect(GetDesktopWindow(), FParent)
End If
 ' --Calcul de la largeur et de la hauteur du parent
With FParent
    LParent = .Right - .Left
    HParent = .Bottom - .Top
End With
 ' --Calcul de la largeur et de la hauteur de mon formulaire
With Fenetre
    Largeur = .Right - .Left
    Hauteur = .Bottom - .Top
    .Left = (LParent - Largeur) \ 2
    .Top = (HParent - Hauteur) \ 2
End With
 ' --Centrer mon formulaire
Call MoveWindow(frm.hwnd, Fenetre.Left, Fenetre.Top, Largeur, Hauteur, bRepaint:=True)
Exit Sub
Erreur:
MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

Et ensuite, tu peux apeller la fonction de centrage en utilisant l'instruction :

Code:

Call Positionner(Me)

Où tu veux dans ton code ;)

04/06/2008, 16h34
Papy_Bro

Bonjour,

tu veux centrer ton formulaire ou l'agrandir ?

;)
05/06/2008, 08h42
azertix

Il veut le centrer c'est écrit dans le titre du topic et dans son premier post :roll:
05/06/2008, 12h54
adelsunwind

centrer un formulaire sur n importe quel écran

J ai bien insérer ce code comme il se doit. Par contre j ai bien mon formulaire qui apparait mais là il fait 4-5 fois la taille de mon écran, donc ce n est pas trop ce que je voulais à la base.
J aimerai que la totalité de mes formulaires tiennent en permanence sur l'ecran sans avoir à atteindre les controle avec la barre de défilement.
Merci encore

Euu, j'ai testé le code chez moi, et il marche très bien ...
Je vois pas là :roll:
Je te remets le code, dès fois que j'aie fait une erreur de copie ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
 
Private Type Position
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 ' --Pour obtenir les coordonnées de la fenêtre parent
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 ' --Pour obtenir les coordonnées de notre formulaire
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
lpRect As Position) As Long
 ' --Pour obtenir les coordonnées de l'écran
Public Declare Function GetDesktopWindow Lib "user32" () As Long
 ' --Pour positionner et dimensionner la fenêtre
Public 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
 
Public Sub Positionner(frm As Form)
Dim FParent As Position '--Fenêtre Parent
Dim Fenetre As Position
Dim Largeur As Integer
Dim Hauteur As Integer
Dim LParent As Integer ' --Largeur Fenêtre Parent
Dim HParent As Integer ' --Hauteur Fenêtre Parent
Dim PParent As Long ' --Posion parent
On Error GoTo Erreur
 ' --Trouver les coordonnées de mon formulaire à centrer.
PParent = GetParent(frm.hwnd)
 ' --Obtenir les coordonnées de mon formulaire et celles de son parent.
Call GetWindowRect(frm.hwnd, Fenetre)
 ' --Si le parent est la fenêtre Access, pas de soustracion
If PParent <> Application.hWndAccessApp Then
    Call GetWindowRect(PParent, FParent)
Else
    ' -- les coordonnées du Desktop
    Call GetWindowRect(GetDesktopWindow(), FParent)
End If
 ' --Calcul de la largeur et de la hauteur du parent
With FParent
    LParent = .Right - .Left
    HParent = .Bottom - .Top
End With
 ' --Calcul de la largeur et de la hauteur de mon formulaire
With Fenetre
    Largeur = .Right - .Left
    Hauteur = .Bottom - .Top
    .Left = (LParent - Largeur) \ 2
    .Top = (HParent - Hauteur) \ 2
End With
 ' --Centrer mon formulaire
Call MoveWindow(frm.hwnd, Fenetre.Left, Fenetre.Top, Largeur, Hauteur, bRepaint:=True)
Exit Sub
Erreur:
MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
End Sub

05/06/2008, 16h14
adelsunwind

centrer un formulaire sur n importe quel écran
Bon c est mieux merci.
Je ne sais pas d ou venait le pb.
Par contre en voyant le résultat je me demande quellle est l utilité de ce module.
Est ce la même chose qu un
Code:

1 2 Docmd.Maximize
Moi je pensais que même si en mode creation tu avais un formulaire qui sortait du cadre de l ecran alors en mode formulaire il serait automatiquement dimensionné par rapport à la taille de l'ecran.
Merci de m'éclaircir.
Merci
05/06/2008, 16h19
azertix

DoCmd.Maximise agrandit la fenêtre du formulaire (donc elle prend presque toute la taille de l'écran), alors que le code de Morsi centre ton formulaire au centre de l'écran ;)
19/09/2012, 18h35
jedimaster10

Bonjour,

Désolé de déterrer ce sujet mais j'en ai besoin :D

Je suis sous Access 2010 et voudrais que chaque formulaire ouvert soit centré à l'écran quelle que soit la résolution de l'écran.

J'ai un formulaire qui s'ouvre au démarrage de la base et d'autres ouverts grâce à des boutons d'action de ce formulaire d'accueil.

J'ai créé un module dans lequel j'ai coller le code présenté ci-dessus et j'ai fait un Call Positionner(Me) dans un Private Sub Form_Open() mais j'ai une erreur à l'ouverture.

En fait, je ne sais pas où le positionner :( J'imagine en plus qu'il faut le faire pour chaque formulaire que je souhaite centrer ?

Merci de votre aide.
26/09/2012, 09h21
jedimaster10

Bonjour,

Any help please ?
02/01/2013, 15h10
Manu66

Merci je séchais...

Pour info fonctionne avec 2010

Par contre, je serrais intéressé pour la gestion du multi-écrans.

Car centre systématiquement sur l'écran principal et pas sur l'écran de la fenêtre "parent"