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

大检查编辑:Access报表中的圆角矩形

以下代码可用于在报表中实现圆角矩形。

调用方法:在报表的节的格式事件或页面的页面事件中调用。

Private Sub Detail_Format(取消为整数，格式化计数为整数)

圆角盒4000，6000，100，200，300，我

末端接头

原作者:不详

翻译:tmtony(access/Office中国)

创建一个新模块，并添加以下代码

子圆角框(_

与...一样长

一样长，一样高

只要不停止，_

英格利夫长，_

lngRadius一样长，_

RPT报告为报告)

Dim sngStart为Single

Dim sngEnd为Single

Dim dblPI为Double

dblPI = 3.14159265359

左上角

sngStart = 2 * dblPI * 0.25 '饼图切片的开始。

sngEnd = 2 * dblPI * 0.5 '饼图切片的结尾。

rptReport。Circle (lngLeft + lngRadius，_

lngTop + lngRadius)，_

lngRadius、vbBlue、sngStart、sngEnd

大字标题