新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > .Net开发 > Asp.net教程 > 正文:Office XP Charting Examples in asp.net

Office XP Charting Examples in asp.net

新客网 XKER.COM 2003-07-12 来源: 收藏本文
Imports OWC.StimGraph.Helper

  

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


             'Create ChartSpace/Chart

Dim oChartSpace As New OWC10.ChartSpace()

Dim oChart As OWC10.ChChart

Dim oSeries As OWC10.ChSeries

  

'Get a newly created chart from the ChartSpace

oChart = oChartSpace.Charts.Add

  

'Get a newly created series from the Chart

oSeries = oChart.SeriesCollection.Add

  

'Set the Title

oChart.HasTitle = True

oChart.Title.Caption = "Dot Net Charting"

  

'DEMO Hard Coded

Dim aValues() As Double = {1, 2, 4, 8, 16}

Dim aCat() As String = {"A", "B", "C", "D", "E"}

  

'Setup the text on the bottom axis

Call oChart.SetData(OWC10.ChartDimensionsEnum.chDimCategories, -1, GetChartSafeArray(aCat))

  

'Add the data to the series

Call oSeries.SetData(OWC10.ChartDimensionsEnum.chDimValues, -1, GetChartSafeArray(aValues))

  

'*******************************************************************************

'*** Output the Chart

'*******************************************************************************

'Erase any Garbage from Response

Response.Buffer = True

Response.Clear()

  

'Tell Browser to expect a GIF

Response.ContentType = "image/gif"

  

'Send the GIF Binary Data

Response.BinaryWrite(oChartSpace.GetPicture("gif", 300, 300))

  

'Stop

Response.End()

End Sub

收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐