asp结合VML写的柱状图,饼图,折线图(注:asp+VML)
给出部分代码: '画X柱子 dim PolyLine1,PolyLine2 For i = 1.5 To uboundY+1 'step 0.5 xRect = (i-1)*allX\uboundY height1 = -allY * arr(1,int(i)) / arrMax height2 = -allY * arr(2,int(i)) / arrMax 'if int(i)<>i then'画柱子 v1 = arr(1,int(i)) v2 = arr(2,int(i)) call printRect(v1,color1,thickness,height1,-height1,xRect-thickness) call printRect(v2,color2,thickness,height2,-height2,xRect) call printShape(v1,-height1-15,xRect-len(v1)*8) call printShape(v2,-height2-15,xRect+2) 'end if 'printLine j = int(i) if j<ubound(arr2,2)+1 then x1 = xRect y1 = arr2(1,j) * allY \100 call printPointOval(x1,y1,color1) call printShape(arr2(1,j)&"%",y1-20,x1) PolyLine1 = PolyLine1&x1&","&y1&" " y1 = arr2(2,j) * allY \100 call printPointRect(x1,y1,color2) call printShape(arr2(2,j)&"%",y1-20,x1) PolyLine2 = PolyLine2&x1&","&y1&" " end if Next call printPolyLine(PolyLine1,color1) call printPolyLine(PolyLine2,color2)
- 1
- mygoodbuy2017-05-08下载了,不知道为啥不能正常显示
- lovstudy2013-01-10很值得学习的代码,很棒的功能
- 志在必赢2014-12-22很简单的程序,但兼容性似乎差了点
- kingbird5552013-11-24很好,图形很漂亮,谢谢!!
- 粉丝: 165
- 资源: 52
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助