在Access报表中实现圆角的矩形（1）
发布时间：2010/11/23 17:31:41 来源：www.xue.net 编辑：城市总裁吧
下面的代码可用于在报表实现圆角的矩形
调用方式：在报表的节的Format事件或页的Page事件中调用
'Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
' RoundCornerBox 4000, 6000, 100, 200, 300, Me
'End Sub
原作者：未知
翻译：tmtony(access/Office中国)
创建一个新模块，添加如下代码
Sub RoundCornerBox( _
lngWidth As Long, _
lngHeight As Long, _
lngTop As Long, _
lngLeft As Long, _
lngRadius As Long, _
rptReport As Report)
Dim sngStart As Single
Dim sngEnd As Single
Dim dblPI As Double
dblPI = 3.14159265359
'左上角
sngStart = 2 * dblPI * 0.25 ' Start of pie slice.
sngEnd = 2 * dblPI * 0.5 ' End of pie slice.
rptReport.Circle (lngLeft + lngRadius, _
lngTop + lngRadius), _
lngRadius, vbBlue, sngStart, sngEnd
'上边线条
