AddFreeline Method

Syntax

CWIMAQRegions.AddFreeline Freeline

Return Type

CWIMAQRegion

The region object that was added.

Purpose

Adds a Freeline to the regions collection.

Remarks

This method makes a copy of the input Freeline.

Parameters

Freeline As CWIMAQFreeline

The Freeline to add.

Example

Private Sub Run_Click()
    Dim Brokenline As New CWIMAQBrokenline
    Dim Freeline As New CWIMAQFreeline
    Dim Polygon As New CWIMAQPolygon
    Dim Freeregion As New CWIMAQFreeregion
    
    'Initialize the polylines
    Brokenline.Points.Initialize Array(20, 80, 50, 50, 20, 80), Array(20, 20, 20, 120, 120, 120)
    Freeline.Points.Initialize Array(100, 115, 130, 145, 160), Array(120, 20, 120, 20, 120)
    Polygon.Points.Initialize Array(180, 210, 240, 225, 195), Array(120, 20, 120, 70, 70)
    Freeregion.Points.Initialize Array(300, 310, 300, 280, 270, 260, 260, 270, 280, 300, 310, 320, 320, 310, 320), _
                                 Array(100, 110, 120, 120, 110, 90, 50, 30, 20, 20, 30, 50, 90, 110, 120)
    
    'Add the shapes to the viewer's regions collection.
    CWIMAQViewer1.Regions.AddBrokenline Brokenline
    CWIMAQViewer1.Regions.AddFreeline Freeline
    CWIMAQViewer1.Regions.AddPolygon Polygon
    CWIMAQViewer1.Regions.AddFreeregion Freeregion

    If TypeName(Brokenline) = "Nothing" Then
    MsgBox "Number of broken lines exceeded!"
    Else
    MsgBox "You added a broken line." 
    End If

    If TypeName(Freeline) = "Nothing" Then
    MsgBox "Number of free lines exceeded!"
    Else
    MsgBox "You added a free line." 
    End If

    If TypeName(Polygon) = "Nothing" Then
    MsgBox "Number of polygons exceeded!"
    Else
    MsgBox "You added a polygon." 
    End If

    If TypeName(Freeregion) = "Nothing" Then
    MsgBox "Number of free regions exceeded!"
    Else
    MsgBox "You added a free region."
    End If

End Sub

See Also

CWIMAQBrokenline

CWIMAQPolygon

CWIMAQFreeregion

AddBrokenline

AddPolygon

AddFreeregion