Office XP Charting Examples in asp.net

Office XP Charting Examples in asp.net

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- Office XP Charting Examples in asp.net (http://www.webasp.net/article/6/5374.htm)

-- 作者：未知
-- 发布日期： 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

webasp.net