Office XP Charting Examples in asp.net

asp.net|chart

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