AddItemEx method (ObjectTypes)

Добавляет в структуру слоя новый тип с заданным ID.

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

ObjectTypes

Синтаксис:

Visual Basic:

Function AddItemEx(TypeID As Long, Name As String, GraphType As eObjGraphType) As Long

TypeID - ID типа)

Name - имя типа

GraphType - графический тип:

eSymbol - символьный тип,

ePolyline - линейный отсекающий,

eSimple - не заданный тип,

eSquare - площадной,

eText - тестовый

Описание:

Если параметр TypeID равен -1, то метод присвоит типу ID автоматически, как и метод AddItem.

Метод возвращает ID добавленного типа, если операция прошла успешно, в противном случае метод возвращает -1.

Пример:

'добавить новый символьный тип c ID = 12
Private Sub Command1_Click()
    
    MsgBox MapCtrl1.Map.Layers.Active.ObjectTypes.AddItemEx( 12, "Новый тип", eSymbol )

End Sub

    
'добавить новый линейный тип c ID = 8
Private Sub Command3_Click()
    
    MsgBox MapCtrl1.Map.Layers.Active.ObjectTypes.AddItemEx(8, "Новый тип", ePolyline) 

End Sub