l'explorateur d'objets est ton ami.
presse F2,
cherche Scale :
Sub Scale(Flags As Integer, [X1], [Y1], [X2], [Y2])
Member of VB.PictureBox
Defines the coordinate system for a Form, PictureBox, or Printer.
on modifie ici le systeme de coordonnées...
Dans ton cas, si ta pictureBox est de forme carrée, le point de coordonnées 0,0 sera au centre de la PictureBox une fois ta ligne executée
je te l'accorde, la syntaxe est particulière, mais c'est lié à d'anciennes versions de VB.
un petit exemple pour comprendre.
Private Sub Command1_Click()
'# Par defaut, va dessiner un cercle centré sur le coin supérieur gauche
Picture1.Circle (0, 0), 300
'# désigne le rectangle donnant le ViewPort :
'# Coin supérieur gauche, coin inférieur droit
Picture1.Scale (Picture1.ScaleWidth * -0.5, Picture1.ScaleHeight * 0.5)-(Picture1.ScaleWidth * 0.5, Picture1.ScaleHeight * -0.5)
'# Nous avons modifié le repère, le cercle a toujours pour centre 0,0, mais dans ce nouveau repère :
'# Le cercle est centré dans la pictureBox
Picture1.Circle (0, 0), 300
'# On remet le viewport d'origine
Picture1.Scale (0, 0)-(Picture1.ScaleWidth, -Picture1.ScaleHeight)
'# Et on dessine un autre cercle, juste en dessous du premier cercle dessiné
Picture1.Circle (0, 600), 300
End Sub
Renfield - Admin CodeS-SourceS - MVP Visual Basic