Report.FillStyle-Eigenschaft (Access)

Artikel
04/07/2023

Verwenden Sie die FillStyle-Eigenschaft , um anzugeben, ob ein Kreis oder eine Linie, die mit der Circle- oder Line-Methode in einem Bericht gezeichnet wird, transparent, undurchsichtig oder mit einem Muster gefüllt ist. Ganze Zahl mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Fillstyle

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

HinwBemerkungeneise

Die FillStyleFillStyle-Eigenschaft verwendet die folgenden Einstellungen.

Einstellung	Beschreibung
0	Undurchsichtig
1	(Standardeinstellung) Transparent
2	Horizontale Linie
3	Vertikale Linie
4	Steigende Diagonale
5	Fallende Diagonale
6	Cross
7	Diagonale Kreuzschraffur

Hinweis

Sie können die FillStyle-Eigenschaft in einer Ereignisprozedur festlegen, die durch die OnPrint-Eigenschaftseinstellung eines Abschnitts angegeben wird.

Wenn die FillStyle-Eigenschaft auf 0 festgelegt ist, wird für einen Kreis oder eine Linie die Farbe durch die FillColor-Eigenschaft festgelegt. Wenn die FillStyle-Eigenschaft auf 1 festgelegt ist, ist das Innere des Kreises oder der Linie transparent und hat die Farbe des Berichts.

Um die FillStyle-Eigenschaft verwenden zu können, muss die SpecialEffect-Eigenschaft auf Normal festgelegt werden.

Das folgende Beispiel verwendet die CircleCircle-Methode, um einen Kreis zu zeichnen und im Kreis einen Kreissektor zu erstellen. Anschließend werden die Eigenschaften FillColor und FillStyle verwendet, um das Kreissegment rot einzufärben. Außerdem wird eine Linie von links oben zur Mitte des Kreises gezeichnet.

Beispiel

Zum Testen dieses Beispiels in Microsoft Access erstellen Sie einen neuen Bericht. Legen Sie die OnPrintOnPrint-Eigenschaft des Detailbereichs auf [Ereignisprozedur] fest. Geben Sie den folgenden Code in das Modul des Berichts ein, und wechseln Sie dann zur Seitenansicht.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via