VB6 Animated Charts (With FusionCharts)

Level:
Level2

Introduction

In VB, when it comes to visualizing data in the form of charts, developers seldom think beyond MSChart. The MSChart component may seem adequate, but the fact is - it has some serious limitations. Some of the most significant limitations of MSChart are that it is not interactive, doesn’t support animation and drill-down. So with MSChart, it is only possible to incorporate monotonous static charts in Visual Basic applications. 

In this tutorial, you will be introduced to FusionCharts for VB – a charting component that helps you develop Flash-based animated and interactive charts for VB applications. No knowledge whatsoever of Flash is required to be able to use the component. The only requirement is for Adobe Flash Player 9 plugin to be installed. The plugin is widespread and can be downloaded from here.

Creating Charts for VB Applications

It is extremely easy to implement FusionCharts for VB. We will take a step-by-step approach to first see how to incorporate a chart in a VB application and then set up advanced features like drill-down and saving the chart as an image.

FusionCharts for VB can be downloaded from the FusionCharts Website. To install the component – just double click the setup.exe file and follow the instructions displayed on the dialog box.

So you are all set. Let's get started.

A simple example: Creating a pie chart

1. Create a Visual Basic project.


2. Open the component window using CTRL + T or by selecting the ‘Component’ option from the ‘Project’ menu. Next, select FusionCharts for VB, and then click ‘Apply’ and finally the ‘OK’ button.

 


3. Notice, that a FusionCharts icon has now been added to the toolbox.

 

4. Double click the FusionCharts icon – a chart control will be added to the Form, with a 3D column chart displayed by default.

FusionCharts for VB supports multiple data input methods - from XML string (called dataXML method), XML file (called dataURL method), using individual data input, arrays and from databases too.

Since I said this will be a simple example, we will be taking a look at only the dataXML and Individual Data input method. And we will use the other methods in other examples later on in the tutorial.

5. Add the following three buttons to the Form: 

Control

Name

Caption

Command1

cmdIndividualData

&Individual data

Command2

cmdXMLString

XML &String

Command3

cmdExit

E&xit



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

Private Sub  cmdExit_Click()<br />
    &nbsp;&nbsp;&nbsp; End<br />
    End Sub<br />
    <br />
    Private Sub cmdIndividualData_Click()<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.ChartType = pie3d<br />
    &nbsp;&nbsp; &nbsp;FusionCharts1.Data.setChartParams &quot;caption=Match Score;  xAxisName=Player Name;yAxisName=Score&quot;<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.Data.addChartData &quot;90&quot;,  &quot;label=David&quot;<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.Data.addChartData &quot;70&quot;,  &quot;label=Josh&quot;<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.Data.addChartData &quot;80&quot;,  &quot;label=Brain&quot;<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.RenderChart<br />
    End Sub<br />
    <br />
    Private Sub cmdXMLString_Click()<br />
    &nbsp;&nbsp;&nbsp; Dim XML As String<br />
    &nbsp;&nbsp;&nbsp; XML = &quot;&lt;chart caption='Match Score'  xAxisName='Player Name' yAxisName='Score'&gt;&lt;set value='90' label='David'  /&gt;&lt;set value='70' label='Josh' /&gt;&lt;set value='85' label='Brain'  /&gt;&lt;/chart&gt;&quot;<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.ChartType = pie3d&nbsp;<br />
    &nbsp;&nbsp;&nbsp; FusionCharts1.setDataXML = XML<br />
    End Sub


7. Press F5 to run the project - the following screen will be displayed. The screen doesn’t display a chart as data is yet to be loaded.



8. Click on ‘Using Function’ or ‘XML String’ button – a 3D pie chart will be displayed.


 


Text Box: Explanation of the Code    •	cmdExit_Click(): This function terminates all processes and quits the application.  •	cmdXMLString_Click(): This function creates the XML string and passes it to the chart using the dataXML method.  •	cmdUsingFunction_Click(): This function automatically creates XML for the chart – using the AddChartData API.  •	setChartParams(): This function configures various parameters of the chart such as; caption, X axis name, Y axis name etc.   •	FusionCharts1.ChartType: This property is used for selecting the type of chart which is to be plotted. For the above example ‘FusionCharts1.ChartType’ was set to ‘pie 3d’.  •	RenderChart(): This function performs the task of rendering the chart.

Wowed? Let's try out a different chart type now.

Creating a multi-series column chart using data arrays

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:

Control

Name

Caption

Command1

cmdArrayData

&Using Array

Command2

cmdExit

E&xit

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

Private Sub  cmdArrayData_Click()<br />
  &nbsp;&nbsp; ' Array to store category  names<br />
  &nbsp;&nbsp; Dim arrCatName(0 To 5) As String<br />
  <br />
  &nbsp;&nbsp; ' Array to store datasets  and chart data<br />
  &nbsp;&nbsp; Dim arrDataArray(0 To 1, 0 To 7) As  String<br />
  <br />
  &nbsp;&nbsp; ' Variable to store chart  parameters<br />
  &nbsp;&nbsp; Dim chartParameters As String<br />
  &nbsp;&nbsp; ' Assigning chart  parameters<br />
  &nbsp;&nbsp; chartParameters =  &quot;ShowValues=0;caption=Business Results 2008 v  2007;xAxisName=Month;yAxisName=Revenue;numberPrefix=$&quot;<br />
  <br />
  &nbsp;&nbsp; ' Assigning Category  names<br />
  &nbsp;&nbsp; arrCatName(0) = &quot;Jan&quot;<br />
  &nbsp;&nbsp; arrCatName(1) = &quot;Feb&quot;<br />
  &nbsp;&nbsp; arrCatName(2) = &quot;Mar&quot;<br />
  &nbsp;&nbsp; arrCatName(3) = &quot;Apr&quot;<br />
  &nbsp;&nbsp; arrCatName(4) = &quot;May&quot;<br />
  &nbsp;&nbsp; arrCatName(5) = &quot;Jun&quot;<br />
  <br />
  &nbsp;&nbsp; ' Assigning First Dataset  seriesnames<br />
  &nbsp;&nbsp; arrDataArray(0, 0) = &quot;2008&quot;<br />
  <br />
  &nbsp;&nbsp; ' Assigning Second  Dataset seriesnames<br />
  &nbsp;&nbsp; arrDataArray(1, 0) = &quot;2007&quot;<br />
  <br />
  &nbsp;&nbsp; ' Assigning chart data to  First Dataset<br />
  &nbsp;&nbsp; arrDataArray(0, 2) = &quot;27400&quot;<br />
  &nbsp;&nbsp; arrDataArray(0, 3) = &quot;29800&quot;<br />
  &nbsp;&nbsp; arrDataArray(0, 4) = &quot;25800&quot;<br />
  &nbsp;&nbsp; arrDataArray(0, 5) = &quot;26800&quot;<br />
  &nbsp;&nbsp; arrDataArray(0, 6) = &quot;29600&quot;<br />
  &nbsp;&nbsp; arrDataArray(0, 7) = &quot;32600&quot;<br />
  <br />
  &nbsp;&nbsp; ' Assigning chart data to  Second Dataset<br />
  &nbsp;&nbsp; arrDataArray(1, 2) = &quot;10000&quot;<br />
  &nbsp;&nbsp; arrDataArray(1, 3) = &quot;11500&quot;<br />
  &nbsp;&nbsp; arrDataArray(1, 4) = &quot;12500&quot;<br />
  &nbsp;&nbsp; arrDataArray(1, 5) = &quot;15000&quot;<br />
  &nbsp;&nbsp; arrDataArray(1, 6) = &quot;11000&quot;<br />
  &nbsp;&nbsp; arrDataArray(1, 7) = &quot;9800&quot;<br />
  <br />
  &nbsp;&nbsp; ' Sets chart's parameters<br />
  &nbsp;&nbsp; Call FusionCharts1.Data.setChartParams(chartParameters)<br />
  &nbsp;&nbsp; ' Passing array to the  FusionCharts component<br />
  &nbsp;&nbsp; Call  FusionCharts1.Data.addChartDataFromArray(arrDataArray, arrCatName)<br />
  &nbsp;&nbsp; ' Sets Chart Type<br />
  &nbsp;&nbsp; FusionCharts1.ChartType = mscolumn3d<br />
  &nbsp;&nbsp; ' Calling Chart Rendering  Method<br />
  &nbsp;&nbsp; FusionCharts1.RenderChart<br />
  <br />
  End Sub<br />
  <br />
  Private Sub cmdExit_Click()<br />
  &nbsp;&nbsp;&nbsp; End<br />
End Sub

4. Press F5 to run the code and then click the ‘Using Array’ button to render the chart.

 

 

Creating a combination chart using data drawn from a database

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. Next, add the following controls to the form:

Control

Name

Caption

Command1

cmdDatabase

&Data from Database

Command2

cmdExit

E&xit

Adodc1

Adodc1

 

3. Open the component window using CTRL + T or by selecting the ‘Component’ option from the ‘Project’ menu. Next, select ‘Microsoft ADO Data’, and then click ‘Apply’ and finally click the ‘OK’ button. Once the control is added to the form, drag it out of the visible area of the form – in order to make it invisible to the user.

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

Private Sub  cmdDatabase_Click()<br />
  &nbsp;&nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp;&nbsp; ' Configures ADODC  control<br />
  &nbsp;&nbsp;&nbsp;&nbsp; Adodc1.ConnectionString =  &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; App.Path &amp;  &quot;\FactoryDB.mdb&quot; &amp; &quot;;Persist Security Info=False&quot;<br />
  &nbsp;&nbsp;&nbsp;&nbsp; Adodc1.CommandType = adCmdTable<br />
  &nbsp;&nbsp;&nbsp;&nbsp; Adodc1.RecordSource =  &quot;MSCommon&quot;<br />
  &nbsp;&nbsp;&nbsp;&nbsp; Adodc1.Refresh<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; ' Variable to store chart parameters<br />
  &nbsp;&nbsp;&nbsp; Dim chartParameters As String<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; ' Dataset parameters  array<br />
  &nbsp;&nbsp;&nbsp; Dim arrDatasetParams(0 To 2) As String<br />
  &nbsp;&nbsp;&nbsp; arrDatasetParams(1) =  &quot;renderAs=Area;showValues=0&quot;<br />
  &nbsp;&nbsp;&nbsp; arrDatasetParams(2) =  &quot;renderAs=Line;showValues=0&quot;<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; chartParameters = &quot;showValues=0;caption=Business  Results 2007 v 2008;xAxisName=Month;yAxisName=Revenue;numberPrefix=$&quot;<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; ' Passing Chart's  Parameters<br />
  &nbsp;&nbsp;&nbsp; Call  FusionCharts1.Data.setChartParams(chartParameters)<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; ' Changes Chart Type to  Combination3D<br />
  &nbsp;&nbsp;&nbsp; FusionCharts1.ChartType = mscombi3d<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; ' Sets ADODC recordset  reference and database parameters<br />
  &nbsp;&nbsp;&nbsp; Call  FusionCharts1.Data.addDatasetsFromDatabase(Adodc1.Recordset,  &quot;Months&quot;, &quot;2008;2007;Quantity&quot;, arrDatasetParams)<br />
  &nbsp;&nbsp; &nbsp;<br />
  &nbsp;&nbsp;&nbsp; ' Calls render chart  method<br />
  &nbsp;&nbsp;&nbsp; FusionCharts1.RenderChart<br />
  End Sub<br />
  <br />
  Private Sub cmdExit_Click()<br />
  &nbsp;&nbsp;&nbsp; End<br />
  End Sub

5. Press F5 to run the code and then click the ‘Data from Database’ button – to render the chart.

 

 

 

 

 

 

 

Now that we have explored a number of chart types, we will look at how to improve the functionality of the chart.

Saving chart as image

For this example we’ll build upon the combination chart project itself.

1. Add the following controls to the form.

Control

Name

Caption

Command1

cmdCaptureImage

Capture &Image

Command2

cmdSaveImage

&Save Image

Picture1

Picture1

 

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()<br />
  &nbsp;&nbsp;&nbsp; FusionCharts1.SaveAsImage  (True)<br />
  End Sub<br />
  <br />
  Private Sub  cmdCaptureImage_Click()<br />
  &nbsp;&nbsp;&nbsp; Picture1.Picture  = FusionCharts1.GetPicture<br />
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.

Control

Name

Caption

FusionCharts

FusionCharts1

Capture &Image

FusionCharts

FusionCharts1

&Save Image

CommandButton

cmdExit

E&xit

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

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

If you enjoyed this post, subscribe for updates (it's free)

Fusion chart for VB from csv files

Please could you tell me if there is a tutorial to create a fusion chart from a .csv file?

Also, I have tried to work the tutorial above- creating fusion charts from a database. Would you be able to provide a shot of what the database looks like? I don't know if the code works because I don't have the right database.

Thanks

vb6 USER

VERY GOOD FOR VB6 REPORTING

Query

I am evaluating your trial version of fusion chart please tell me can we increase vertical block in or rows in line2d chart in vb6 if we can, then please guide me .

thanks and regard

HLEP NU

IS NOT GOOD I HAEV PROLBEM

IN C HOTWO CLEAR ARRAY OF BITES,,??,
I DEOSN4T KNOW HOW I CAN CLAER ARAY HOW HOW??

I KNOW I CALL HERE BUT HOW TO GIVE ARRAY EZMPIE,,,???

GOGOGO POST SOLUTOIN88!!!!

I WILL HAVE TO NO??

YEEESSSS

GHOGOGOGOGOG9SSD888!!!!!

Need database file

plz can you send me the FactoryDB.mdb database file . I have no idea how to work with database. thany you!!!!!!!!!! email = lonely550442072@hotmail.com

nice tutorial sir keep it up

nice tutorial sir keep it up thanks for sharing

Technical reviewer for FusionCharts: Beginner’s Guide

If interested in reviewing "FusionCharts: Beginner’s Guide" for Packt Publishing, contact alkan@packtpub.com

Inquiry About OCX

I am very much interested in byuing this great ocx however I like to know if there is a way to embed the Ocx inside my program where it will be built in and no need for distriputig it and installination
Appreciate your feed back
Thanks

send me vb 6 project on my id

hello

send me plz project on vb on my id:vasavadakirtan@gmail.com

microsoft.jet oledb 3.51 connection

can i connect using the service provider microsoft jet oledb 3.51
I am failed to fetch the chart
please help me..

How can we create help file in vb6.0

Sir, Please help for creating help file in vb6.0

Creating a combination chart using data drawn from a database

where is the database? what should the database named FactoryDB.mdb contains?