Autocentrage d'une mdichild par rapport une feuille mdi

Commenter

Contenu du snippet

Lorsque vous utilisez une feuille MDI, vous ne pouvez pas afficher les feuilles MDIChild au centre de l'écran ou de la feuille MDI.
J'ai donc développé un petit bout de code permetant de calculer le centre de la feuille MDI et celui d'une feuille MDIChild afin de les superposer.
Ainsi quelque soit la taille de l'écran ou celui de la feuille MDI , la feuille MDIChild sera toujours centrée.

Source / Exemple : 


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

Conclusion :


Ce code est à inserrer dans ce lui de la feuille MDIChild que l'on souhaite centrer avec la feuille MDI.

A voir également

S'inscrire maintenant

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.