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

---