Software Siglo XXI

Form Code

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

   Dim oGraph As New Super2d3dGraphLibrary.Super2D3dGraph

   ' Get some random values ...
   Dim arrSeries(2) As ArrayList
   For k As Integer = 0 To UBound(arrSeries)
      arrSeries(k) = New ArrayList
      For j As Integer = 0 To 5
         arrSeries(k).Add(Rnd() * 500)
      Next
   Next

   ' Assign properties to Super2d/3dGraphLibrary control ...
   With oGraph
      .AutoRefresh = False ' This prevents unnecessary redraws
      .LicenseeIdentifier = "STAND"
      .Series = arrSeries  ' Assign previous random values
      .Title = "3d Spline Stacked Area" ' Title of the chart
      .Style = _
            Super2d3dGraphLibrary.STYLE2D3D.STYLE3D_SPLINE_STACKED_AREA
      .Width = 500         ' Width of the output bitmap
      .Height = 350        ' Height of the output bitmap
      .ShowValues = False  ' Don't show values over chart
      .BackColor = Drawing.Color.LightGoldenrodYellow
      .BackStyle = _
          Super2d3dGraphLibrary.STYLEBACKGROUND.STYLEBACKGROUND_GRADIENT
      .WallStyle = Super2d3dGraphLibrary.STYLEWALLS.STYLEWALLS_VISIBLE

      .RefreshChart()      ' Draw the chart on internal buffer
   End With

   ' Now, let's output the drawn chart...
   ' Change the response headers to output a JPEG image.
   Response.Clear()
   Response.ContentType = "image/jpeg"

   ' Write the image to the response stream in JPEG format.
   oGraph.Image.Save(Response.OutputStream, _
                     System.Drawing.Imaging.ImageFormat.Jpeg)

   ' Free memory
   oGraph.Dispose()

End Sub

Result: