Méthode Report.Circle (Access)

Article
04/07/2023

La méthode Circle dessine un cercle, une ellipse ou un arc sur un objet Report lorsque l’événement Print se produit.

Syntaxe

expression. Cercle (Étape (x, y), Rayon, Couleur, Début, Fin, Aspect)

Expression Variable qui représente un objet Report .

Parameters

Nom	Type de données	Description
Étape	Mot clé	Indique que le centre du cercle, de l’ellipse ou de l’arc est relatif aux coordonnées actuelles fournies par les paramètres actuels des propriétés CurrentX et CurrentY de l’argument Object .
(x, y)	Single	Indique les coordonnées du point central du cercle, de l’ellipse ou de l’arc. Les propriétés Scale (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight et ScaleWidth) de l’objet Report spécifié par l’argument Object déterminent l’unité de mesure utilisée.
Radius	Single	Indique le rayon du cercle, de l’ellipse ou de l’arc. Les propriétés Scale (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight et ScaleWidth) de l’objet Report spécifié par l’argument Object déterminent l’unité de mesure utilisée. Par défaut, les distances sont mesurées en twips.
Color	Long	Indique la couleur RVB (rouge-vert-bleu) du contour du cercle. Si cet argument est omis, la valeur de la propriété ForeColor est utilisée. Vous pouvez également utiliser la fonction RGB ou QBColor pour spécifier la couleur.
Start	Single	Lorsqu’un cercle partiel ou une ellipse est dessiné, l’argument Start spécifie (en radians) la position de début de l’arc. La valeur par défaut de l’argument Start est 0 radians. La plage est de -2 pi radians à 2 pi radians.
End	Single	Lorsqu’un cercle partiel ou une ellipse est dessiné, l’argument Fin spécifie (en radians) la position de fin de l’arc. La valeur par défaut de l’argument End est 2 pi radians. La plage est de -2 pi radians à 2 pi radians.
Aspect	Single	Indique les proportions du cercle. La valeur par défaut 1,0 produit un cercle parfait (non elliptique) sur n'importe quel écran.

Remarques

Utilisez cette méthode uniquement dans une procédure événementielle ou une macro spécifiée par les propriétés d’événement d’une section d’état, ou dans la propriété d’événement OnPage d’un état.

Lors du dessin d’un cercle partiel ou d’une ellipse, si l’argument Start est négatif, la méthode Circle dessine un rayon à la position spécifiée par l’argument Start et traite l’angle comme positif. Si l’argument End est négatif, la méthode Circle dessine un rayon à la position spécifiée par l’argument End et traite à nouveau l’angle comme positif. Avec la méthode Circle, les dessins sont toujours exécutés dans le sens inverse des aiguilles d'une montre (sens positif).

Pour remplir un cercle, définissez les propriétés FillColor et FillStyle de l'état. Seule une figure fermée peut être remplie. Les cercles, les ellipses et les secteurs (arcs avec des rayons dessinés aux deux extrémités) sont des figures fermées.

Lorsque vous dessinez des secteurs, si vous devez dessiner un rayon à l’angle 0 pour former un segment de ligne horizontale à droite, spécifiez une très petite valeur négative pour l’argument Start au lieu de 0. Par exemple, vous pouvez spécifier -.00000001 pour l’argument Start .

Vous pouvez omettre un argument au milieu de la syntaxe, mais vous devez inclure sa virgule avant l'argument suivant. Si vous omettez un argument de fin, n’utilisez aucune virgule après le dernier argument que vous spécifiez.

La largeur de la ligne utilisée pour dessiner le cercle, l’ellipse ou l’arc dépend du paramètre de la propriété DrawWidth . La façon dont le cercle est dessiné en arrière-plan dépend des paramètres des propriétés DrawMode et DrawStyle .

Lorsque vous appliquez la méthode Circle, les propriétés CurrentX et CurrentY sont définies en fonction du point central spécifié par les arguments x et y.

Exemple

Dans l'exemple suivant, la méthode Circle est utilisée pour dessiner un cercle. Un secteur est alors créé dans ce cercle et colorié en rouge.

Pour appliquer cet exemple dans Microsoft Access, créez un nouvel état. Définissez la propriété OnPrint de la section Détail sur [Event Procedure]. Entrez le code suivant dans le module du rapport, puis basculez vers Aperçu avant impression.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    Const conPI = 3.14159265359 
    Dim sngHCtr As Single, sngVCtr As Single 
    Dim sngRadius As Single 
    Dim sngStart As Single, sngEnd As Single 
 
    sngHCtr = Me.ScaleWidth / 2     ' Horizontal center. 
    sngVCtr = Me.ScaleHeight / 2     ' Vertical center. 
    sngRadius = Me.ScaleHeight / 3     ' Circle radius. 
    ' Draw circle. 
    Me.Circle(sngHCtr, sngVCtr), sngRadius 
    sngStart = -0.00000001             ' Start of pie slice. 
    sngEnd = -2 * conPI / 3             ' End of pie slice. 
    Me.FillColor = RGB(255,0,0)     ' Color pie slice red. 
    Me.FillStyle = 0                     ' Fill pie slice. 
    ' Draw pie slice within circle. 
    Me.Circle(sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via