Сохраняет атрибуты дерева в двумерный массив SafeArray.

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

NetworkTree

Синтаксис:

Visual Basic:

Function SaveToArray()

Описание:

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

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

0 - NodeId

1 - ParentId

2 - SectionId

3 - SectionLength

4 - RootLength

5 - NodeFlag

6 - ParentNodeFlag

7 - SectionFlag

Пример:

Private Sub Command1_Click()

    Dim nw As NetworkTree

    'Получаем дерево кратчайших путей от объекта с ID=82
    Set nw = MapCtrl1.Map.Layers.Active.GetShortWayTree(82)

    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