|Chapter 3: VB6 EXE ActiveX Walk-Through|
following information demonstrates how to create your first Visual Basic
v6 / ProEssentials implementation. It discusses installation, adding ProEssentials
to a project, writing your first few lines of code, and shows the final
/ Components... menu
the ProEssentials evaluation and/or product, the setup program installs
the ProEssentials DLL and ActiveX interfaces into the system directory.
These files are:
program also registers the ActiveXs with the operating system, which prepares
Visual Basic for inclusion of ProEssentials components. You can manually
register an ActiveX with "REGSVR32.EXE" found in your system32
or syswow64 on 64 bit systems. You can also use this utility to manually un-register an ActiveX
by using the "-u" command.
installation, launch Visual Basic and create a new "Standard EXE"
Use the Project / Components... menu item
to open the "Components" dialog.
||Adding ProEssentials to a VB project...|
Within the [Components] Dialog, scroll down until you see the Gigasoft
entries and select those shown in the left image. Note that the [Controls]
tab is active.
the [OK] button will close the
[Components] dialog and places
those items selected into Visual Basic's ToolBox as shown.
ProEssentials to a Form...|
Pego1.MainTitle = "Hello World"
Pego1.SubTitle = ""
Pego1.Subsets = 2
Pego1.Points = 6
Pego1.YData(0, 0) = 10
Pego1.YData(0, 1) = 30
Pego1.YData(0, 2) = 20
Pego1.YData(0, 3) = 40
Pego1.YData(0, 4) = 30
Pego1.YData(0, 5) = 50
Pego1.YData(1, 0) = 15
Pego1.YData(1, 1) = 63
Pego1.YData(1, 2) = 74
Pego1.YData(1, 3) = 54
Pego1.YData(1, 4) = 25
Pego1.YData(1, 5) = 34
Pego1.PointLabels(0) = "Jan"
Pego1.PointLabels(1) = "Feb"
Pego1.PointLabels(2) = "Mar"
Pego1.PointLabels(3) = "Apr"
Pego1.PointLabels(4) = "May"
Pego1.PointLabels(5) = "June"
Pego1.SubsetLabels(0) = "For .Net Framework"
Pego1.SubsetLabels(1) = "or MFC, ActiveX, VCL"
Pego1.YAxisLabel = "Simple Quality Rendering"
Pego1.SubsetColors(0) = Pego1.PEargb(60, 0, 180, 0)
Pego1.SubsetColors(1) = Pego1.PEargb(180, 0, 0, 130)
Pego1.BitmapGradientMode = False
Pego1.QuickStyle = PEQS_LIGHT_SHADOW
Pego1.GraphPlusTable = PEGPT_BOTH
Pego1.DataPrecision = PEDP_NODECIMALS
Pego1.LabelBold = True
Pego1.PlottingMethod = GPM_BAR
Pego1.GradientBars = 8
Pego1.BarGlassEffect = True
Pego1.LegendLocation = PELL_LEFT
Pego1.DataShadows = PEDS_3D
Pego1.FontSize = PEFS_LARGE
Pego1.PrepareImages = True
Pego1.CacheBmp = True
Pego1.RenderEngine = PERE_DIRECT2D
Pego1.AntiAliasGraphics = True
Pego1.AntiAliasText = True
Pego1.AllowDataHotSpots = True
Pego1.PEactions = REINITIALIZE_RESETIMAGE
the "Pego" control from the ToolBox
and then click and drag a rectangle selection on Form1's canvas.
ProEssentials Std uses control name "PegoStd".
The adjacent image shows what you see. This
represents the default state of a ProEssentials Graph. The default state
has one subset with four data points. In the course of constructing your
own charts, you'll set the properties Subsets
and Points which define the quantity
of data your chart will hold. You'll then pass data via the YData(subset, point) two dimensional
property array. The following section shows example code of passing data.
Note, if we were constructing a Scientific Graph (Pesgo), we'd also set
uses the terms Subsets and Points but you can think of these as Rows and
Columns. Passing data is as simple as filling each Subset with Points
worth of data.
Use Visual Basic's View / Code menu to open
the Code Window. Then select [Form] from the top left drop-down combo box.
The event combobox on the top right will switch to [Load]. Enter the code as shown. Writing this
small amount of code will improve your
understanding and demonstrate the auto-code completion features supported
two lines set Subsets and Points. These define the amount of
data you'll be passing.
a nested For-Next loop passes random data into the YData(s,
p) property array.
MainTitle and SubTitle
are set. Note that setting SubTitle to an empty string hides the subtitle.
The YAxisLabel and XAxisLabel
are set similarly.
SubsetLabels sets the first subset label. (1) sets the
second subset label.
Next, we set various other properties controlling
PEactions is set to REINITIALIZE_RESETIMAGE
which tells ProEssentials you're done setting properties.
Use Visual Basic's Run / Start Menu (short
cut F5) and you'll see the resulting form to the left. Congratulations,
you've just completed your first Visual Basic / ProEssentials implementation.
This example is very simple and you'll likely
set other properties such as: Width/Height so that the control uses Form1's client
area as needed.
PointLabels which will replace
the "1,2,3..." along x axis.
SubsetLineTypes which controls
SubsetColors which controls line
which controls the type of chart created, Line, Bar, Area, Point, etc.