ecGraph3D - Demo6
- Parallel data sets, custom color shading, transparent horizontal legend.
- Scroll down below the screenshot image to see the VB code that was used to
generate the graph.
The VB code used to generate the above graph...
Public Sub Demo6(ecGraph3D1 As ecGraph3D)
'Parallel data sets, custom color shading, transparent horizontal legend.
Const Rows = 4, Cols = 7
Dim zColors(Rows, Cols) As Long, i As Integer, j As Integer, Color As Long
With ecGraph3D1
Call .Reset 'always start with "Reset"
.ShowAxes = False
Call .AddText("Demo 6. Parallel data sets, custom color shading, transparent horizontal legend.", 50, 2, , , 1)
Call .SimpleColorBand(-2, 3, ecPink, ecMaroon) 'set range and colors for the z-color table
Call .LegendTableStyle(21, 87, "Arial|10", vbBlack, , , 0, True, True)
Call .AddLegendEntry("Red Data", vbRed, vbBlack, 1)
Call .AddLegendEntry("Blue Data", vbBlue, vbBlack, 1)
Call .AddLegendEntry("Green Data", vbGreen, vbBlack, 1)
Call .AddLegendEntry("Yellow Data", vbYellow, vbBlack, 1)
'allocate colors red/blue/green/yellow with shading from light to dark as j (y) increases
For i = 1 To 4
Select Case i
Case 1: Color = vbRed
Case 2: Color = vbBlue
Case 3: Color = vbGreen
Case 4: Color = vbYellow
End Select
For j = 1 To Cols
zColors(i, j) = .DarkenOrLighten(Color, (j - 4) / 6)
Next j
Next i
'add a math function: z = f(x,y) with x and y range and resolution..
Call .AddFunction("4+sin(x)+sin(y)", Rows, 0, 6, Cols, 0, 6)
Call .AddBarColors(zColors)
.BarWidthX = 0.15: .BarWidthY = 0.7
Call .Refresh 'always end with "Refresh"
End With
End Sub
Contents
(ecGraph3D.ocx) Variables
Events Properties Functions Subs
Copyright © 2008, Encore Consulting Pty Ltd