AUTOCENTRAGE D'UNE MDICHILD PAR RAPPORT UNE FEUILLE MDI

Private Sub Form_Initialize()

'Déclaration des variables
Dim CentreVertEcran As Double
Dim CentreHoriEcran As Double
Dim CentreVertMe As Double
Dim CentreHoriMe As Double
Dim DistGauche As Double
Dim DistHaute As Double

'Calcul du centre de l'écran
CentreHoriEcran = (Screen.Width) / 2
CentreVertEcran = (Screen.Height) / 2

'Calcul du centre du formulaire
CentreHoriMe = (Me.Width) / 2
CentreVertMe = (Me.Height) / 2

'Calcul de la distance entre le bord gauche de la feuille MDI et celui du Formulaire
DistGauche = CentreHoriEcran - CentreHoriMe

'Calcul de la distance entre le bord haut de la feuille MDI et celui du Formulaire
DistHaute = CentreVertEcran - CentreVertMe

'Positionnement du formulaire au centre de la feuille MDI
Me.Left = DistGauche
Me.Top = DistHaute - 500  'Correction de 500

End Sub