// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Help File > Getting Started > Data Tutorials // - DataEngine Class in the help file // - Sample: features/DataEngine.aspx
SeriesCollection mySC = getRandomData();
SetupTabs(Chart,mySC);
// Determine which series to add. int seriesIndex = 0; if(Page.Request.Params["seriesIndex"] != null) seriesIndex = int.Parse(Page.Request.Params["seriesIndex"]);
// Color the tab for the series being used. Chart.Annotations[seriesIndex].Background.Color = Color.FromArgb(255,255,145);
// Add the specified series. Chart.SeriesCollection.Add(mySC[seriesIndex]); }
void SetupTabs(Chart c, SeriesCollection sc) { int i = 0; foreach(Series s in sc) { Annotation an = new Annotation(s.Name); an.URL = "?seriesIndex="+i; an.Position = new Point(i++*50+32,5); an.Label.LineAlignment = StringAlignment.Center; c.Annotations.Add(an); } }
SeriesCollection getRandomData() { Random myR = new Random(1); SeriesCollection SC = new SeriesCollection(); for(int a = 1; a < 5; a++) { Series s = new Series("Series " + a.ToString()); for(int b = 1; b < 5; b++) { Element e = new Element("Element " + b.ToString()); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; }
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Help File > Getting Started > Data Tutorials ' - DataEngine Class in the help file ' - Sample: features/DataEngine.aspx
Dim mySC As SeriesCollection = getRandomData()
SetupTabs(Chart,mySC)
' Determine which series to add. Dim seriesIndex As Integer = 0 If Not Page.Request.Params("seriesIndex") Is Nothing Then seriesIndex = Integer.Parse(Page.Request.Params("seriesIndex")) End If
' Color the tab for the series being used. Chart.Annotations(seriesIndex).Background.Color = Color.FromArgb(255,255,145)
' Add the specified series. Chart.SeriesCollection.Add(mySC(seriesIndex)) End Sub
Sub SetupTabs(ByVal c As Chart, ByVal sc As SeriesCollection) Dim i As Integer = 0 For Each s As Series In sc Dim an As Annotation = New Annotation(s.Name) an.URL = "?seriesIndex=" & i an.Position = New Point(i * 50 + 32, 5) i = i + 1 an.Label.LineAlignment = StringAlignment.Center c.Annotations.Add(an) Next s End Sub
Function getRandomData() As SeriesCollection Dim myR As Random = New Random(1) Dim SC As SeriesCollection = New SeriesCollection() For a As Integer = 1 To 4 Dim s As Series = New Series("Series " & a.ToString()) For b As Integer = 1 To 4 Dim e As Element = New Element("Element " & b.ToString()) e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Previous