// Demonstrates how you can place links anywhere on the chart using annotations.
// First we'll instantiate our annotation. Annotation a = new Annotation();
// Because we just want a text link we'll get rid of the box. You can comment this line out to see what the box looks like. a.ClearColors();
// Set the link text a.Label.Text = ".netCHARTING Website";
// In order to make it look like a link we'll make it blue and underlined. a.Label.Color = Color.Blue; a.Label.Font = new Font("Arial",8,FontStyle.Underline);
// Set the url for our link. a.URL = "http://www.dotnetcharting.com";
// We set a point where the annotation appears a.Position = new Point(40,30);
// By default, the annotation will create a rectangle for the text. In order to place the text on one line we'll // set the dynamic size property to false. a.DynamicSize = false;
// Add the annotation to our chart. Chart.Annotations.Add(a);
// Add the random data. Chart.SeriesCollection.Add(getRandomData());
}
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(); for(int a = 1; a < 5; a++) { Series s = new Series(); s.Name = "Series " + a; for(int b = 1; b < 5; b++) { Element e = new Element(); e.Name = "Element " + b; //e.YValue = -25 + myR.Next(50); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); }
' Demonstrates how you can place links anywhere on the chart using annotations.
' First we'll instantiate our annotation. Dim a As Annotation = New Annotation()
' Because we just want a text link we'll get rid of the box. You can comment this line out to see what the box looks like. a.ClearColors()
' Set the link text a.Label.Text = ".netCHARTING Website"
' In order to make it look like a link we'll make it blue and underlined. a.Label.Color = Color.Blue a.Label.Font = New Font("Arial",8,FontStyle.Underline)
' Set the url for our link. a.URL = "http://www.dotnetcharting.com"
' We set a point where the annotation appears a.Position = New Point(40,30)
' By default, the annotation will create a rectangle for the text. In order to place the text on one line we'll ' set the dynamic size property to false. a.DynamicSize = False
' Add the annotation to our chart. Chart.Annotations.Add(a)
' Add the random data. Chart.SeriesCollection.Add(getRandomData())
End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() For a As Integer = 1 To 4 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 1 To 4 Dim e As Element = New Element() e.Name = "Element " & b 'e.YValue = -25 + myR.Next(50); e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a
Previous