Propriété Report.FillColor (Access)
La propriété FillColor vous permet de spécifier la couleur dans les zones et des cercles dessinés sur les rapports avec les méthodes Line et Circle. Vous pouvez également utiliser cette propriété avec Visual Basic pour créer des effets visuels spéciaux sur des rapports personnalisés lorsque vous imprimez à l’aide d’une imprimante couleur ou que vous affichez un aperçu des rapports sur un moniteur de couleurs. Long (en lecture/écriture).
Syntaxe
expression. FillColor
Expression Variable qui représente un objet Report .
Remarques
Vous pouvez définir cette propriété uniquement dans une procédure événementielle spécifiée par la propriété d'événement OnPrint d'une section.
L'exemple suivant utilise la méthode Circle Dessine un cercle et créer un secteur d'un cercle. Il utilise ensuite les propriétés FillColor et FillStyle pour colorer le secteur en rouge. Il dessine également une ligne de l’angle supérieur gauche au centre du cercle.
Utilisez les fonctions RVB ou QBColor pour définir cette propriété. Le paramètre de la propriété FillColor possède un type de données de type Long.
Exemple
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
Dim sngVCtr As Single
Dim sngRadius As Single
Dim sngStart As Single
Dim sngEnd As Single
sngHCtr = Me.ScaleWidth / 2 ' Horizontal center.
sngVCtr = Me.ScaleHeight / 2 ' Vertical center.
sngRadius = Me.ScaleHeight / 3 ' Circle radius.
Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle.
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
' Draw line to center of circle.
Dim intColor As Integer
Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single
Me.ScaleMode = 3 ' Set scale to pixels.
sngTop = Me.ScaleTop ' Top inside edge.
sngLeft = Me.ScaleLeft ' Left inside edge.
sngWidth = Me.ScaleWidth / 2 ' Width inside edge.
sngHeight = Me.ScaleHeight / 2 ' Height inside edge.
intColor = RGB(255, 0, 0) ' Make color red.
' Draw line.
Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour