Report. FillStyle-Eigenschaft (Access)Report.FillStyle property (Access)

Sie können die FillStyle -Eigenschaft verwenden, um anzugeben, ob ein Kreis oder eine Linie, die von der Circle -oder der Linie -Methode in einem Bericht gezeichnet wird, transparent, deckend oder mit einem Muster gefüllt ist.You can use the FillStyle property to specify whether a circle or line drawn by the Circle or Line method on a report is transparent, opaque, or filled with a pattern. Ganze Zahl mit Lese-/Schreibzugriff.Read/write Integer.

SyntaxSyntax

Ausdruck. FillStyleexpression.FillStyle

Ausdruck Eine Variable, die ein Report -Objekt darstellt.expression A variable that represents a Report object.

BemerkungenRemarks

Die FillStyleFillStyle-Eigenschaft verwendet die folgenden Einstellungen.The FillStyle property uses the following settings.

EinstellungSetting BeschreibungDescription
00 UndurchsichtigOpaque
1 1 (Standardeinstellung) Transparent(Default) Transparent
2 2 Horizontale LinieHorizontal Line
3 3 Vertikale LinieVertical Line
4 4 Steigende DiagonaleUpward Diagonal
5 5 Fallende DiagonaleDownward Diagonal
6 6 CrossCross
7 7 Diagonale KreuzschraffurDiagonal Cross

Hinweis

Sie können die FillStyle -Eigenschaft in einer Ereignisprozedur festlegen, die durch die Einstellung der OnPrint-Eigenschaft eines Bereichs angegeben wird. ****You can set the FillStyle property in an event procedure specified by a section's OnPrint property setting.

Wenn die FillStyle -Eigenschaft auf 0 festgelegt ist, hat ein Kreis oder eine Linie die Farbe, die von der FillColor -Eigenschaft festgelegt wird.When the FillStyle property is set to 0, a circle or line has the color set by the FillColor property. Wenn die FillStyle -Eigenschaft auf 1 festgelegt ist, ist das Innere des Kreises oder der Linie transparent und hat die Farbe des Berichts dahinter.When the FillStyle property is set to 1, the interior of the circle or line is transparent and has the color of the report behind it.

Um die FillStyle -Eigenschaft verwenden zu können, muss die SpecialEffect -Eigenschaft auf "Normal" festgelegt sein.To use the FillStyle property, the SpecialEffect property must be set to Normal.

Das folgende Beispiel verwendet die CircleCircle-Methode, um einen Kreis zu zeichnen und im Kreis einen Kreissektor zu erstellen.The following example uses the Circle method to draw a circle and create a pie slice within the circle. Anschließend werden die Eigenschaften FillColor und FillStyle verwendet, um das Kreissegment rot zu färben.It then uses the FillColor and FillStyle properties to color the pie slice red. Außerdem wird eine Linie von der oberen linken zur Mitte des Kreises gezeichnet.It also draws a line from the upper-left to the center of the circle.

BeispielExample

Zum Testen dieses Beispiels in Microsoft Access erstellen Sie einen neuen Bericht.To try this example in Microsoft Access, create a new report. Legen Sie die OnPrintOnPrint-Eigenschaft des Detailbereichs auf [Ereignisprozedur] fest.Set the OnPrint property of the Detail section to [Event Procedure]. Geben Sie den folgenden Code in das Modul des Berichts ein, und wechseln Sie dann zur Seitenansicht.Enter the following code in the report's module, and then switch to Print Preview.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.