Сохраняет свойства объектов коллекции в двумерный массив SafeArray типа Long.

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

NetWorkObjects

Синтаксис:

Visual Basic:

Function SaveToArray()

Описание:

Размерность массива Nx8, где N равно количеству элементов в коллекции (Count).

Свойства элемента коллекции в восьми колонках массива следуют в следующем порядке:

0 - Key

1 - TypeID

2 - ModeId

3 - Tag

4 - SwitchState

5 - KeyBegin

6 - KeyEnd

7 - NeighboursCount

Пример:

Private Sub Command1_Click()

    Dim nw As NetworkObjects

    'Получаем описание сети слоя
    Set nw = MapCtrl1.Map.Layers.Active.NetworkObjects(eNetworkAll)

    Dim v As Variant

    'Сохраняем свойства объектов сети в массив
    v = nw.SaveToArray

    If TypeName(v) = "Long()" Then

        'Распечатываем массив в список
        List1.Clear

        For i = 0 To nw.Count - 1

            List1.AddItem str(v(i, 0)) + "," + str(v(i, 1)) + "," + str(v(i, 2)) + "," + _
                          str(v(i, 3)) + "," + str(v(i, 4)) + "," + str(v(i, 5)) + "," + _
                          str(v(i, 6)) + "," + str(v(i, 7))

        Next i

    End If

End Sub