|
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
|
相关文章 
