下面的代碼可用于在報表實現(xiàn)圓角的矩形

　　調用方式：在報表的節(jié)的Format事件或頁的Page事件中調用

　　'Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

　　' RoundCornerBox 4000, 6000, 100, 200, 300, Me

　　'End Sub

　　原作者：未知

　　翻譯：tmtony(access/Office中國)

　　創(chuàng)建一個新模塊，添加如下代碼

　　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

　　'上邊線條

　　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