Создает тайловый слой.

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

ZuluTools

Синтаксис:

Visual Basic:

Function TileLayerCreate(Path As String, Def As TileLayerDef) As Boolean

Path - имя слоя (имя файла или URL).

Def - объект с описанием параметров создаваемого слоя.

Описание:

Параметр Path должен содержать полный путь файла для локального слоя или URL для слоя на ZuluServer.

Пример:

Dim Tools As ZuluTools
Dim Def As TileLayerDef

'Создаем объект ZuluTools
Set Tools = New ZuluTools

'Создаем объект TileLayerDef
Set Def = New TileLayerDef

'Задаем параметры описатель для сервера OpenStreetMap
Def.SetCRSCode "EPSG:3857"
Def.SetModel eTileModelOpenStreetMap
Def.SetQueryTemplateString "http://a.tile.openstreetmap.org/"
Def.SetUseCacheFlag  True
'Создаем локальный слой
Tools.TileLayerCreate "d:\Tiles\osm.zww", Def