Обновляет тематическую раскраску слоя по заданному идентификатору (ID).

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

Themes

Синтаксис:

Visual Basic:

Function SetTheme(ThemeId As Long, Theme As Theme) As Boolean

ThemeId - Id раскраски слоя.

Пример:

'Например, нужно взять первую раскраску из списка раскрасок 
'активного слоя и изменить эту раскраску так, чтобы линия с ID = 21 была расного цвета
Private Sub Command3_Click()     
    
    Dim L As Layer
    Dim Th As Theme
         
    'Получили активный слой
    Set L = MapCtrl1.Map.Layers.Active
         
    'Получаем первую тему в списке тем слоя
    Set Th = L.Themes.GetTheme(L.Themes.ThemeId(0))
         
    'Присваиваем в полученной теме объекту с ID = 21 красный цвет линий
    Th.Parameter(21, eThemeLineColor) = 255
         
    'Сохраняем измененную тему под тем же ID в слое
    L.Themes.SetTheme L.Themes.ThemeId(0), Th
    
End Sub