我考网社区 › 计算机等级考试 › 在Access报表中实现圆角的矩形（2）

会计考友 发表于 2012-7-31 22:26:35

在Access报表中实现圆角的矩形（2）

　　rptReport.Line (lngLeft + lngRadius, lngTop)- _
　　(lngLeft + lngWidth - lngRadius, lngTop)
　　'右上角
　　sngStart = 2 * dblPI * 0.000001
　　sngEnd = 2 * dblPI * 0.25
　　rptReport.Circle (lngLeft + lngWidth - _
　　lngRadius, lngTop + lngRadius), _
　　lngRadius, vbBlue, sngStart, sngEnd
　　'右边线条
　　rptReport.Line (lngLeft + lngWidth, _
　　lngTop + lngRadius)- _
　　(lngLeft + lngWidth, _
　　lngTop + lngHeight - lngRadius)
　　'右下角
　　sngStart = 2 * dblPI * 0.75
　　sngEnd = 2 * dblPI
　　rptReport.Circle (lngLeft + lngWidth - _
　　lngRadius, lngTop + lngHeight - lngRadius), _
　　lngRadius, vbBlue, sngStart, sngEnd
　　rptReport.Line (lngLeft + lngRadius, _
　　lngTop + lngHeight)- _
　　(lngLeft + lngWidth - lngRadius, lngTop + lngHeight)
　　'左下角
　　sngStart = 2 * dblPI * 0.5
　　sngEnd = 2 * dblPI * 0.75
　　rptReport.Circle (lngLeft + lngRadius, _
　　lngTop + lngHeight - lngRadius), _
　　lngRadius, vbBlue, sngStart, sngEnd
　　'右边线
　　rptReport.Line (lngLeft, lngTop + lngRadius)- _
　　(lngLeft, lngTop + lngHeight - lngRadius)
　　End Sub

查看完整版本: 在Access报表中实现圆角的矩形（2）