Discussion :

[frazz]

Bonjour,

Une petite question sans doute pas tres compliquée, ca rje pense que ce genre de manipulation doit etre courante mais je n'y trouve pas de reponse::

J'ai une petite appli avec une unique form, qui comporte deux label

Je voudrais que ces label soient centrés horizontalement dans ma form, et je ne trouve pas de parametres a renseigné, je peut bien sur les mettre manuellement en calculant les coordonnées de leur points d'origine mais je voudrais que leurs position reste centrée meme si on redimmensionne la form...J'ai un peu trifouillé les parametres en mode graphique et testé les differente methodes qu'on peut avoir sur les label mais je ne trouve pas, si quelqu'un peut eclairer ma lanterne...

Merci de votre aide,

Frazz

[OhMonBato]

Bonjour,
il te suffit de coder dans l'événement Form_Resize. Comme je ne sais pas si tes 2 labels sont sur la même ligne horizontale ou pas et s'ils font la même taille ou non, je ne peux guère être plus précis. Mais disons pour un label, tu utilises la propriété Me.width pour connaitre la largeur de ta form, tu divises par 2. Tu as donc les coordonnées du centre de la feuille.
Tu divises la largeur de ton label par 2 également et tu soustrais cette valeur de la coordonnée centrale de la feuille. Applique le résultat à la propriété Left de ton label.

[ucfoutu]

Bonjour,

c'est donc (la propriété Left) tout simplement la moitié de la différence entre la largeur du Form et celle du Label

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1.Move (Me.Width - Label1.Width) / 2

Que ce soit sous VB6 (ou un autre langage) ou que ce soit avec un rectangle en papier à centrer sur un autre rectangle en papier (uniquement de l'arithmétique !...)

[frazz]

oui mais il faudrait que je le centre avant tout, car la si je definit label1.move il ne veux pas me l'accepter, il n'y a pas une ligne du genre
label1.position= center

qui est possible ou un truc du genre?

[OhMonBato]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label1.Left = (Me.Width - Label1.Width) / 2

[frazz]

Ah nikel ca fonctionne merci beacuoup, je ne savait pas qu'on pouvait definir les marge grace a cette commande!!

[OhMonBato]

Je n'ai fait que mettre en code ce que je te disais dans mon premier message...
En tout cas, si c'est résolu, merci de cliquer sur le bouton "Résolu" en bas de cette page.

[ThierryAIM]

Juste pour être tatillon, pardon ohmonbato :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label1.Left = (Me.ScaleWidth - Label1.Width) / 2

à cause des bordures