Office XP Charting Examples in asp.net

来源:互联网 发布:sql 外键关联查询 编辑:程序博客网 时间:2024/05/23 05:07
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
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

g/wangzhanyouhua/" title="seo,搜索引擎优化">seover="window.status='正文--Office XP Charting Examples in asp.net';return true">
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>