' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports ESRI.ArcGIS.ADF.Web.DataSources
Imports ESRI.ArcGIS.ADF.Web.Geometry
Namespace TiledMapDataSource_VBNet
  Public Class TileCacheInfo
    Inherits ESRI.ArcGIS.ADF.Web.DataSources.TileCacheInfo

    Private _levels As System.Collections.Generic.Dictionary(Of Integer, Integer)
    Private _layers As System.Collections.Generic.Dictionary(Of String, String)
    Private _url As String
    Private _cacheTileFormat As String

    Public Sub New(ByVal width As Integer, ByVal height As Integer, ByVal dpi As Integer, ByVal origin As Point, ByVal lodInfos As LodInfo())
      MyBase.New(width, height, dpi, origin, lodInfos)
    End Sub
    Public Sub New(ByVal tci As ESRI.ArcGIS.ADF.Web.DataSources.TileCacheInfo)
      MyBase.New(tci.Width, tci.Height, tci.Dpi, tci.Origin, tci.LodInfos)
      _levels = New Dictionary(Of Integer, Integer)()
      _layers = New Dictionary(Of String, String)()
    End Sub

    Public Property Levels() As System.Collections.Generic.Dictionary(Of Integer, Integer)
      Get
        Return _levels
      End Get
      Set
        _levels = Value
      End Set
    End Property

    Public Property Layers() As System.Collections.Generic.Dictionary(Of String, String)
      Get
        Return _layers
      End Get
      Set
        _layers = Value
      End Set
    End Property

    Public Property Url() As String
      Get
        Return _url
      End Get
      Set
        _url = Value
      End Set
    End Property

    Public Property CacheTileFormat() As String
      Get
        Return _cacheTileFormat
      End Get
      Set
        _cacheTileFormat = Value
      End Set
    End Property
  End Class
End Namespace