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

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

ObjectModesObjectModes collection

Синтаксис:

Visual Basic:

Function AddItem(Name As String, Style As ElemStyle) As Boolean

Name - имя типа (режима).

Style - стиль символа.

Описание:

Режим добавляется только в уже имеющийся тип объекта.

Метод возвращает True, если операция прошла успешно, в противном случае метод возвращает False.

Пример:

'добавить новый символьный тип
Private Sub Command1_Click()

    MsgBox MapCtrl1.Map.Layers.Active.ObjectTypes.AddItem("Новый тип", eSymbol)

End Sub 
             
'добавить новый режим в последний созданный тип
Private Sub Command2_Click()
    
    Dim st As ElemStyle
    Set st = New ElemStyle

    st.SymbolID = 11 'ID символа
    st.SymbolSize = 200 'размер символа

    MapCtrl1.Map.Layers.Active.ObjectTypes.GetItemByIndex(MapCtrl1.Map.Layers.Active.ObjectTypes.Count - 1).Modes.AddItem "Новый режим 1", st
             
    'открыть окно редактирования структуры слоя
    MapCtrl1.Map.Layers.Active.EditStructure
             
End Sub
             
'добавить новый линейный тип
Private Sub Command3_Click()

    MsgBox MapCtrl1.Map.Layers.Active.ObjectTypes.AddItem("Новый тип", ePolyline) 

End Sub 

'добавить новый режим в последний созданный тип
Private Sub Command4_Click()
  
    Dim st As ElemStyle
    Set st = New ElemStyle
             
    st.LineColor = RGB (255, 0, 255) 'цвет линии
    st.LineWidth = 3 'ширина линии

    MapCtrl1.Map.Layers.Active.ObjectTypes.GetItemByIndex(MapCtrl1.Map.Layers.Active.ObjectTypes.Count - 1).Modes.AddItem "Новый режим 1", st
             
    'открыть окно редактирования структуры слоя
    MapCtrl1.Map.Layers.Active.EditStructure
             
End Sub