<%@ Page Language="vb" Description="dotnetCHARTING Component" %> <%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Drawing2D" %> <%@ Import Namespace="dotnetCHARTING.Mapping" %> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>.netCHARTING Sample</title> <script runat="server"> ' Demonstrates how to add a legend box for the shapes. Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Chart.Type = ChartType.Map Chart.Size = "1000x483" Chart.Title = " United States Map with Legend Entries" Chart.TempDirectory = "temp" Chart.Debug=True Chart.TitleBox.Position = TitleBoxPosition.Full
Chart.ChartArea.Background = New Background(Color.FromArgb(142,195,236),Color.FromArgb(63,137,200),90) Dim layer As MapLayer = MapDataEngine.LoadLayer("../../images/MapFiles/primusa.shp")
'Set different colors to each state Chart.PaletteName = Palette.Three Dim i As Integer=0 For Each shape As Shape In layer.Shapes If i >= Chart.Palette.Length Then i=0 Chart.PaletteName = Palette.Four End If shape.Background.Color = Chart.Palette(i) Chart.ChartArea.LegendBox.ExtraEntries.Add(New LegendEntry(CStr(shape("STATE_NAME")),"",Chart.Palette(i))) i += 1 Next shape
Previous