Chart.Type = ChartType.Combo; Chart.Width = 800; Chart.Height = 450; Chart.TempDirectory = "temp"; Chart.ChartArea.Label.Text = "Click a point on this chart."; Chart.YAxis.Label.Text = "Numeric Axis"; Chart.XAxis.Label.Text = "Time Axis"; Chart.XAxis.Scale = Scale.Time;
// Demonstrates getting the value of an axis when the chart is clicked. // This method does not use the chart as a control, it's used as a library to generate the image and displaying it on the page is handled in manually.
// IMPORTANT NOTES: // 1. Chart must be generated in order to use GetValueAt_ methods. // 2. The chart must be in an image tag with ISMAP in the tag. // 3. If the chart area size changes between the chart that was clicked and the one that is generated in order to get the axis values, the results will be inaccurate.
// Add the random data. SeriesCollection sc = getRandomData(); Chart.SeriesCollection.Add(sc);
// IMPORTANT: In order for the Axis.GetValueAt_ Methods to work, the chart must be generated first. // Generate the chart. Bitmap bp = Chart.GetChartBitmap();
// Process chart clicks and create zoom chart area. if(Page.Request.QueryString.Count > 0) { string query = Page.Request.QueryString[0]; if (query.IndexOf("?") > -1) query = query.Substring(query.LastIndexOf("?")+1);
// From the query string, get the values of the axes where clicked. Object xval = Chart.XAxis.GetValueAtX(query); Object yval = Chart.YAxis.GetValueAtY(query);
clickLabel.Text = "<BR>X Axis Value = " + xval + "<BR>Y Axis Value = " + yval;
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(1); DateTime dt = new DateTime(2006,1,1); for(int a = 1; a < 2; a++) { Series s = new Series(); s.Name = "Series " + a; for(int b = 1; b < 201; b++) { Element e = new Element(); e.YValue = myR.Next(20)+20; s.Elements.Add(e); e.XDateTime = dt = dt.AddDays(1);
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim Chart As Chart = New Chart()
Chart.Type = ChartType.Combo Chart.Width = 800 Chart.Height = 450 Chart.TempDirectory = "temp" Chart.ChartArea.Label.Text = "Click a point on this chart." Chart.YAxis.Label.Text = "Numeric Axis" Chart.XAxis.Label.Text = "Time Axis" Chart.XAxis.Scale = Scale.Time
' Demonstrates getting the value of an axis when the chart is clicked. ' This method does not use the chart as a control, it's used as a library to generate the image and displaying it on the page is handled in manually.
' IMPORTANT NOTES: ' 1. Chart must be generated in order to use GetValueAt_ methods. ' 2. The chart must be in an image tag with ISMAP in the tag. ' 3. If the chart area size changes between the chart that was clicked and the one that is generated in order to get the axis values, the results will be inaccurate.
' Add the random data. Dim sc As SeriesCollection = getRandomData() Chart.SeriesCollection.Add(sc)
' IMPORTANT: In order for the Axis.GetValueAt_ Methods to work, the chart must be generated first. ' Generate the chart. Dim bp As Bitmap = Chart.GetChartBitmap()
' Process chart clicks and create zoom chart area. If Page.Request.QueryString.Count > 0 Then Dim query As String = Page.Request.QueryString(0) If query.IndexOf("?") > -1 Then query = query.Substring(query.LastIndexOf("?")+1) End If
' From the query string, get the values of the axes where clicked. Dim xval As Object = Chart.XAxis.GetValueAtX(query) Dim yval As Object = Chart.YAxis.GetValueAtY(query)
clickLabel.Text = "<BR>X Axis Value = " & xval & "<BR>Y Axis Value = " & yval
' Add axis markers at click positions. If Not xval Is Nothing Then Chart.XAxis.Markers.Add(New AxisMarker("",Color.Orange,CDate(xval))) End If If Not yval Is Nothing Then Chart.YAxis.Markers.Add(New AxisMarker("",Color.Red,CDbl(yval))) End If
' Generate the chart once more to show the axis markers that were added above. bp = Chart.GetChartBitmap() End If
Dim fileName As String = Chart.FileManager.SaveImage(bp) imageLabel.Text = "<img border = 0 src=""" & fileName & """ ISMAP>"
End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random(1) Dim dt As DateTime = New DateTime(2006,1,1) For a As Integer = 1 To 1 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 1 To 200 Dim e As Element = New Element() e.YValue = myR.Next(20)+20 s.Elements.Add(e) dt = dt.AddDays(1) e.XDateTime = dt
Previous