利用MSCHART画图的一段代码

新客网 XKER.COM 2003-04-18 来源： 收藏本文

<!-- Here we are calling the LPK file. This LPK file
was created using the same method explained in the article-->

<object CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"
id="Microsoft_Licensed_Class_Manager_1_0">
<param NAME="LPKPath" VALUE="mschart5.lpk">
</object>


<-- Here is where we are actually "instantiating" the
ActiveX control. I downloaded the file mschart5.cab from
Microsoft's website. It has been digitally signed. -->

<OBJECT ID="MSChart1" WIDTH=100% HEIGHT=95%
CLASSID="CLSID:31291E80-728C-11CF-93D5-0020AF99504A"
codebase="mschart5.cab">
</OBJECT>


<script LANGUAGE="Vbscript">
'Now, let's set the chart properties...!!!

'This sets the chart to a line graph...
MSChart1.ChartType = 3

'Set the color and width of the line
' This sets the pen color to black (0,0,0)
' and width to 50 pixels.
MSChart1.Plot.SeriesCollection(1).Pen.VtColor.Set 0,0,0
MSChart1.Plot.SeriesCollection(1).Pen.Width = 50


'This sets the chart's labels to various formats,
' fonts, and sizes.
For i = 1 To MSChart1.Plot.Axis(1).Labels.Count
'Format the Chart labels to Currency
MSChart1.Plot.Axis(1).Labels(i).Format = "$0,###"

'Set the font to Tahoma
MSChart1.Plot.Axis(1).Labels(i).VtFont.Name = "Tahoma"

'Set the font size to 10pt
MSChart1.Plot.Axis(1).Labels(i).VtFont.Size = 10
Next


'This sets the # of rows in the chart
MSChart1.RowCount = 5;

'This sets the number of columns per row.
MSChart1.ColumnCount = 2

'This indicates to show the label
MSChart1.ShowLegend = True


for x = 1 to 5 'The number of rows we have
'This sets what current row we are editing
MSChart1.Row = x

'This sets the row's label
MSChart1.RowLabel = "Row " & x

'This plots the points for both columns (1 and 2)
'for the current row (x). The value being
'plotted is x*5 and x*10
call MSChart1.DataGrid.SetData(x, 1, x*5,nullFlag)
call MSChart1.DataGrid.SetData(x, 2, x*10,nullFlag)
next

</script>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件