|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的图形一般我们做统计图的时分必要借助组件来完成比方mschart,aspchart等
可是这个类不必要任何组件,并且利用便利
clsGraph.asp
<%
ClassInteliGraph
PublicCopyright,Developer,Name,Version,Web
PublicMaximum,BarWidth,BarColor,Orientation
PrivateItems(),Cnt
PrivateSubClass_Initialize()
Copyright="?2001TicluseTeknologi,Allrightsreserved."
Developer="JamesLindn"
Name="InteliGraph"
Version="1.0"
Web="http://www.intelidev.com"
Cnt=0
EndSub
PublicFunctionAdd(value)
ReDimPreserveItems(Cnt)
Items(Cnt)=value
data=Cnt
Cnt=Cnt+1
Add=data
EndFunction
PublicFunctionBuild()
IfCnt<1ThenExitFunction
IfLen(Orientation)=0OrLCase(Orientation)="horizontal"Then
ForIdx=LBound(Items)ToUBound(Items)
data=data&"<tableheight="&BarWidth&"border=1width="&Maximum&"cellspacing=2>"&vbNewLine
data=data&vbTab&"<tr><tdwidth="&Items(Idx)&"bgcolor="&BarColor&"align=center><fontsize=-4></font></td>"
IfItems(Idx)<MaximumThen
data=data&"<tdwidth="&Maximum-Items(Idx)&"></td>"
EndIf
data=data&"</tr>"&vbNewLine&"</table>"&vbNewLine
Next
ElseIfLCase(Orientation)="vertical"Then
data="<table><tr>"&vbNewLine
ForIdx=LBound(Items)ToUBound(Items)
data=data&"<td><tablewidth="&BarWidth&"border=1height="&Maximum&"cellspacing=2>"&vbNewLine
IfItems(Idx)<MaximumThen
data=data&"<tr><tdheight="&Maximum-Items(Idx)&"></td></tr>"
EndIf
data=data&vbTab&"<tr><tdheight="&Items(Idx)&"bgcolor="&BarColor&"align=center><fontsize=-4></font></td>"
data=data&"</tr>"&vbNewLine&"</table>"&vbNewLine&"</td>"&vbNewLine
Next
data=data&"</tr></table>"&vbNewLine
EndIf
Build=data
EndFunction
EndClass
%>
利用办法
这个类一共有四个属性
BarWidth(图片条的尺寸)
BarColor*(图片条色彩)
Maximum(图片条最年夜长度)
Orientation(偏向)
有两个函数
Add(value)增加图片条到图片中
Build()创建图片
事例:
<!--#includefile=clsGraph.asp-->
<%
PublicConstvert="vertical"
PublicConsthorz="horizontal"
DimGraph
SetGraph=NewInteliGraph
Graph.BarWidth=10
Graph.BarColor="blue"
Graph.Maximum=100
Graph.Orientation=horz
ForIdx=0To100Step25
Graph.Add(Idx)
Next
Response.Write(Graph.Build())
%>
</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|