| |
Dim MapResourceItem = New ESRI.ArcGIS.ADF.Web.UI.WebControls.MapResourceItem()
Dim gisResourceItemDefinition As ESRI.ArcGIS.ADF.Web.UI.WebControls.GISResourceItemDefinition = New ESRI.ArcGIS.ADF.Web.UI.WebControls.GISResourceItemDefinition()
'Dim resourceName As String = "TransparentBasemap"
'gisResourceItemDefinition.DataSourceShared = True
gisResourceItemDefinition.DataSourceType = "ArcGIS Server Local"
gisResourceItemDefinition.DataSourceDefinition = "gisapps-2"
gisResourceItemDefinition.ResourceDefinition = "Layers@NewGISWEBSITE/BaseMap_Transparent"
MapResourceItem.Definition = gisResourceItemDefinition
MapResourceItem.Name = "TransparentBasemap"
Dim displaySettings As ESRI.ArcGIS.ADF.Web.DisplaySettings = New ESRI.ArcGIS.ADF.Web.DisplaySettings()
displaySettings.Transparency = 0
displaySettings.Visible = True
displaySettings.ImageDescriptor.ReturnMimeData = True
displaySettings.ImageDescriptor.ImageFormat = ESRI.ArcGIS.ADF.Web.ImageFormat.PNG8
displaySettings.ImageDescriptor.TransparentBackground = True
Dim htmlColor As String = "#fffefefe"
Dim myColor As Color = System.Drawing.ColorTranslator.FromHtml(htmlColor)
displaySettings.ImageDescriptor.TransparentColor = myColor
displaySettings.ImageDescriptor.ReturnMimeData = False
displaySettings.DisplayInTableOfContents = False
displaySettings.EnableDynamicTiling = True
MapResourceItem.DisplaySettings = displaySettings
MapResourceManager.ResourceItems.Insert(4, MapResourceItem)
MapResourceManager.CreateResource(MapResourceItem)
If MapResourceItem.FailedToInitialize Then
Map1.CallbackResults.Add(New CallbackResult(Nothing, "javascript", New Object() {String.Format("alert('{0}')", MapResourceItem.InitializationFailure.Message)}))
ScriptManager1.RegisterDataItem(Page, Map1.CallbackResults.ToString(), False)
End If |