Drawing line graph using MSChart control using data from MSFlexgrid

[Mas Juliza Alias]

I have a table (MSFlexgrid1) in a form (frmCalculate) containing 2 columns of Depth and Volume data. I want to draw a line graph of Depth Vs Volume in a new form (frmGraph) by using MSChart control. How can I do this?

[Guido Geurs]

Is it: X= depth Y= volume ?
Y| volume
|
|
|
|_________X depth

or vice versa ?

[Mas Juliza Alias]

Y = Depth
X = Volume

[Mas Juliza Alias]

While I search on web about this matter, I found about drawing graph using FusionChart. I have downloaded it an read through its documentation, but I couldn't find on drawing graph by using data from MSFlexgrid. What is exactly the different of drawing the graph by using FusionChart and MSChart controls? Which one is easier to understand and use?

TQ for your help :)

[Guido Geurs]

Fusion chart is an application to embed in other applications like java, ...
Works with PHP, ASP.NET, JSP, ColdFusion, Python, RoR, simple HTML pages or even PowerPoint Presentations
All the charts can pull data from any database and are AJAX enabled
I think that MSchart is better for Your project because:
- It's standard VB6 and easy to implement in Your program because You only want to show a line and not fancy 3D graphs.
- If You use Fusionchart them the software has to be installed on each computer who wants to run Your program.

Ps: I'm testing MS chart have already results but have to learn how to use it to set titles, axis, ...
How it's work: its very simple: put the data in an array and link the chart with the array.

Attached is what I have for now. (!!! the X axis IS NOT OK !!!!: volume is in the graph to !!!)
I have only to find out how the array must be populated and the graph parameters must be set for an XY graph.

[Mas Juliza Alias]

Thank You for the code :)

However there are several things I want to change on the graph. I went through your code but somehow I am not quite clear on how this MSChart works. How did you declare the grid columns to the graph axes respectively? Which line in the code is for this purpose? These are the things on the graph I wish to change:

- There are 2 lines appear on the graph (red and green). The red line represents depth - storage graph. What is the green line represents? How to get rid of it?
- The Volume values in X axis represented by R1, R2, R3,... How to change them to decimal numbers?
- The first point on the graph is (0,0), but somehow it does not lie on the intersection of the X and Y axes, which means the 0 value of X is not in the same point as 0 value of Y. Is it possible to change that?

TQ for your time...

[Guido Geurs]

You have to define the settings for the chart: (see also attachment)

Private Sub Form_Load()
   With ChartCalc
      .chartType = VtChChartType2dXY
      .Plot.UniformAxis = False
      With .Plot.Axis(VtChAxisIdX)
         .AxisTitle.Text = "Volume"
         .ValueScale.Auto = True '§ Turn on the auto scale
         .ValueScale.Maximum = ARRAYGRAPH(UBound(ARRAYGRAPH), 1) '§ set the max and min.
         .ValueScale.Minimum = ARRAYGRAPH(LBound(ARRAYGRAPH), 1)
      End With
      With .Plot.Axis(VtChAxisIdY)
         .AxisTitle.Text = "Depth"
         .AxisTitle.TextLayout.VertAlignment = VtVerticalAlignmentCenter
         .AxisTitle.TextLayout.Orientation = VtOrientationUp
         .ValueScale.Auto = True
         .ValueScale.Maximum = ARRAYGRAPH(UBound(ARRAYGRAPH), 2)
         .ValueScale.Minimum = ARRAYGRAPH(LBound(ARRAYGRAPH), 2)
      End With
      .ChartData = ARRAYGRAPH
   End With
End Sub

[Mas Juliza Alias]

THANK YOU!!! That works so well! Now I know how to use MSChart control. Thanks to YOU! :)

[Mas Juliza Alias]

Opps... There's one more thing. If the depth start with negative numbers, e.g., -5.000, the X axis values will appear on the middle of the chart grid (see attachment). can we make it be at the bottom of the grid no matter what value of the first depth is?

[Guido Geurs]

Just add in the code the settings for ".intersect ion" =>

      With .Plot.Axis(VtChAxisIdX)
         .AxisTitle.Text = "Volume"
         .ValueScale.Auto = True '§ Turn on the auto scale
         .ValueScale.Maximum = ARRAYGRAPH(UBound(ARRAYGRAPH), 1) '§ set the max and min.
         .ValueScale.Minimum = ARRAYGRAPH(LBound(ARRAYGRAPH), 1)
         .Intersection.Auto = False
         .Intersection.LabelsInsidePlot = False
      End With