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

rw4HTML5中文学习网 - HTML5先行者学习网
rw4HTML5中文学习网 - HTML5先行者学习网