Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Utilisez la propriété FillStyle pour spécifier si un cercle ou une ligne dessiné par la méthode Cercle ou Ligne sur un rapport est transparent, opaque ou rempli d’un motif. Entier en lecture/écriture.
Syntaxe
expression. Style de remplissage
expression Variable qui représente un objet Rapport .
Remarques
La propriété FillStyle utilise les paramètres suivants.
| Setting | Description |
|---|---|
| 0 | Opaque |
| 1 | (Valeur par défaut) Transparent |
| 2 | Ligne horizontale |
| 3 | Trait vertical |
| 4 | Diagonale montante |
| 5 | Diagonale descendante |
| 6 | Croix |
| 7 | Diagonales croisées |
Remarque
[!REMARQUE] Vous pouvez définir la propriété FillStyle dans une procédure événementielle spécifiée par le paramètre de propriété OnPrint d'une section.
Lorsque la propriété FillStyle est définie sur 0, un cercle ou le trait a la couleur définie par la propriété FillColor. Lorsque la propriété FillStyle est définie sur 1, l'intérieur du cercle ou du trait est transparent et prend la couleur de l'état derrière lui.
Pour utiliser la propriété FillStyle, la propriété SpecialEffect doit être définie sur Normal.
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 du haut à gauche au centre du cercle.
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 de l’état, puis passez en 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.