Sujet Précédent Sujet Suivant

AUTOCENTRAGE D'UNE MDICHILD PAR RAPPORT UNE FEUILLE MDI

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 31 oct. 2003 à 12:27
yourspinner Messages postés 26 Date d'inscription mardi 20 mai 2003 Statut Membre Dernière intervention 22 janvier 2008 - 4 janv. 2008 à 12:19

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

yourspinner Messages postés 26 Date d'inscription mardi 20 mai 2003 Statut Membre Dernière intervention 22 janvier 2008
4 janv. 2008 à 12:19

Salam,

Merci Ricks27, ça marche NICKEL!!!!!!! :)

cs_michelc Messages postés 27 Date d'inscription lundi 27 janvier 2003 Statut Membre Dernière intervention 18 mai 2005
3 nov. 2003 à 19:03

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

Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005
3 nov. 2003 à 09:59

Pour info, car j'ai oublié de le signaler : "Menu" = le nom de la feuille Mdi.

Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005
3 nov. 2003 à 09:56

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

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
31 oct. 2003 à 12:27

Me.move (MDI.width - me.with) / 2 , ( MDI.height - Me.height) /2

Discussions similaires

macro, supprimer une feuille Excel SANs confirmation...

[vba] recopier la valeur d'une cellule dans une autre feuille.

Code VB : suppression d'une feuille excel si elle existe

Suppression d'une feuille excel sans msgbox

Selection et suppression feuille vide excel

Votre réponse

Discussions similaires