• Home
 · 
• Graphics
 · 
• Generating Charts using ChartFX Control

Generating Charts using ChartFX Control

Generating Charts using ChartFX Control

Rate Generating Charts using ChartFX Control

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Generating Charts:

'To generate charts using ChartFX control, First you need to install it because It's not a product of Microsoft Inc. You can use it as a third-party component to generate various type of charts 

'Open a standard exe form

'Place a ChartFX control over the form

'Set the chart type property as Bar chart at design time

'Type the code given below

Private sub Form_Load()

Dim arr(9) As Integer
arr(0) = 200
arr(1) = 300
arr(2) = 150
arr(3) = 100
arr(4) = 200
arr(5) = 100
arr(6) = 250
arr(7) = 110
arr(8) = 350


ChartFX1.OpenDataEx COD_VALUES, 2, 9
For x = 0 To 8
ChartFX1.Value(x) = arr(x)
Next x
ChartFX1.CloseData COD_VALUES


ChartFX1.Series(0).Legend = "Demo1"
ChartFX1.Series(1).Legend = "Demo2"
ChartFX1.SerLegBox = True
ChartFX1.SerLegBoxObj.Docked = TGFP_FIXED
ChartFX1.SerLegBoxObj.Left = 60
ChartFX1.SerLegBoxObj.Top = 40
ChartFX1.SerLegBoxObj.BkColor = CHART_TRANSPARENT


For J = 0 To 8
If J = 0 Then
ChartFX1.Axis(AXIS_X).Label(J) = "A"
ElseIf J = 1 Then
ChartFX1.Axis(AXIS_X).Label(J) = "B"
ElseIf J = 2 Then
ChartFX1.Axis(AXIS_X).Label(J) = "C"
ElseIf J = 3 Then
ChartFX1.Axis(AXIS_X).Label(J) = "D"
ElseIf J = 4 Then
ChartFX1.Axis(AXIS_X).Label(J) = "E"
ElseIf J = 5 Then
ChartFX1.Axis(AXIS_X).Label(J) = "F"
ElseIf J = 6 Then
ChartFX1.Axis(AXIS_X).Label(J) = "G"
ElseIf J = 7 Then
ChartFX1.Axis(AXIS_X).Label(J) = "H"
ElseIf J = 8 Then
ChartFX1.Axis(AXIS_X).Label(J) = "I"
End If
Next J


ChartFX1.Title(CHART_BOTTOMTIT) = "Demo Chart"
ChartFX1.Export CHART_BITMAP, "Path where you want to save the Chart Image in BMP format"

End Sub

'Run the application and see the chart. You can modify it according to need of the client.