Свойство возвращает значение первого ключа по индексу.

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

ElementKeyPairs

Синтаксис:

Visual Basic:

Property KeyFirst(Index As Long) As Long

read only

Index - индекс.

Пример:

Sub ElementKeyPairs_KeyFirst
'получаем активный слой
Set L = Zulu.ActiveMapDoc.Layers.Active
'Получаем слой, в отношении которого хотим получить кол-во вхождений объектов
Set L2 = Zulu.ActiveMapDoc.Layers.GetItemByUserName("Освещение")	
'получаем коллекцию пар ключей
set keys = L.IntersectByLayer( L2, 1, 0, -1, -1, 0)
'Выводим в сообщение первого ключа по индексу 0
MsgBox(keys.KeyFirst(0))		
End Sub