Table of contents
TOC
折叠目录
展开目录

Report.FillColor 属性 (访问)Report.FillColor Property (Access)

office 365 dev account|上次更新日期: 2018/3/13
|
2 参与人员

您可以使用FillColor属性指定方框和在报表上绘制的线条圆圈方法圆中填充的颜色。此外可以使用Visual Basic使用该属性时使用彩色打印机打印或在彩色监视器中预览报表创建自定义报表上的特殊视觉效果。读/写You use the FillColor property to specify the color that fills in boxes and circles drawn on reports with the Line and Circle methods. You can also use this property withVisual Basicto create special visual effects on custom reports when you print using a color printer or preview the reports on a color monitor. Read/write Long.

语法Syntax

表达式FillColorexpression. FillColor

表达式_一个表示报表对象的变量。_expression A variable that represents a Report object.

注解Remarks

只能在由节的OnPrint事件属性所指定的事件过程中,可以设置该属性。You can set this property only in an event procedure specified by a section's OnPrint event property.

下面的示例使用Circle方法来画一个圆,并创建一个在这个圆中的扇形。然后它使用*圆心*之间属性的饼图扇区颜色变为红色。它还绘制一条从左上方的圆的中心。The following example uses the Circle method to draw a circle and create a pie slice within the circle. Then it uses the FillColor and FillStyle properties to color the pie slice red. It also draws a line from the upper left to the center of the circle.

可以使用RGBQBColor函数来设置该属性。FillColor属性设置都有长时间的数据类型。You can use the RGB or QBColor functions to set this property. The FillColor property setting has a data type of Long.

示例Example

若要试用该示例,在 Microsoft Access 中的,创建新的报表。请将OnPrint属性设为 [事件过程] 主体节。在报表模块中输入下列代码,然后切换到打印预览。To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. Enter the following code in the report's module, 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

另请参阅See also

概念Concepts

报表对象Report Object

© 2018 Microsoft