Afficher un cercle

International Français
1

Bonjour,
Afficher un cercle avec OvalShape ?
en faisant: g.DrawOval(X, Y , rayon, rayon), le cercle n’est pas centr sur X,Y.
je dois donc faire : g.DrawOval(X - rayon/2, Y - rayon/2, rayon, rayon), n’y a t’ il pas une autre mthode pour afficher un cercle
centr sur x,y; comme en Vb6.

2

C’est l qu’Extends vient la rescousse en permettant d’tendre la classe Graphics avec une nouvelle mthode.
Il suffit de copier-coller l’intgralit du code suivant dans un module ayant un scope global.

[code]Sub DrawCircleCentered(Extends extG As Graphics, inX As Integer, inY As Integer, inRadius As Integer)

Dim theDiameter As Integer = inRadius * 2
extG.DrawOval( inX - inRadius, inY - inRadius, theDiameter, theDiameter )

End Sub[/code]
Ensuite, si tu as besoin de dessiner un cercle de 20 pixels de rayon et dont le centre est (100,50) tu fais comme a:

g.DrawCircleCentered( 100, 50, 20 )

Bon courage.

3

Trs bien, merci Eric.