Webmap With Charts Online

This sample demonstrates adding data in a WebMap document housed via ArcGIS Online (http://www.arcgis.com) in a WPF application. The WebMap.GetMapAsync Method call takes a Globally Unique Identifier (GUID) for the WebMap service provided by ArcGIS Online to obtain the geographic data layers. The WebMap's GetMapCompletedEventArgs.Map.Layers Property is used to add each layer from the web map to the WPF application for visual display. The map loaded in this sample includes pop-up windows with charts in them for the ArcGISTiledMapServiceLayers. Tap on a feature to open the pop-up window and see the chart. The Document.PopupTemplatesProperty is used to retrieve the DataTemplate for the layer's pop-up window. An InfoWindow is set to use the DataTemplate and the selected graphic to display the appropriate pop-up window, including any charts.

XAML

<UserControl x:Class="ArcGISWPFSDK.WebMapWithCharts"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
             xmlns:esri="http://schemas.esri.com/arcgis/client/2009">
    <Grid x:Name="LayoutRoot" Background="White">
        <esri:Map x:Name="MyMap" MouseClick="MyMap_MouseClick" />
        <esri:InfoWindow x:Name="MyInfoWindow"
                         Padding="2"
                                                
                         Map="{Binding ElementName=MyMap}" >
            <esri:InfoWindow.Background>
                <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
                    <LinearGradientBrush.RelativeTransform>
                        <TransformGroup>
                            <ScaleTransform CenterY="0.5" CenterX="0.5"/>
                            <SkewTransform CenterY="0.5" CenterX="0.5"/>
                            <RotateTransform Angle="176" CenterY="0.5" CenterX="0.5"/>
                            <TranslateTransform/>
                        </TransformGroup>
                    </LinearGradientBrush.RelativeTransform>
                    <GradientStop Color="#FF145787" Offset="0.16"/>
                    <GradientStop Color="#FF3D7FAC" Offset="0.502"/>
                    <GradientStop Color="#FF88C5EF" Offset="0.984"/>
                </LinearGradientBrush>
            </esri:InfoWindow.Background>
        </esri:InfoWindow>
    </Grid>
</UserControl>

C#

using System.Windows;
using System.Windows.Controls;
using System.Windows.Media;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.WebMap;
using ESRI.ArcGIS.Client.Toolkit;
using ESRI.ArcGIS.Client.Symbols;
using ESRI.ArcGIS.Client.Geometry;
using ESRI.ArcGIS.Client.Tasks;
using System.Collections.Generic;

namespace ArcGISWPFSDK
{
    /// <summary>
    /// Interaction logic for WebMapWithCharts.xaml
    /// </summary>
    public partial class WebMapWithCharts : UserControl
    {
        public WebMapWithCharts()
        {
            InitializeComponent();
            
            InfoWindow iw = new InfoWindow();

            Document webMap = new Document();
            webMap.GetMapCompleted += webMap_GetMapCompleted;

            webMap.GetMapAsync("3fafddcb23ee41cf9c597054f0da6bd6");
        }

        void webMap_GetMapCompleted(object sender, GetMapCompletedEventArgs e)
        {
            if (e.Error == null)
            {
                MyMap.Extent = e.Map.Extent;

                LayerCollection layerCollection = new LayerCollection();
                foreach (Layer layer in e.Map.Layers)
                    layerCollection.Add(layer);

                GraphicsLayer selectedGraphics = new GraphicsLayer()
                {
                    RendererTakesPrecedence = false,
                    ID = "MySelectionGraphicsLayer"
                };
                layerCollection.Add(selectedGraphics);

                e.Map.Layers.Clear();
                MyMap.Layers = layerCollection;
            }

        }

        private void MyMap_MouseClick(object sender, ESRI.ArcGIS.Client.Map.MouseEventArgs e)
        {
            GraphicsLayer glayer = MyMap.Layers["MySelectionGraphicsLayer"] as GraphicsLayer;
            glayer.Graphics.Clear();

            MyInfoWindow.IsOpen = false;

            double mapScale = MyMap.Scale;

            ArcGISTiledMapServiceLayer alayer = null;
            DataTemplate dt = null;
            int layid = 0;

            foreach (Layer layer in MyMap.Layers)
            {
                if (layer.GetValue(Document.PopupTemplatesProperty) != null)
                {
                    alayer = layer as ArcGISTiledMapServiceLayer;
                    IDictionary<int, DataTemplate> idict = layer.GetValue(Document.PopupTemplatesProperty) as IDictionary<int, DataTemplate>;

                    foreach (LayerInfo linfo in alayer.Layers)
                    {
                        if (((mapScale > linfo.MaxScale // in scale range
                            && mapScale < linfo.MinScale) ||
                            (linfo.MaxScale == 0.0 // no scale dependency
                            && linfo.MinScale == 0.0) ||
                            (mapScale > linfo.MaxScale // minscale = 0.0 = infinity
                            && linfo.MinScale == 0.0)) &&
                            idict.ContainsKey(linfo.ID)) // id present in dictionary
                        {
                            layid = linfo.ID;
                            dt = idict[linfo.ID];
                            break;
                        }
                    }
                }
            }

            if (dt != null)
            {
                QueryTask qt = new QueryTask(string.Format("{0}/{1}", alayer.Url, layid));
                qt.ExecuteCompleted += (s, qe) =>
                {
                    if (qe.FeatureSet.Features.Count > 0)
                    {
                        Graphic g = qe.FeatureSet.Features[0];
                        MyInfoWindow.Anchor = e.MapPoint;
                        MyInfoWindow.ContentTemplate = dt;
                        MyInfoWindow.Content = g.Attributes;
                        MyInfoWindow.IsOpen = true;

                        SolidColorBrush symbolColor = new SolidColorBrush(Colors.Cyan);

                        if (g.Geometry is Polygon || g.Geometry is Envelope)
                        {
                            g.Symbol = new SimpleFillSymbol()
                            {
                                BorderBrush = symbolColor,
                                BorderThickness = 2
                            };
                        }
                        else if (g.Geometry is Polyline)
                        {
                            g.Symbol = new SimpleLineSymbol()
                            {
                                Color = symbolColor
                            };
                        }
                        else // Point
                        {
                            g.Symbol = new SimpleMarkerSymbol()
                            {
                                Color = symbolColor,
                                Size = 12
                            };
                        }
                        glayer.Graphics.Add(g);
                    }
                };

                ESRI.ArcGIS.Client.Tasks.Query query = new ESRI.ArcGIS.Client.Tasks.Query()
                {
                    Geometry = e.MapPoint,
                    OutSpatialReference = MyMap.SpatialReference,
                    ReturnGeometry = true
                };
                query.OutFields.Add("*");

                qt.ExecuteAsync(query);
            }
        }

    }
}

VB.NET

Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Geometry
Imports ESRI.ArcGIS.Client.Symbols
Imports ESRI.ArcGIS.Client.Tasks
Imports ESRI.ArcGIS.Client.WebMap

Namespace ArcGISWPFSDK
    Partial Public Class WebMapWithCharts
        Inherits UserControl
        Public Sub New()
            InitializeComponent()

            Dim webMap As New Document()
            AddHandler webMap.GetMapCompleted, AddressOf webMap_GetMapCompleted

            webMap.GetMapAsync("3fafddcb23ee41cf9c597054f0da6bd6")
        End Sub

        Private Sub webMap_GetMapCompleted(ByVal sender As Object, ByVal e As GetMapCompletedEventArgs)
            If e.Error Is Nothing Then
                MyMap.Extent = e.Map.Extent

                Dim layerCollection As New LayerCollection()
                For Each layer As Layer In e.Map.Layers
                    layerCollection.Add(layer)
                Next layer

                Dim selectedGraphics As New GraphicsLayer() With {.RendererTakesPrecedence = False, .ID = "MySelectionGraphicsLayer"}
                layerCollection.Add(selectedGraphics)

                e.Map.Layers.Clear()
                MyMap.Layers = layerCollection
            End If
        End Sub

        Private Sub MyMap_MouseClick(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Client.Map.MouseEventArgs)
            Dim glayer As GraphicsLayer = TryCast(MyMap.Layers("MySelectionGraphicsLayer"), GraphicsLayer)
            glayer.Graphics.Clear()

            MyInfoWindow.IsOpen = False

            Dim mapScale As Double = MyMap.Scale

            Dim alayer As ArcGISTiledMapServiceLayer = Nothing
            Dim dt As DataTemplate = Nothing
            Dim layid As Integer = 0

            For Each layer As Layer In MyMap.Layers
                If layer.GetValue(Document.PopupTemplatesProperty) IsNot Nothing Then
                    alayer = TryCast(layer, ArcGISTiledMapServiceLayer)
                    Dim idict As IDictionary(Of Integer, DataTemplate) = TryCast(layer.GetValue(Document.PopupTemplatesProperty), IDictionary(Of Integer, DataTemplate))

                    For Each linfo As LayerInfo In alayer.Layers
                        If ((mapScale > linfo.MaxScale AndAlso mapScale < linfo.MinScale) OrElse (linfo.MaxScale = 0.0 AndAlso linfo.MinScale = 0.0) OrElse (mapScale > linfo.MaxScale AndAlso linfo.MinScale = 0.0)) AndAlso idict.ContainsKey(linfo.ID) Then ' id present in dictionary -  minscale = 0.0 = infinity -  no scale dependency -  in scale range
                            layid = linfo.ID
                            dt = idict(linfo.ID)
                            Exit For
                        End If
                    Next linfo
                End If
            Next layer

            If dt IsNot Nothing Then
                Dim qt As New QueryTask(String.Format("{0}/{1}", alayer.Url, layid))
                AddHandler qt.ExecuteCompleted, Sub(s, qe)
                                                    If qe.FeatureSet.Features.Count > 0 Then
                                                        Dim g As Graphic = qe.FeatureSet.Features(0)
                                                        MyInfoWindow.Anchor = e.MapPoint
                                                        MyInfoWindow.ContentTemplate = dt
                                                        MyInfoWindow.Content = g.Attributes
                                                        MyInfoWindow.IsOpen = True

                                                        Dim symbolColor As New SolidColorBrush(Colors.Cyan)

                                                        If TypeOf g.Geometry Is Polygon OrElse TypeOf g.Geometry Is Envelope Then
                                                            g.Symbol = New SimpleFillSymbol() With {.BorderBrush = symbolColor, .BorderThickness = 2}
                                                        ElseIf TypeOf g.Geometry Is Polyline Then
                                                            g.Symbol = New SimpleLineSymbol() With {.Color = symbolColor}
                                                        Else ' Point
                                                            g.Symbol = New SimpleMarkerSymbol() With {.Color = symbolColor, .Size = 12}
                                                        End If
                                                        glayer.Graphics.Add(g)
                                                    End If
                                                End Sub

                Dim query As New ESRI.ArcGIS.Client.Tasks.Query() With {.Geometry = e.MapPoint, .OutSpatialReference = MyMap.SpatialReference, .ReturnGeometry = True}
                query.OutFields.Add("*")

                qt.ExecuteAsync(query)
            End If
        End Sub


    End Class


End Namespace