' Demonstrates using a palette for a layer and zooming. Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Chart.Type = ChartType.Map Chart.Size = "650x540" 'Chart.Title = "Mapping Sample"; Chart.TempDirectory = "temp" Chart.Debug = True Chart.TitleBox.Position = TitleBoxPosition.Full Chart.LegendBox.Visible = False Dim an As Annotation = New Annotation("Africa") an.Label.Font = New Font("tahoma, geneva, sans-serif", 36, FontStyle.Bold)
an.Position = New Point(70, 380) an.Background.Color = Color.Transparent an.Line.Color = Color.Transparent Chart.Annotations.Add(an) Dim layer As MapLayer = MapDataEngine.LoadLayer("../../images/MapFiles/world.shp") Chart.Mapping.DefaultShape.Line.Color = Color.Gray Chart.Mapping.ZoomCenterPoint = New PointF(3, 18) Chart.Mapping.ZoomPercentage = 351
layer.PaletteName = Palette.FiveColor1 Chart.Mapping.MapLayerCollection.Add(layer) End Sub
Previous