<script runat="server"> Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) ' Demonstrates different palette settings. For Each name As String In System.Enum.GetNames(GetType(dotnetCHARTING.Palette)) If name="FiveColor1" Then Exit For End If Dim chartObject As dotnetCHARTING.Chart = New dotnetCHARTING.Chart() chartObject.Type = ChartType.Pies chartObject.Title= "Palette Name: " & name chartObject.TempDirectory="temp" chartObject.Debug=True chartObject.ShadingEffect = True chartObject.LegendBox.Template ="%icon %name" chartObject.Size="800X600" chartObject.PaletteName = CType(System.Enum.Parse(GetType(dotnetCHARTING.Palette),name), dotnetCHARTING.Palette) chartObject.SeriesCollection.Add(getRandomData()) Controls.Add(chartObject)
Next name End Sub Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim s As Series = New Series() For b As Integer = 1 To 50 Dim e As Element = New Element() e.Name = "Element " & b.ToString() e.YValue = 3 s.Elements.Add(e) Next b SC.Add(s) Return SC End Function </script> </head> <body style="margin:auto;width:800px;"> </body> </html>
Previous