Возвращает объект Theme для варианта тематической раскраски слоя с указанным идентификатором (ID).

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

Themes

Синтаксис:

Visual Basic:

Function GetTheme(ThemeId As Long) As Theme

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