Office XP Charting Examples in asp.net
点击次数：25 次 发布日期：2008-11-27 01:15:41 作者：源代码网
|
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  源代码网供稿. |
