Bing Imagery

This sample demonstrates using the ESRI.ArcGIS.Client.Toolkit.Bing TileLayer to display map imagery from Microsoft's Bing services. Click on the radio buttons to change the various Bing map styles to different enumerations (like: Road, Aerial and ArielWithLabels).

XAML

<UserControl x:Class="ArcGISWPFSDK.BingImagery"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
    xmlns:esri="http://schemas.esri.com/arcgis/client/2009"
    xmlns:bing="clr-namespace:ESRI.ArcGIS.Client.Bing;assembly=ESRI.ArcGIS.Client.Bing">
    <Grid x:Name="LayoutRoot">
        <Grid.Resources>
            <Style x:Key="Link_Button" TargetType="Button">
                <Setter Property="Template">
                    <Setter.Value>
                        <ControlTemplate TargetType="Button">
                            <TextBlock TextDecorations="Underline"> 
								<ContentPresenter/>
                            </TextBlock>
                        </ControlTemplate>
                    </Setter.Value>
                </Setter>
                <Setter Property="Foreground" Value="Blue" />
                <Style.Triggers>
                    <Trigger Property="IsMouseOver" Value="true">
                        <Setter Property="Foreground" Value="Red" />
                    </Trigger>
                </Style.Triggers>
            </Style>
            <LinearGradientBrush x:Key="PanelGradient" 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>
        </Grid.Resources>
        <esri:Map x:Name="MyMap" WrapAround="True" Background="#FFE3E3E3"/>
        <esri:Attribution Layers="{Binding ElementName=MyMap, Path=Layers}" Margin="10" VerticalAlignment="Top" />
        <Grid Name="BingKeyGrid" HorizontalAlignment="Right" VerticalAlignment="Top" Margin="0,15,15,0">
            <Rectangle Stroke="Gray"  RadiusX="10" RadiusY="10" Fill="{StaticResource PanelGradient}" Margin="0,0,0,5" >
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>
            <Rectangle Fill="#DDFFFFFF" Stroke="DarkGray" RadiusX="5" RadiusY="5" Margin="10" />
            <StackPanel Orientation="Vertical" HorizontalAlignment="Center" Margin="20,20,20,20">
                <StackPanel Orientation="Horizontal" HorizontalAlignment="Center" Margin="2" >
                    <TextBlock FontWeight="Bold" HorizontalAlignment="Center" Text="Enter Bing Key" Margin="2" Foreground="Black" />
                    <Button Style="{StaticResource Link_Button}" Margin="2" Content="(Get Bing Key)" Click="Button_Click"/>
                </StackPanel>
                <TextBox x:Name="BingKeyTextBox" Width="250" HorizontalAlignment="Right" Margin="0,2,0,2" 
                        TextChanged="BingKeyTextBox_TextChanged" />
                <TextBlock Name="InvalidBingKeyTextBlock" Text="Invalid Key" Foreground="Red"
                        Margin="0,2,0,2" HorizontalAlignment="Center" Visibility="Collapsed"/>
                <Button Name="LoadMapButton" Content="Load Map" Width="100" Margin="0,5,0,10" IsEnabled="False" 
                        HorizontalAlignment="Center" Click="LoadMapButton_Click" />
            </StackPanel>
        </Grid>
        <Grid Name="LayerStyleGrid" HorizontalAlignment="Right" VerticalAlignment="Top" Margin="10" Visibility="Collapsed" >
            <Rectangle Fill="{StaticResource PanelGradient}" Stroke="Gray"  RadiusX="10" RadiusY="10" Margin="0" >
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>
            <StackPanel Orientation="Horizontal" HorizontalAlignment="Center" Margin="5" >
                <RadioButton x:Name="RoadRadioButton" 
                         Tag="Road" IsChecked="true" Margin="5,0,0,0" Foreground="White"
                         GroupName="Layers" Content="Road" Click="RadioButton_Click"/>
                <RadioButton x:Name="AerialRadioButton" 
                         Tag="Aerial" Margin="5,0,0,0" Foreground="White" 
                         GroupName="Layers" Content="Aerial" Click="RadioButton_Click"/>
                <RadioButton x:Name="AerialWithLabelsRadioButton" 
                         Tag="AerialWithLabels" Margin="5,0,0,0" Foreground="White" 
                         GroupName="Layers" Content="Aerial - Labels" Click="RadioButton_Click"/>
            </StackPanel>
        </Grid>
    </Grid>
</UserControl>

C#

using System.Windows;
using System.Windows.Controls;
using ESRI.ArcGIS.Client.Bing;
using System.Net;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Json;
using System.Diagnostics;

namespace ArcGISWPFSDK
{
    public partial class BingImagery : UserControl
    {
        public BingImagery()
        {
            InitializeComponent();

        }

        private void RadioButton_Click(object sender, RoutedEventArgs e)
        {
            ESRI.ArcGIS.Client.Bing.TileLayer tileLayer = MyMap.Layers["BingLayer"] as TileLayer;
            string layerTypeTag = (string)((RadioButton)sender).Tag;
            TileLayer.LayerType newLayerType = (TileLayer.LayerType)System.Enum.Parse(typeof(TileLayer.LayerType), layerTypeTag, true);
            tileLayer.LayerStyle = newLayerType;
        }

        private void BingKeyTextBox_TextChanged(object sender, TextChangedEventArgs e)
        {
            if ((sender as TextBox).Text.Length >= 64)
                LoadMapButton.IsEnabled = true;
            else
                LoadMapButton.IsEnabled = false;
        }

        private void LoadMapButton_Click(object sender, RoutedEventArgs e)
        {
            WebClient webClient = new WebClient();
            string uri = string.Format("http://dev.virtualearth.net/REST/v1/Imagery/Metadata/Aerial?supressStatus=true&key={0}", BingKeyTextBox.Text);

            webClient.OpenReadCompleted += (s, a) =>
            {
                if (a.Error == null)
                {
                    DataContractJsonSerializer serializer = new DataContractJsonSerializer(typeof(BingAuthentication));
                    BingAuthentication bingAuthentication = serializer.ReadObject(a.Result) as BingAuthentication;
                    a.Result.Close();
                    string authenticationResult = bingAuthentication.AuthenticationResultCode.ToString();

                    if (authenticationResult == "ValidCredentials")
                    {
                        ESRI.ArcGIS.Client.Bing.TileLayer tileLayer = new TileLayer()
                        {
                            ID = "BingLayer",
                            LayerStyle = TileLayer.LayerType.Road,
                            ServerType = ServerType.Production,
                            Token = BingKeyTextBox.Text
                        };

                        MyMap.Layers.Add(tileLayer);

                        BingKeyGrid.Visibility = System.Windows.Visibility.Collapsed;
                        LayerStyleGrid.Visibility = System.Windows.Visibility.Visible;

                        InvalidBingKeyTextBlock.Visibility = System.Windows.Visibility.Collapsed;

                    }
                    else InvalidBingKeyTextBlock.Visibility = System.Windows.Visibility.Visible;
                }
                else InvalidBingKeyTextBlock.Visibility = System.Windows.Visibility.Visible;
            };

            webClient.OpenReadAsync(new System.Uri(uri));
        }

        [DataContract]
        public class BingAuthentication
        {
            [DataMember(Name = "authenticationResultCode")]
            public string AuthenticationResultCode { get; set; }
        }

        private void Button_Click(object sender, RoutedEventArgs e)
        {
            Process.Start("IExplore.exe", "https://www.bingmapsportal.com");
        }
    }
}

VB.NET

Imports System.Windows
Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client.Bing
Imports System.Net
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Json
Imports System.Diagnostics

Namespace ArcGISWPFSDK
    Partial Public Class BingImagery
        Inherits UserControl
        Public Sub New()

            InitializeComponent()
        End Sub

        Private Sub RadioButton_Click(sender As Object, e As RoutedEventArgs)
            Dim tileLayer As ESRI.ArcGIS.Client.Bing.TileLayer = TryCast(MyMap.Layers("BingLayer"), TileLayer)
            Dim layerTypeTag As String = DirectCast(DirectCast(sender, RadioButton).Tag, String)
            Dim newLayerType As TileLayer.LayerType = CType(System.[Enum].Parse(GetType(TileLayer.LayerType), layerTypeTag, True), TileLayer.LayerType)
            tileLayer.LayerStyle = newLayerType
        End Sub

        Private Sub BingKeyTextBox_TextChanged(sender As Object, e As TextChangedEventArgs)
            If TryCast(sender, TextBox).Text.Length >= 64 Then
                LoadMapButton.IsEnabled = True
            Else
                LoadMapButton.IsEnabled = False
            End If
        End Sub

        Private Sub LoadMapButton_Click(sender As Object, e As RoutedEventArgs)
            Dim webClient As New WebClient()
            Dim uri As String = String.Format("http://dev.virtualearth.net/REST/v1/Imagery/Metadata/Aerial?supressStatus=true&key={0}", BingKeyTextBox.Text)

            AddHandler webClient.OpenReadCompleted, Function(s, a)
                                                        If a.[Error] Is Nothing Then
                                                            Dim serializer As New DataContractJsonSerializer(GetType(BingAuthentication))
                                                            Dim bingAuthentication As BingAuthentication = TryCast(serializer.ReadObject(a.Result), BingAuthentication)
                                                            a.Result.Close()
                                                            Dim authenticationResult As String = bingAuthentication.AuthenticationResultCode.ToString()

                                                            If authenticationResult = "ValidCredentials" Then
                                                                Dim tileLayer__1 As ESRI.ArcGIS.Client.Bing.TileLayer = New TileLayer() With { _
                                                                 .ID = "BingLayer", _
                                                                 .LayerStyle = TileLayer.LayerType.Road, _
                                                                 .ServerType = ServerType.Production, _
                                                                 .Token = BingKeyTextBox.Text _
                                                                }

                                                                MyMap.Layers.Add(tileLayer__1)

                                                                BingKeyGrid.Visibility = System.Windows.Visibility.Collapsed
                                                                LayerStyleGrid.Visibility = System.Windows.Visibility.Visible


                                                                InvalidBingKeyTextBlock.Visibility = System.Windows.Visibility.Collapsed
                                                            Else
                                                                InvalidBingKeyTextBlock.Visibility = System.Windows.Visibility.Visible
                                                            End If
                                                        Else
                                                            InvalidBingKeyTextBlock.Visibility = System.Windows.Visibility.Visible
                                                        End If

                                                    End Function

            webClient.OpenReadAsync(New System.Uri(uri))
        End Sub

        <DataContract()> _
        Public Class BingAuthentication
            <DataMember(Name:="authenticationResultCode")> _
            Public Property AuthenticationResultCode() As String
                Get
                    Return m_AuthenticationResultCode
                End Get
                Set(value As String)
                    m_AuthenticationResultCode = Value
                End Set
            End Property
            Private m_AuthenticationResultCode As String
        End Class

        Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
            Process.Start("IExplore.exe", "https://www.bingmapsportal.com")
        End Sub
    End Class
End Namespace