ChartDirector 6.0 (ASP/COM/VB Edition)

The First Windows Project




This section introduces using ChartDirector in Windows applications. If you are using ChartDirector in ASP, you may refer to The First ASP Project instead.

To get a feeling of using ChartDirector, and to verify the ChartDirector development environment is set up properly, we will begin by building a very simple bar chart.

The following code module comes from the sample VB project "VBChartDemo.vbp" that is included in the ChartDirector installation. The sample VB project contains an "explorer" style user interface for browsing various sample charts, and each sample chart is implemented in a VB class module.

If you have not yet tried the sample programs, it is highly recommended you try them now. Please refer to the Installation section for details. They are very useful for exploring and testing the features of ChartDirector.

[Windows Version (in Visual Basic)] vbdemo\simplebar.cls
Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The data for the bar chart
    Dim data()
    data = Array(85, 156, 179.5, 211, 123)

    ' The labels for the bar chart
    Dim labels()
    labels = Array("Mon", "Tue", "Wed", "Thu", "Fri")

    ' Create a XYChart object of size 250 x 250 pixels
    Dim c As XYChart
    Set c = cd.XYChart(250, 250)

    ' Set the plotarea at (30, 20) and of size 200 x 200 pixels
    Call c.setPlotArea(30, 20, 200, 200)

    ' Add a bar chart layer using the given data
    Call c.addBarLayer(data)

    ' Set the labels on the x axis.
    Call c.xAxis().setLabels(labels)

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

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", "title='{xLabel}: {value} GBytes'")

End Sub

The code is explained below:

Note: The trial version of ChartDirector will include small yellow banners at the bottom of the charts it produces. These banners will disappear in the licensed version of ChartDirector.