Software Siglo XXI

Form Code

Imports System.Drawing.Drawing2D
Imports Super2d3dGraphLibrary

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  Dim sf As New SeriesFactory
  sf.AddValue(35)
  sf.AddValue(15)
  sf.AddValue(20)
  sf.AddValue(25)
  sf.AddValue(40)
  sf.AddValue(7)

  With Super2d3dGraph1
    .LicenseeIdentifier = "PROF"
    .Style = STYLE2D3D.STYLE2D_PIE
    .Series = sf.Series
    Dim hb1 As HatchBrush = New HatchBrush(HatchStyle.LightUpwardDiagonal, Color.White)
    Dim hb2 As HatchBrush = New HatchBrush(HatchStyle.LargeGrid, Color.White)
    Dim hb3 As HatchBrush = New HatchBrush(HatchStyle.Cross, Color.White)
    Dim hb4 As HatchBrush = New HatchBrush(HatchStyle.DarkVertical, Color.White)
    Dim hb5 As HatchBrush = New HatchBrush(HatchStyle.DiagonalBrick, Color.White)
    Dim hb6 As HatchBrush = New HatchBrush(HatchStyle.DottedGrid, Color.White)
    .CastShadows = False
    .SeriesFillStyle = New HatchBrush() {hb1, hb2, hb3, hb4, hb5, hb6}
    .ShowLegendInDataTable = False
    .ShowItemsLegend = True
    .ItemsLegend = New String() {"Source 1", "Source 2", "Source 3", "Source 4", "Source 5", "Source 6"}
    .RefreshChart()
  End With

End Sub

End Class


 

Result: