下面的代码可用于在报表实现圆角的矩形/ T- Z# H8 S+ J. X8 e0 ], Y
调用方式：在报表的节的Format事件或页的Page事件中调用! O7 j; O9 Q4 x) C$ z
'Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
; I3 V- Z9 F4 h; d, y* X% y! { ' RoundCornerBox 4000, 6000, 100, 200, 300, Me
9 G# n, K, f, c R6 o 'End Sub
. o# g3 M0 u% E& H2 ~ 原作者：未知' B6 n9 f7 W8 z, A* b3 W
翻译：tmtony(access/Office中国)
" Y7 U' H3 f" G4 L 创建一个新模块，添加如下代码
3 ?, I% [4 K) |( a7 ^9 \ Sub RoundCornerBox( _
9 b# g% F1 p7 ]- ~" O lngWidth As Long, _
$ ~/ b; ~+ n9 g$ ^ N+ C0 L lngHeight As Long, _$ z6 @; x9 B8 X* }3 `2 n- I# g
lngTop As Long, _, C4 ]) L( o) C" K
lngLeft As Long, _& n& B; B+ x7 r5 H6 d) F
lngRadius As Long, _
, x# M! \1 m9 g# b0 b! r! w rptReport As Report)
" ^" a2 k) I% F3 p0 a Dim sngStart As Single
$ Y$ U9 B2 u& f Dim sngEnd As Single
8 S% y% m: I+ _- C; e4 G8 @2 D Dim dblPI As Double
/ w' L, K1 R3 Q0 z6 U dblPI = 3.14159265359( m+ C/ |$ A. c
'左上角0 y& A) E9 Z7 {) Z
sngStart = 2 * dblPI * 0.25 ' Start of pie slice.
" d* W' `. `& p6 q" L sngEnd = 2 * dblPI * 0.5 ' End of pie slice., ^- m6 H' n) w f7 A' m
rptReport.Circle (lngLeft + lngRadius, _8 S) z/ h% ~0 k+ `/ T y. @, ?# z. b
lngTop + lngRadius), _4 g: a3 O' ]0 ?
lngRadius, vbBlue, sngStart, sngEnd8 j- n5 c7 r) o4 c7 A
'上边线条 |
发表于 2012-7-31 22:26:35
