AddAnnulus Method

Syntax

CWIMAQRegions.AddAnnulus Annulus

Return Type

CWIMAQRegion

The region object that was added.

Purpose

Adds an annulus region to the regions collection.

Remarks

This method makes a copy of the input annulus.

Parameters

Annulus As CWIMAQAnnulus

The annulus to add.

Example

Private Sub Run_Click()
    'Create an annulus
    Dim Annulus As New CWIMAQAnnulus
    Annulus.Initialize 50, 50, 5, 40, 45, 315
    
    'Add the annulus to the viewer's regions collection.
    CWIMAQViewer1.Regions.AddAnnulus Annulus

    If TypeName(Annulus) = "Nothing" Then
    MsgBox "Number of annulus exceeded!"
    Else
    MsgBox "You added an annulus." 
    End If


End Sub

See Also

CWIMAQAnnulus.Initialize

CWIMAQAnnulus.CopyTo