Function getRandomData() 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 10 Dim e As Element = New Element() e.Name = "E " & b e.YValueStart = 20 + myR.Next(10) e.YValue = e.YValueStart + 10 + b + myR.Next(10) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' Demonstrates Range AreaLine in 2D.
' Set a transparency Chart.DefaultSeries.DefaultElement.Transparency = 20
' Set 3d mode Chart.Use3D = False
' Specify a series type. Chart.DefaultSeries.Type = SeriesType.AreaLine
' Set the x axis label Chart.XAxis.Label.Text="X Axis Label" Chart.XAxis.DefaultTick.GridLine.Color = Color.FromArgb(180, 220, 220, 220)
' Set the y axis label Chart.YAxis.Label.Text="Y Axis Label"
' Set the directory where the images will be stored. Chart.TempDirectory="temp"
' Set the bar shading effect Chart.ShadingEffectMode = ShadingEffectMode.Three
' Set he chart size. Chart.Width = 600 Chart.Height = 350
' Add the random data. Chart.SeriesCollection.Add(getRandomData())
End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml"><head><title>Gallery Sample</title></head> <body> <div style="text-align:center"> <dotnet:Chart id="Chart" runat="server"/> </div> </body> </html>
Previous