NextItem property (Elements)

Возвращает следующий по порядку объект Element.

Применяется к:

Elements

Синтаксис:

Visual Basic:

Property NextItem As Element

read-only

Описание:

Для начала использования этого свойства следует сперва получить свойство FirstItem. Если следующего в коллекции по порядку элемента нет, то в возвращенном объекте Element свойство Key будет равно -1.

В случае неудачи возникает исключение с одним из следующих кодов:

Код

Описание

513

Слой не открыт. Операция проводится со слоем, который либо не загружен в карту, либо не открыт с помощью метода Open.

Пример:

'Посчитаем суммарную длину всех элементов слоя
Private Sub  Command3_Click()

Dim elems As Elements
Dim SumLength As Double
Dim elem As Element
             
'получаем коллекцию всех элементов активного слоя
Set elems = MapCtrl1.Map.Layers.Active.Elements

'получаем первый элемент коллекции
Set elem = el.FirstItem

SumLength = 0
             
If elem <> -1  Then 'Если элемент существует

SumLength = elem.Length
               
Set elem = Nothing
               
Do

'получаем следующий элемент коллекции
 Set elem = el.NextItem
 
'Если элемент не существует выходим из цикла
If one.Key = -1 Then Exit Do 
                 
SumLength = SumLength + elem.Length
                 
Set elem =  Nothing

Loop

End If

'Выводим результат
MsgBox SumLength

End Sub