AUTOCENTRAGE D'UNE MDICHILD PAR RAPPORT UNE FEUILLE MDI

Signaler
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Messages postés
26
Date d'inscription
mardi 20 mai 2003
Statut
Membre
Dernière intervention
22 janvier 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/17560-autocentrage-d-une-mdichild-par-rapport-une-feuille-mdi

Messages postés
26
Date d'inscription
mardi 20 mai 2003
Statut
Membre
Dernière intervention
22 janvier 2008

Salam,

Merci Ricks27, ça marche NICKEL!!!!!!! :)
Messages postés
27
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
18 mai 2005

Je pense que c'est mieux:

à condition que les bordures de la fenêtre soit statique

Private Sub Form_Resize()
Me.Top = (MDIForm1.ScaleHeight - ScaleHeight) / 2
Me.Left = (MDIForm1.ScaleWidth - ScaleWidth) / 2
end sub
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005

Pour info, car j'ai oublié de le signaler : "Menu" = le nom de la feuille Mdi.
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005

Pour t'éviter de retapper à chaque fois ton code :
------------------------------------------------------

Ds le form_load de chaque form MdiChild : Centrage Me

Sub Centrage(Feuille As Form)
Feuille.Left = (Menu.Width / 2) - (Feuille.Width / 2)
Feuille.Top = (Menu.ScaleHeight / 2) - (Feuille.Height / 2)
End Sub
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
Me.move (MDI.width - me.with) / 2 , ( MDI.height - Me.height) /2