视窗
loading...
您现在的位置:首页 > IT认证 > 计算机二级考试 >

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


  下面的代码可用于在报表实现圆角的矩形

  调用方式:在报表的节的Format事件或页的Page事件中调用

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

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

  'End Sub

  原作者:未知

  翻译:tmtony(access/Office中国)

  创建一个新模块,添加如下代码

  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

銆€

銆€

銆愬厤璐e0鏄庡拰鐗堟潈璇存槑銆�
鏈珯閮ㄥ垎淇℃伅鏉ユ簮浜庝簰鑱旂綉锛�瀵硅浆杞界殑淇℃伅鎴戜滑鍔涙眰鏍囨槑淇℃伅鐨勫嚭澶勶紝鎴戜滑灏婇噸浣滆€呯殑鐗堟潈钁椾綔鏉冿紝瀵规垜浠浆杞界殑淇℃伅濡傛湁寮傝鎴栨湁渚垫潈鎴栬繚娉曚俊鎭鍙婃椂鑱旂郴鎴戜滑锛屾湰绔欎細绔嬪嵆鍒犻櫎锛�瀵瑰師鍒涘唴瀹规垜浠効鎰忔敮浠橀€傚綋鐨勭ǹ閰紝鑱旂郴鏂瑰紡锛氶偖浠�:webmaster@jscj.com銆€鐢佃瘽锛�4008816886

相关文章

无相关信息
更新时间2022-03-13 10:53:42【至顶部↑】
联系我们 | 邮件: webmaster@jscj.com | 客服热线电话:4008816886(QQ同号) |  娣诲姞瀹㈡湇寰俊

付款方式留言簿投诉中心网站纠错二维码手机版

客服电话: