Возвращает коллекцию ElementKeys, содержащую ключи объектов слоя, входящих в группу.
Visual Basic:
Property ElementKeys As ElementKeys
read-only
Private Sub Command1_Click() Dim i As Long Dim elkeys As ElementKeys 'Получаем коллекцию ключей выделенных элементов активного слоя Set elkeys = MapCtrl1.Map.Layers.Active.Selection.ElementKeys 'Просмотр всех ключей активного слоя, входящих в коллекцию For i = 1 To elkeys.Count MsgBox elkeys.Item(i) Next i End Sub