Chart.TitleBox.Position = TitleBoxPosition.FullWithLegend; Chart2.TitleBox.Position = TitleBoxPosition.FullWithLegend; Chart3.TitleBox.Position = TitleBoxPosition.FullWithLegend; // Demonstrates how using different tick alignments.
// This chart doesnt center tick marks above the label. With time based x axes, this is the accepted way to draw ticks. Chart.XAxis.CenterTickMarks = false;
// To move (un-centered) labels, tick length wont work, instead padding has to be used. Chart.XAxis.TickLabelPadding = 5;
// Only the DefaultTick settings will have an affect when ticks are not centered. Chart.XAxis.DefaultTick.Line.Length = 30;
// The second chart doesnt center tick marks above the label. // The second chart uses a category x axis. This also is the accepted way to draw ticks. Chart2.XAxis.CenterTickMarks = false;
// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Classic samples folder // - Help File > Data Tutorials // - Sample: features/DataEngine.aspx Chart.SeriesCollection.Add(getRandomData()); Chart2.SeriesCollection.Add(getRandomData2()); Chart3.SeriesCollection.Add(getRandomData3());
}
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(); DateTime dt = new DateTime(2005,1,1); for(int a = 1; a < 2; a++) { Series s = new Series(); s.Name = "Series " + a;
for(int b = 1; b < 5; b++) { Element e = new Element(); e.YValue = myR.Next(50); e.XDateTime = dt; dt = dt.AddMonths(1); s.Elements.Add(e); } SC.Add(s); }
return SC; }
SeriesCollection getRandomData2() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random();
for(int a = 1; a < 2; 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 = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; }
SeriesCollection getRandomData3() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random();
for(int a = 1; a < 2; a++) { Series s = new Series(); s.Name = "Series " + a;
for(int b = 1; b < 5; b++) { Element e = new Element(); e.YValue = myR.Next(50); e.XValue = b*2; s.Elements.Add(e); } SC.Add(s); }
Chart.TitleBox.Position = TitleBoxPosition.FullWithLegend Chart2.TitleBox.Position = TitleBoxPosition.FullWithLegend Chart3.TitleBox.Position = TitleBoxPosition.FullWithLegend ' Demonstrates how using different tick alignments.
' This chart doesnt center tick marks above the label. With time based x axes, this is the accepted way to draw ticks. Chart.XAxis.CenterTickMarks = False
' To move (un-centered) labels, tick length wont work, instead padding has to be used. Chart.XAxis.TickLabelPadding = 5
' Only the DefaultTick settings will have an affect when ticks are not centered. Chart.XAxis.DefaultTick.Line.Length = 30
' The second chart doesnt center tick marks above the label. ' The second chart uses a category x axis. This also is the accepted way to draw ticks. Chart2.XAxis.CenterTickMarks = False
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Classic samples folder ' - Help File > Data Tutorials ' - Sample: features/DataEngine.aspx Chart.SeriesCollection.Add(getRandomData()) Chart2.SeriesCollection.Add(getRandomData2()) Chart3.SeriesCollection.Add(getRandomData3())
End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() Dim dt As DateTime = New DateTime(2005,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 4 Dim e As Element = New Element() e.YValue = myR.Next(50) e.XDateTime = dt dt = dt.AddMonths(1) s.Elements.Add(e) Next b SC.Add(s) Next a
Return SC End Function
Function getRandomData2() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random()
For a As Integer = 1 To 1 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 = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Function getRandomData3() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random()
For a As Integer = 1 To 1 Dim s As Series = New Series() s.Name = "Series " & a
For b As Integer = 1 To 4 Dim e As Element = New Element() e.YValue = myR.Next(50) e.XValue = b*2 s.Elements.Add(e) Next b SC.Add(s) Next a
Previous