在Access報表中實現(xiàn)圓角的矩形

考試大編輯整理：在Access報表中實現(xiàn)圓角的矩形
    下面的代碼可用于在報表實現(xiàn)圓角的矩形
    調(diào)用方式：在報表的節(jié)的Format事件或頁的Page事件中調(diào)用
    '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
    '上邊線條