Annotation an = new Annotation("Click the legend entries to toggle series visibility."); an.Position = new Point(500,115); an.DefaultCorner = BoxCorner.Round; an.Label.Width = 80; Chart.Annotations.Add(an);
// *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();
// Add the random data. Chart.SeriesCollection.Add(mySC);
// This will ensure the series always have the same colors based on their name. Chart.SmartPalette = mySC.GetSmartPalette(ChartPalettes.GetPalette(Palette.Default));
// By enumerating the legned entry positions in the box, the custom entry added below can replace the position of the original. int i = 0; foreach(Series s in mySC) { s.LegendEntry.SortOrder = i++; }
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; }
Dim an As Annotation = New Annotation("Click the legend entries to toggle series visibility.") an.Position = New Point(500,115) an.DefaultCorner = BoxCorner.Round an.Label.Width = 80 Chart.Annotations.Add(an)
' *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()
' Add the random data. Chart.SeriesCollection.Add(mySC)
' This will ensure the series always have the same colors based on their name. Chart.SmartPalette = mySC.GetSmartPalette(ChartPalettes.GetPalette(Palette.Default))
' By enumerating the legned entry positions in the box, the custom entry added below can replace the position of the original. Dim i As Integer = 0 For Each s As Series In mySC s.LegendEntry.SortOrder = i i += 1 Next s
Dim query As String = "" If Not Request.QueryString("name") Is Nothing Then query = Request.QueryString("name") For Each s As Series In mySC If s.Name = query AndAlso Request.QueryString("show") Is Nothing Then s.Visible = False Dim le As LegendEntry = New LegendEntry() le.Name = query le.URL = "?name=" & query & "&show=true" le.SortOrder = s.LegendEntry.SortOrder le.Background.Color = Color.FromArgb(1,Color.Transparent) Chart.LegendBox.ExtraEntries.Add(le) Exit For End If Next s End If 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