Visual Basic 6 (VB6)

2. Arrange the form as shown below.

3. Switch to the code view and enter the following code in the code window.

Private Sub cmdSaveImage_Click()
    FusionCharts1.SaveAsImage (True)
End Sub

Private Sub cmdCaptureImage_Click()
    Picture1.Picture = FusionCharts1.GetPicture
End Sub

4. Press F5 to run the application and then click the ‘Data from Database’ button to render the chart.

5. Click the ‘Capture Image’ button the image of the chart will now be displayed in the Picture Box.

6. Next, click the ‘Save’ button, and in the ‘Save As’ dialog box specify the location where you wish to save the image of the chart.

Creating a chart with drilldown functionality

1. Create a new project and add the FusionCharts control to the form (steps 1 - 4 of instructions for creating a single-series chart).

2. Add the following controls to the form.

3. Arrange the form in the following manner.

4. Switch to the code view and enter the following code in the code window.

Private Sub cmdExit_Click()
    End
End Sub

Private Sub SetFirstChart()
    FusionCharts1.ChartType = column3d
    Dim sChartParameters As String
' Setting chart parameters.
    sChartParameters = "caption=Half Yearly Sales Summary;subcaption=For the year 2008 - First Half;xAxisName=Month;yAxisName=Sales; numberPrefix=$"
' Adding data to the chart,
' And at set parameter we are using link attribute with "J-" parameter, which helps us
' to track the click event.
' We are passing single parameter.
    Call FusionCharts1.Data.addChartData("500", "label=Factory 1;link=J-CallFunctionOne-SingleParameter")
' We are passing two parameters separated by comma (,).
    Call FusionCharts1.Data.addChartData("400", "label=Factory 2;link=J-CallFunctionTwo-1st Parameter,2nd Parameter")
' Passing without any parameter.
    Call FusionCharts1.Data.addChartData("350", "label=Factory 3;link=J-CallFunctionThree")
' Finally render the chart.
    Call FusionCharts1.RenderChart
End Sub

Private Sub Form_Load()
' Generates chart data and renders chart.
    Call SetFirstChart
End Sub

Private Sub FusionCharts1_DrillDown(ByVal ActionName As String, ByVal ActionParameter As Variant)
' At ActionName, we will get the value which is given just after J-
' At ActionParameter, we will get the value which is given just after J-ActionName-
' XML String variable
    Dim XML As String
' Applying Select statement with ActionName
    Select Case ActionName
' If ActionName is CallFunctionOne
        Case "CallFunctionOne":
' Creates XML
            XML = "<chart caption='Half Yearly Sales Summary' subcaption='Factory 1' xAxisName='Month' yAxisName='Sales' numberPrefix='$' >"
            XML = XML & "<set label='Jan' value='17400' />"
            XML = XML & "<set label='Feb' value='19800'/>"
            XML = XML & "<set label='Mar' value='21800'/>"
            XML = XML & "<set label='Apr' value='23000'/>"
            XML = XML & "<set label='May' value='29000'/>"
            XML = XML & "<set label='Jun' value='27600'/>"
            XML = XML & "</chart>"
' If ActionName is CallFunctionTwo
        Case "CallFunctionTwo":
' Creates XML
            XML = "<chart caption='Half Yearly Sales Summary' subcaption='Factory 2' xAxisName='Month' yAxisName='Sales' numberPrefix='$' >"
            XML = XML & "<set label='Jan' value='1400' />"
            XML = XML & "<set label='Feb' value='1800' />"
            XML = XML & "<set label='Mar' value='2800' />"
            XML = XML & "<set label='Apr' value='2000' />"
            XML = XML & "<set label='May' value='2000' />"
            XML = XML & "<set label='Jun' value='2600' />"
            XML = XML & "</chart>"
' If ActionName is CallFunctionThree
        Case "CallFunctionThree":
' Creates XML
            XML = "<chart caption='Half Yearly Sales Summary' subcaption='Factory 3' xAxisName='Month' yAxisName='Sales' numberPrefix='$' >"
            XML = XML & "<set label='Jan' value='400' />"
            XML = XML & "<set label='Feb' value='800' />"
            XML = XML & "<set label='Mar' value='800' />"
            XML = XML & "<set label='Apr' value='300' />"
            XML = XML & "<set label='May' value='900' />"
            XML = XML & "<set label='Jun' value='700' />"
            XML = XML & "</chart>"
    End Select
' Changing chart type to column2d
        FusionCharts2.ChartType = column2d
' Providing XML to the chart.
        FusionCharts2.setDataXML = XML
End Sub

The drill down functionality enables a click event on any of the column/bars of the chart to further enhance that data set and display another chart. For this we use a link attribute with J- parameter followed by function name (CallFunction(one/two/three)),  and the necessary function parameters. Now when we drill down into any of the column/bars, it invokes FusionCharts1_DrillDown event. Here we specify the XML for each of the new charts. 

5. Press F5 to run the project and then click ‘XML String’ button to render the chart.

6. Click on any of the columns of the chart – this causes another chart to be displayed in the ‘Detail Report’ window.

In these examples, you have seen how you can easily create exciting charts in VB. The examples demonstrated only few of the features of FusionCharts for VB. Some of the other highlights are:.

 
FusionCharts for VB - Highlights

• Great chart cosmetics, with gradients and 3D lighting.
• About 37 chart types with both 2D and 3D charts.
• Supports custom animation.
• Supports user-end interactivity in the form of tooltips and allows client-side rotation, slicing and scaling of charts.
• Allows advanced drill-down.
• Multiple modes of data configuration, which includes:
• Individual data input

• Data from XML string.
• Data from Array.
• Data from a database.

• Extremely easy to implement.