MapWinGIS:ShapeNetwork AmbigShapeIndex

From MapWindow GIS

AmbigShapeIndex

Gets the shape index of an ambiguous shape in the shape network. The first ambiguous shape is at index 0. If there are no ambiguous shapes, AmbigShapeIndex(0) will return -1. If AmbigShapeIndex returns -1 and the index you specified isn't 0, it means there are no more ambiguous shapes in the shape network.

VB.NET Usage

ReadOnly Property AmbigShapeIndex(Index As Integer) As Integer
            Parameters

Sample Code

    Private Sub AmbiguousShape()
        Dim shapenetwork As New MapWinGIS.ShapeNetwork()
        Dim shapeindex As Integer, i As Integer
        'Initialize the shapeindex and i
        shapeindex = 0
        i = 0
        'Get all ambiguous shape indexes in the shape network
        While shapeindex <> -1
            'Get the next ambiguous shapeindex in the shape network
            shapeindex = shapenetwork.AmbigShapeIndex(i)
            'Output the shape index of the ambiguous shape in the shape network
            MsgBox("Ambiguous shape index: " + Str(shapeindex))
            'Increment i
            i = i + 1
        End While
    End Sub
  

VB 6 Usage
ReadOnly Property AmbigShapeIndex(Index As Long) As Long
            Parameters

Sample Code

    Private Sub AmbiguousShape()
        Dim shapenetwork As New MapWinGIS.shapenetwork
        Dim shapeindex As Long, i As Long
        'Initialize the shapeindex and i
        shapeindex = 0
        i = 0
        'Get all ambiguous shape indexes in the shape network
        While shapeindex <> -1
            'Get the next ambiguous shapeindex in the shape network
            shapeindex = shapenetwork.AmbigShapeIndex(i)
            'Output the shape index of the ambiguous shape in the shape network
            MsgBox ("Ambiguous shape index: " + Str(shapeindex))
            'Increment i
            i = i + 1
        Wend
    End Sub