Возвращает элемент из коллекции по ключу.

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

NetworkObjects

Синтаксис:

Visual Basic:

Function GetItemByKey(ElemID As Long) As NetworkObject

ElemID - ID объекта.

Описание:

В случае, если такого объекта в коллекции не существует, метод вернет Null.

Пример:

Sub NetworkObjects_GetItemByKey
'Задаем константу равное 3. То есть выбираем все объекты сети
Const eNetworkAll = 3
Set L = Zulu.ActiveMapDoc.Layers.Active
'присваиваем переменной nwo коллекцию сети с фильтром по всем объектам
Set nwo = L.NetworkObjects (eNetworkAll)
'присваиваем переменной output объект, имеющий данный ключ
Set output = nwo.GetItemByKey(60)
'Проверяем если переменной output присвоился объект
If output Is Nothing Then
    MsgBox("Объект не найдет")
Else
'Выводим номер типа полученного объекта в отдельное окно для проверки
    MsgBox(output.TypeID)
End if
End Sub