WAPlots.CreatePlotVB6

Returns an IPicture object with the specified plot. For VBA/VB6 only.

Syntax

• CreatePlotVB6( PlotType As WAPlotType, Optional UserSettings As WAPlotSettings = Nothing , Optional Width As Integer = 1150, Optional Height As Integer = 800) As Object

Parameters

PlotType: The plot type, specified with the WAPlotType enumeration.

UserSettings: The plot settings, specified as a WAPlotSettings object.

Width: The width, in pixels, of the finished plot.

Height: The height, in pixels, of the finished plot.

Usage Example

 'Create a new WAPlots object. 
 Dim WeibullALTAPlot As New WAPlots
 
 'Declare a WeibullDataSet. See WeibullDataSet. 
 Dim WDS As New WeibullDataSet
 
 'Add values to the raw data. See WeibullDataSet.AddFailure. 
 WDS.AddFailure(1, 1)
 WDS.AddFailure(2, 1)
 WDS.AddFailure(3, 1)
 
 'Calculate the WeibullDataSet. 
 WDS.Calculate
 
 'Add the WeibullDataSet to the WAPlots objects. 
 WeibullALTAPlot.AddDataset(WDS)
 
 'Create the WAPlot.  In this example, it will create a Probability plot. 
 Dim FinalPlot As Bitmap = WeibullALTAPlot.CreatePlotVB6(WAPlotType.Probability)