Centrer un form

Soyez le premier à donner votre avis sur cette source.

Vue 8 918 fois - Téléchargée 445 fois

Description


Source / Exemple :


form1.Left = (Screen.Width - form1.Width) / 2
form1.Top = (Screen.Height - form1.Height) / 2

Conclusion :


Code pour centre la form selon la resolution de l'ecran, C'est tout simple et ça peut rendre service...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

C'est bon, mais ce n'est pas tout à fait juste, je propose d'essayer le code suivant :
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _
ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long) _
As Long




Const SPI_GETWORKAREA = 48



Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type



Function fCenterForm(ByVal frm As Form)
Dim tR As RECT, lngRep As Long

lngRep = SystemParametersInfo(SPI_GETWORKAREA, 0, tR, 0&) 'place dans tR le rectangle utilisable de l'écran
If lngRep <> 0 Then
frm.Left = ScaleX(((tR.Right - tR.Left) - ScaleX(frm.Width, frm.ScaleMode, vbPixels)) / 2, vbPixels, frm.ScaleMode) 'on fait les conversions pour être en pixels
frm.Top = ScaleY(((tR.Bottom - tR.Top) - ScaleY(frm.Height, frm.ScaleMode, vbPixels)) / 2, vbPixels, frm.ScaleMode)
End If
End Function

'Votre fenêtre sera véritablement centrée.


Private Sub Form_Load()
fCenterForm Me
End Sub
MasterGone
Messages postés
8
Date d'inscription
lundi 9 octobre 2000
Statut
Membre
Dernière intervention
4 janvier 2004
-
Il y a bcp plus simple : il suffit de modifier la propriété StartUpPosition
Osiris6880
Messages postés
36
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 décembre 2007
-
Ce code est très simple et fonctionne très bien, moi je m'est 10 !!!!
Le Papa de Thibaut
Messages postés
53
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2015
1 -
ce code est tres bien inutile de compliquer la procedure par un
"fCenterForm Me"
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
bien d'accord avec EuroLolo, la propriété StartUpPosition sur CenterScreen, emballé c'est pesé ^^

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.