Gallery

Gallery > Maps Charts

Map World Regions

Demonstrates multiple shape grouping.

Download Show C# Code Show VB Code

<%@ Page Language="C#" 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 multiple shape grouping.
void Page_Load(Object sender,EventArgs e)
{
Chart.Type = ChartType.Map;
Chart.Size = "930x524";
//Chart.Title = "World Regions";
Chart.TempDirectory = "temp";
Chart.Debug=true;
Chart.TitleBox.Position = TitleBoxPosition.Full;
Chart.LegendBox.Visible = false;
Chart.ChartArea.Line.Color = Color.Transparent;
MapLayer layer = MapDataEngine.LoadLayer("../../images/MapFiles/world.shp");
Chart.Mapping.DefaultShape.Line.Color = Color.Transparent;

Chart.Mapping.ZoomCenterPoint = new PointF(13, 0);
Chart.Mapping.ZoomPercentage = 101;

dotnetCHARTING.Mapping.Group gr = new dotnetCHARTING.Mapping.Group("REGION", "Europe");
dotnetCHARTING.Mapping.Group gr2 = new dotnetCHARTING.Mapping.Group("REGION", "Asia");
dotnetCHARTING.Mapping.Group gr3 = new dotnetCHARTING.Mapping.Group("REGION", "North America");
dotnetCHARTING.Mapping.Group gr4 = new dotnetCHARTING.Mapping.Group("REGION", "Antarctica");
dotnetCHARTING.Mapping.Group gr5 = new dotnetCHARTING.Mapping.Group("REGION", "Latin America");
dotnetCHARTING.Mapping.Group gr6 = new dotnetCHARTING.Mapping.Group("REGION", "Australia");
dotnetCHARTING.Mapping.Group gr7 = new dotnetCHARTING.Mapping.Group("REGION", "NorthAfrica");
dotnetCHARTING.Mapping.Group gr8 = new dotnetCHARTING.Mapping.Group("REGION", "Sub Saharan Africa");

gr.DefaultShape.Background.Color = Color.FromArgb(245,106,13);
gr2.DefaultShape.Background.Color = Color.FromArgb(254,210,29);
gr3.DefaultShape.Background.Color = Color.FromArgb(126, 177, 27);
gr4.DefaultShape.Background.Color = Color.Transparent;
gr5.DefaultShape.Background.Color = Color.FromArgb(61, 55, 108);
gr6.DefaultShape.Background.Color = Color.FromArgb(50, 96, 182);
gr7.DefaultShape.Background.Color = Color.FromArgb(52,130,114);
gr8.DefaultShape.Background.Color = Color.FromArgb(52, 130, 114);

layer.Groups.Add(gr);
layer.Groups.Add(gr2);
layer.Groups.Add(gr3);
layer.Groups.Add(gr4);
layer.Groups.Add(gr5);
layer.Groups.Add(gr6);
layer.Groups.Add(gr7);
layer.Groups.Add(gr8);
Chart.Mapping.MapLayerCollection.Add(layer);

LegendBox lb = new LegendBox();
lb.ClearColors();
lb.Position = new Point(50, 270);
lb.DefaultEntry.Background.ShadingEffectMode = ShadingEffectMode.One;
LegendEntry le = new LegendEntry("Europe", "", Color.FromArgb(245, 106, 13));
lb.ExtraEntries.Add(new LegendEntry("Europe", "", Color.FromArgb(245, 106, 13)));
lb.ExtraEntries.Add(new LegendEntry("Asia", "", Color.FromArgb(254, 210, 29)));
lb.ExtraEntries.Add(new LegendEntry("North America", "", Color.FromArgb(126, 177, 27)));
lb.ExtraEntries.Add(new LegendEntry("Latin America", "", Color.FromArgb(61, 55, 108)));
lb.ExtraEntries.Add(new LegendEntry("Australia", "", Color.FromArgb(50, 96, 182)));
lb.ExtraEntries.Add(new LegendEntry("Africa", "", Color.FromArgb(52, 130, 114)));
Chart.ExtraLegendBoxes.Add(lb);

}

</script>
</head>
<body>
<div style="text-align:center">
<dotnet:Chart id="Chart" runat="server" >
</dotnet:Chart>
</div>
</body>
</html>

<%@ 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 multiple shape grouping.
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Chart.Type = ChartType.Map
Chart.Size = "930x524"
'Chart.Title = "World Regions";
Chart.TempDirectory = "temp"
Chart.Debug=True
Chart.TitleBox.Position = TitleBoxPosition.Full
Chart.LegendBox.Visible = False
Chart.ChartArea.Line.Color = Color.Transparent
Dim layer As MapLayer = MapDataEngine.LoadLayer("../../images/MapFiles/world.shp")
Chart.Mapping.DefaultShape.Line.Color = Color.Transparent

Chart.Mapping.ZoomCenterPoint = New PointF(13, 0)
Chart.Mapping.ZoomPercentage = 101

Dim gr As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "Europe")
Dim gr2 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "Asia")
Dim gr3 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "North America")
Dim gr4 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "Antarctica")
Dim gr5 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "Latin America")
Dim gr6 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "Australia")
Dim gr7 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "NorthAfrica")
Dim gr8 As dotnetCHARTING.Mapping.Group = New dotnetCHARTING.Mapping.Group("REGION", "Sub Saharan Africa")

gr.DefaultShape.Background.Color = Color.FromArgb(245,106,13)
gr2.DefaultShape.Background.Color = Color.FromArgb(254,210,29)
gr3.DefaultShape.Background.Color = Color.FromArgb(126, 177, 27)
gr4.DefaultShape.Background.Color = Color.Transparent
gr5.DefaultShape.Background.Color = Color.FromArgb(61, 55, 108)
gr6.DefaultShape.Background.Color = Color.FromArgb(50, 96, 182)
gr7.DefaultShape.Background.Color = Color.FromArgb(52,130,114)
gr8.DefaultShape.Background.Color = Color.FromArgb(52, 130, 114)

layer.Groups.Add(gr)
layer.Groups.Add(gr2)
layer.Groups.Add(gr3)
layer.Groups.Add(gr4)
layer.Groups.Add(gr5)
layer.Groups.Add(gr6)
layer.Groups.Add(gr7)
layer.Groups.Add(gr8)
Chart.Mapping.MapLayerCollection.Add(layer)

Dim lb As LegendBox = New LegendBox()
lb.ClearColors()
lb.Position = New Point(50, 270)
lb.DefaultEntry.Background.ShadingEffectMode = ShadingEffectMode.One
Dim le As LegendEntry = New LegendEntry("Europe", "", Color.FromArgb(245, 106, 13))
lb.ExtraEntries.Add(New LegendEntry("Europe", "", Color.FromArgb(245, 106, 13)))
lb.ExtraEntries.Add(New LegendEntry("Asia", "", Color.FromArgb(254, 210, 29)))
lb.ExtraEntries.Add(New LegendEntry("North America", "", Color.FromArgb(126, 177, 27)))
lb.ExtraEntries.Add(New LegendEntry("Latin America", "", Color.FromArgb(61, 55, 108)))
lb.ExtraEntries.Add(New LegendEntry("Australia", "", Color.FromArgb(50, 96, 182)))
lb.ExtraEntries.Add(New LegendEntry("Africa", "", Color.FromArgb(52, 130, 114)))
Chart.ExtraLegendBoxes.Add(lb)

End Sub

</script>
</head>
<body>
<div style="text-align:center">
<dotnet:Chart id="Chart" runat="server" >
</dotnet:Chart>
</div>
</body>
</html>

Sample FilenameMapWorldRegions.aspx
Version5.1
Uses DatabaseNo

JS Charting

Gallery

Map World Regions