TransWar File Browser

Path: C:\

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "multidepthpie"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'Number of charts produced in this demo module
Public Function getNoOfCharts() As Integer
    getNoOfCharts = 1
End Function

'Main code for creating chart.
'Note: the argument img is unused because this demo only has 1 chart
Public Sub createChart(viewer As Object, img As String)

    Dim cd As New ChartDirector.API

    ' The data for the pie chart
    Dim data()
    data = Array(72, 18, 15, 12)

    ' The labels for the pie chart
    Dim labels()
    labels = Array("Labor", "Machinery", "Facilities", "Computers")

    ' The depths for the sectors
    Dim depths()
    depths = Array(30, 20, 10, 10)

    ' Create a PieChart object of size 360 x 300 pixels, with a light blue (DDDDFF)
    ' background and a 1 pixel 3D border
    Dim c As PieChart
    Set c = cd.PieChart(360, 300, &Hddddff, -1, 1)

    ' Set the center of the pie at (180, 175) and the radius to 100 pixels
    Call c.setPieSize(180, 175, 100)

    ' Add a title box using 15 pts Times Bold Italic font and blue (AAAAFF) as
    ' background color
    Call c.addTitle("Project Cost Breakdown", "timesbi.ttf", 15).setBackground( _
        &Haaaaff)

    ' Set the pie data and the pie labels
    Call c.setData(data, labels)

    ' Draw the pie in 3D with variable 3D depths
    Call c.set3D2(depths)

    ' Set the start angle to 225 degrees may improve layout when the depths of the
    ' sector are sorted in descending order, because it ensures the tallest sector is
    ' at the back.
    Call c.setStartAngle(225)

    ' Output the chart
    Set viewer.Picture = c.makePicture()

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='{label}: US${value}K ({percent}%)'")

End Sub