发新话题
打印

vml图形解析器

vml图形解析器

请问,哪里有vml图形解析器的源代码可以下载?

TOP

vml图形解析器

<% ';┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ ';┃                               ┃ ';┃ 摘 要: 统计图--曲线图                    ┃ ';┃ 作 者: 翁云兵                        ┃ ';┃ 创建日期:2004年12月01日                  ┃ ';┃ 完成日期:2004年11月03日                  ┃ ';┃                               ┃ ';┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ ';参数含义(数组,横坐标,纵坐标,图表的宽度,图表的高度,图表标题,X轴单位,Y轴单位) function table1(stat_array,table_left,table_top,all_width,all_height,table_title,X_unit,Y_unit) dim bg_color(10) bg_color(1)="#ff1919" bg_color(2)="#ffff19" bg_color(3)="#1919ff" bg_color(4)="#19ff19" bg_color(5)="#fc0" bg_color(6)="#3cc" bg_color(7)="#ff19ff" bg_color(8)="#993300" bg_color(9)="#f60" bg_color(10)="#ff8c19" if X_unit <> "" then X_unit = X_unit end if if Y_unit <> "" then Y_unit = Y_unit end if num1 = ubound(stat_array,1) line_temp=split(stat_array(0,1),",") num2 = ubound(line_temp,1)+1 dim line_code redim line_code(num1,num2) for j=1 to num2 line_code(0,j) = line_temp(j-1) next for i=1 to num1 line_temp = split(stat_array(i,1),",") line_code(i,0) = stat_array(i,2) for j=1 to num2 line_code(i,j) = cdbl(line_temp(j-1)) next next value_Max=0 for i=1 to num1 for j=1 to num2 if value_Max9 then temp=mid(value_Max_str,2,1) if temp>4 then temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+1)*10^(len(value_Max_str)-1) else temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+0.5)*10^(len(value_Max_str)-1) end if else if value_Max>4 then temp2=10 else temp2=5 end if item_hight = temp2/5 item_width = 20000/(num2-1) response.Write "" response.Write " " response.Write "" response.Write "" response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write "
"&table_title&"
" response.Write "
" response.Write "
" response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " for i=1 to num1 if i=1 then displaystr="" else displaystr="none" end if response.Write "
" response.Write " " response.Write " pacity2=';.6'; rotate=';t'; method=';linear sigma'; focus=';100%'; type=';gradient';/>" response.Write " " response.Write " " response.Write " " response.Write "
"&stat_array(i,2)&"
" response.Write "
" response.Write "
" next response.Write " " response.Write " " response.Write " " response.Write "
"&Y_unit&"
" response.Write "
" response.Write " " response.Write "
"&X_unit&"
" response.Write "
" for i=0 to 4 response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " "

TOP

vml图形解析器

response.Write " " response.Write "
"&item_hight*(5-i)&"
" response.Write "
" next response.Write " " response.Write " " response.Write " " for j=0 to num2-1 response.Write " " response.Write " " response.Write " " response.Write " " response.Write "
"&line_code(0,j+1)&"
" response.Write "
" next for i=1 to num1 if i=1 then displaystr="" else displaystr="none" end if response.Write "
" for j=0 to num2-2 this_hight1 = cint(line_code(i,j+1)/(5*item_hight)*10000) this_hight2 = cint(line_code(i,j+2)/(5*item_hight)*10000) response.Write " " response.Write " " response.Write " " next response.Write "
" next response.Write "" end function %> ="urn:schemas-microsoft-comfficeffice"> <% dim total(10,2) total(0,1)="1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月" total(1,1)="200,158,982,0,369,100,595,895,652,25,245,951" total(2,1)="984,58,495,36,158,486,952,258,653,415,485,14" total(3,1)="850,988,958,145,369,745,265,158,856,145,425,352" total(4,1)="600,525,235,485,258,265,158,365,35,148,658,475" total(5,1)="62,525,635,215,0,465,258,305,66,547,54,148" total(6,1)="560,625,645,329,158,665,358,95,120,358,42,253" total(7,1)="950,725,635,435,258,865,458,955,152,845,425,421" total(8,1)="600,825,155,455,458,265,558,365,352,245,853,122" total(9,1)="360,925,215,545,658,465,658,845,400,421,541,125" total(10,1)="50,225,355,655,858,665,758,35,584,214,54,651" total(1,2)="项目1" total(2,2)="项目2" total(3,2)="项目3" total(4,2)="项目4" total(5,2)="项目5" total(6,2)="项目6" total(7,2)="项目7" total(8,2)="项目8" total(9,2)="项目9" total(10,2)="项目10" call table1(total,50,50,700,350,"曲 线 统 计 图","时间","元") %>

TOP

vml图形解析器

源码实例:http://xlcm.anyp.cn/41.aspx

TOP

vml图形解析器

Vml图像画板 蓝丽网 - Vml图像画板.2003.9.12 ine style=';position:absolute;z-index:2000;display:none'; id=';line1';> val>

修改原代码保存为文件最大化视图操作帮助 原作:风云舞,蓝丽程序员
画笔选择

画笔基本参数
笔边粗度
画笔颜色
画笔背景
X Y 坐标
全局工具




TOP

发新话题