Placement d'image

Résolu/Fermé
seb4257 - 11 juin 2013 à 14:43
 seb4257 - 13 juin 2013 à 16:51
Bonjour,

j'ai un contrôle image ImgZoom qui par défaut est invisible.
je cherche simplement à le centrer avant de l'afficher

ImgZoom.Top = (10)
ImgZoom.Left = (11)
MsgBox Me.ImgZoom.Top & " " & Me.ImgZoom.Left
Me.ImgZoom.Visible = True
MsgBox Me.ImgZoom.Top & " " & Me.ImgZoom.Left
Me.Refresh

quelque soient les valeurs que je mette pour ImgZoom.Top et ImgZoom.Left, mon image se retrouve toujours dans le coin supérieur gauche de la partie détail de mon formulaire Access alors même que ce n'est pas sa position initiale.
mes 2 msgbox sont juste là a titre de verification et retournent bien "10 11".
le fait de rafraichir mon formulaire ne change rien non plus.

où est l'erreur?

A voir également:

3 réponses

j'ai trouver la solution, ou plutôt un truc qui marche.
je me suis dit que mes mesures étaient peut-être dans une unité trop petite pour que 10 ou 11 se voient à l'écran
donc j'ai essayé 3000 et 6000 et là ça marche.
ce n'est pas vraiment une solution puisque je ne sais pas pourquoi mais ma foie.
pourquoi multiplier par 1000 alors que dans les propriété de l'objet dans l'interface VBA, c'est bien des valeurs du type 3.5... pourquoi une différence de coeff 1000?
même pas 1000 d'ailleurs, puisqu'en multipliant par 1000 les valeurs qui devaient permettre un centrage, ce n'est pas centré du tout.

qui aurait une explication?
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
Modifié par f894009 le 11/06/2013 à 17:36
Bonjour,

Pour centrer un control (ici un ctrl image) dans un formulaire (detail):

adaptez le nom du control
With Me.Image1
        .Top = (Me.InsideHeight - Me.Image1.Height) / 2
        .Left = (Me.InsideWidth - Me.Image1.Width) / 2
    End With

bonne suite
0
merci pour cette réponse que je vais m'empresser d'utiliser.
j'imagine que la différence viens du fait qu'un coup c'est des Cm et l'autre des pixels.
si vous savez comment spécifier une unité lorsqu'un utilise les propriétés .Top ou .Left, je suis preneur.
0