How to: Load Image Tiles from Another Source
- 3 minutes to read
This example illustrates how to implement a custom map data provider class inherited from the MapDataProviderBase type. In the example, a custom MapTileSourceBase class is implemented to supply tile URLs from the OpenStreetMap source.
Imports System
Imports System.Globalization
Imports System.Windows
Imports DevExpress.Xpf.Map
Namespace CustomMapDataProviderApp
Partial Public Class MainWindow
Inherits Window
Public Sub New()
InitializeComponent()
imageLayer.DataProvider = New CustomMapDataProvider()
End Sub
End Class
Public Class CustomMapDataProvider
Inherits MapDataProviderBase
Private ReadOnly projection_Renamed As New SphericalMercatorProjection()
Public Overrides ReadOnly Property Projection() As ProjectionBase
Get
Return projection_Renamed
End Get
End Property
Public Sub New()
SetTileSource(New CustomTileSource())
End Sub
Protected Overrides Function CreateObject() As MapDependencyObject
Return New CustomMapDataProvider()
End Function
Public Overrides Function GetMapSizeInPixels(ByVal zoomLevel As Double) As Size
Return New Size(Math.Pow(2.0, zoomLevel) * OpenStreetMapTileSource.tileSize, Math.Pow(2.0, zoomLevel) * OpenStreetMapTileSource.tileSize)
End Function
End Class
Public Class CustomTileSource
Inherits MapTileSourceBase
Private Const roadUrlTemplate As String = "http://{subdomain}.tile.openstreetmap.org/{tileLevel}/{tileX}/{tileY}.png"
Public Const maxZoomLevel As Integer = 20
Public Const tileSize As Integer = 256
Private Shared imageWidth As Integer = CInt((Math.Pow(2.0, maxZoomLevel))) * tileSize
Private Shared imageHeight As Integer = CInt((Math.Pow(2.0, maxZoomLevel))) * tileSize
Private Shared subdomains() As String = { "a", "b", "c" }
Public Sub New()
MyBase.New(imageWidth, imageHeight, tileSize, tileSize)
End Sub
Public Overrides Function GetTileByZoomLevel(ByVal zoomLevel As Integer, ByVal tilePositionX As Long, ByVal tilePositionY As Long) As Uri
Dim url As String = roadUrlTemplate
url = url.Replace("{tileX}", tilePositionX.ToString(CultureInfo.InvariantCulture))
url = url.Replace("{tileY}", tilePositionY.ToString(CultureInfo.InvariantCulture))
url = url.Replace("{tileLevel}", zoomLevel.ToString(CultureInfo.InvariantCulture))
url = url.Replace("{subdomain}", subdomains(GetSubdomainIndex(subdomains.Length)))
Return New Uri(url)
End Function
End Class
End Namespace
See Also