@Imports ThinkGeo.MapSuite.Core @Imports ThinkGeo.MapSuite.MvcEdition @ModelType ThinkGeo.MapSuite.MvcEdition.Map
@Code With Html.ThinkGeo().Map("Map1", New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage), 510) .MapBackground(New BackgroundLayer(New GeoSolidBrush(GeoColor.FromHtml("#E5E3DF")))) .CurrentExtent(-131.22, 55.05, -54.03, 16.91) .MapUnit(GeographyUnit.DecimalDegree) .CustomOverlays(Sub(overlays) overlays.WorldMapKitWmsWebOverlay("WorldMapKitOverlay") Dim shapeLayer As InMemoryFeatureLayer = New InMemoryFeatureLayer() shapeLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle = PointStyles.CreateSimpleCircleStyle(GeoColor.FromArgb(180, 102, 255, 102), 10, GeoColor.StandardColors.DarkGreen, 1) shapeLayer.ZoomLevelSet.ZoomLevel01.DefaultLineStyle = LineStyles.CreateSimpleLineStyle(GeoColor.StandardColors.Green, 4, True) shapeLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.CreateSimpleAreaStyle(GeoColor.FromArgb(180, 102, 255, 102), GeoColor.StandardColors.DarkGreen, 1) shapeLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 shapeLayer.DrawingQuality = DrawingQuality.HighQuality overlays.LayerOverlay("DynamicOverlay").Layer("shapeLayer", shapeLayer).IsBaseOverlay(False).TileType(TileType.SingleTile) End Sub) .Render() End With End Code