Добавляет тематическую раскраску в коллекцию раскрасок слоя и возвращает идентификатор добавленной раскраски.

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

Themes

Синтаксис:

Visual Basic:

Function AddTheme(Theme As Theme) As Long

Theme - добавляемый объект с тематической раскраской.

Пример:

Private Sub Command1_Click()

'Сделать ряд объктов невимдимыми
    Dim theme As Theme
    Dim ID As long
    Set theme = New Theme 
    
    'Присваиваем признак невидимости нескольким объектам
    theme.Parameter(123, eThemeInvisible) = 1
    theme.Parameter(135, eThemeInvisible) = 1
    theme.Parameter(3635, eThemeInvisible) = 1

    'Добавляем тему в слой
    ID = MapCtrl1.Map.Layers.Active.Themes.AddTheme(theme)
    
    'Применяем тему 
    MapCtrl1.Map.Layers.Active.Themes.SetEnabled ID, true            
    
    'теперь объекты ID=123,135,3635 будут невидимы.
 
End Sub