Bing Routing

This sample demonstrates using the ESRI.ArcGIS.Client.Toolkit.Bing Routing class to perform optimal routing along a highway network between two or more points using Microsoft Bing services. The results of the routing operation are display back both as written travel directions and graphic polylines on the map.

XAML

<UserControl x:Class="ArcGISWPFSDK.BingRouting"
    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>
            <ControlTemplate x:Key="CompositeSymbol">
                <Grid>
                    <Ellipse Fill="{Binding Symbol.Color}" Width="{Binding Symbol.Size}" Height="{Binding Symbol.Size}" Stroke="Black" StrokeThickness="1" />
                    <TextBlock HorizontalAlignment="Center" VerticalAlignment="Center"
                  Text="{Binding Path=Attributes[StopNumber]}"
                  FontSize="9" Margin="0" FontWeight="Bold" Foreground="Black" />
                </Grid>
            </ControlTemplate>
            <esri:SimpleMarkerSymbol x:Key="UserStopSymbol" Size="20" Style="Circle" Color="Salmon" ControlTemplate="{StaticResource CompositeSymbol}" />
            <esri:SimpleMarkerSymbol x:Key="ResultStopSymbol" Size="20" Color="GreenYellow" ControlTemplate="{StaticResource CompositeSymbol}" />
            <esri:SimpleLineSymbol x:Key="RoutePathSymbol" Style="Solid" Width="4" Color="YellowGreen" />
            <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:GraphicsLayer ID="RouteResultsGraphicsLayer" />
            <esri:GraphicsLayer ID="WaypointGraphicsLayer" />
        </esri:Map>
        <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>
        <StackPanel Name="RouteGrid" HorizontalAlignment="Right" VerticalAlignment="Top" MaxWidth="250" Visibility="Collapsed">
            <Grid VerticalAlignment="Top" Margin="10" >
                <Rectangle Fill="{StaticResource PanelGradient}" Stroke="Gray" RadiusX="10" RadiusY="10" Margin="0" >
                    <Rectangle.Effect>
                        <DropShadowEffect/>
                    </Rectangle.Effect>
                </Rectangle>
                <StackPanel Margin="10">
                    <TextBlock Text="Click on map to define waypoints. Click the Solve Route button to generate a route." 
                           TextWrapping="Wrap" Foreground="White" Width="225" />
                    <Button x:Name="RouteButton" Content="Solve Route" Margin="2" Width="100" Height="20" HorizontalAlignment="Center" 
                            Click="RouteButton_Click"/>
                    <Button x:Name="ClearRouteButton" Content="Clear Route" Margin="2" Width="100" Height="20" HorizontalAlignment="Center" 
                            Click="ClearRouteButton_Click" />
                </StackPanel>
            </Grid>
            <Grid x:Name="DirectionsGrid" 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="Vertical" HorizontalAlignment="Left" Margin="5" >
                    <TextBlock x:Name="DirectionsTitleTextBlock" Margin="5,0,0,5" Text="Directions" FontSize="12" Foreground="White" FontWeight="Bold" />
                    <ScrollViewer HorizontalScrollBarVisibility="Auto" VerticalScrollBarVisibility="Auto" MaxWidth="250" MaxHeight="300" >
                        <TextBlock x:Name="DirectionsContentTextBlock" Foreground="White" />
                    </ScrollViewer>
                </StackPanel>
            </Grid>
        </StackPanel>
    </Grid>
</UserControl>

C#

using System.Collections.Generic;
using System.Collections.ObjectModel;
using System.Text;
using System.Text.RegularExpressions;
using System.Windows;
using System.Windows.Controls;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Bing;
using ESRI.ArcGIS.Client.Bing.RouteService;
using ESRI.ArcGIS.Client.Geometry;
using ESRI.ArcGIS.Client.Symbols;
using System.Net;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Json;
using System.Diagnostics;

namespace ArcGISWPFSDK
{
    public partial class BingRouting : UserControl
    {
        private Draw myDrawObject;
        private GraphicsLayer waypointGraphicsLayer;
        private GraphicsLayer routeResultsGraphicsLayer;
        private ESRI.ArcGIS.Client.Bing.Routing routing;
        private static ESRI.ArcGIS.Client.Projection.WebMercator mercator =
             new ESRI.ArcGIS.Client.Projection.WebMercator();

        public BingRouting()
        {
            InitializeComponent();
        }
        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.Insert(0, tileLayer);

                        // Add your Bing Maps key in the constructor for the Routing class. Use http://www.bingmapsportal.com to generate a key.  
                        routing = new ESRI.ArcGIS.Client.Bing.Routing(BingKeyTextBox.Text);
                        routing.ServerType = ServerType.Production;

                        myDrawObject = new Draw(MyMap)
                        {
                            DrawMode = DrawMode.Point,
                            IsEnabled = true
                        };

                        myDrawObject.DrawComplete += MyDrawObject_DrawComplete;
                        waypointGraphicsLayer = MyMap.Layers["WaypointGraphicsLayer"] as GraphicsLayer;
                        routeResultsGraphicsLayer = MyMap.Layers["RouteResultsGraphicsLayer"] as GraphicsLayer;

                        ESRI.ArcGIS.Client.Geometry.Envelope initialExtent =
                                        new ESRI.ArcGIS.Client.Geometry.Envelope(
                                mercator.FromGeographic(
                                        new ESRI.ArcGIS.Client.Geometry.MapPoint(-130, 20)) as MapPoint,
                                mercator.FromGeographic(
                                        new ESRI.ArcGIS.Client.Geometry.MapPoint(-65, 55)) as MapPoint);

                        initialExtent.SpatialReference = new SpatialReference(102100);

                        MyMap.Extent = initialExtent;

                        BingKeyGrid.Visibility = System.Windows.Visibility.Collapsed;
                        RouteGrid.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));
        }

        private void MyDrawObject_DrawComplete(object sender, ESRI.ArcGIS.Client.DrawEventArgs args)
        {
            RouteButton.IsEnabled = true;
            myDrawObject.IsEnabled = false;

            Graphic waypointGraphic = new Graphic()
            {
                Geometry = MyMap.WrapAroundIsActive ? Geometry.NormalizeCentralMeridian(args.Geometry) : args.Geometry,
                Symbol = LayoutRoot.Resources["UserStopSymbol"] as Symbol
            };

            waypointGraphic.Attributes.Add("StopNumber", waypointGraphicsLayer.Graphics.Count + 1);
            waypointGraphicsLayer.Graphics.Add(waypointGraphic);

            if (waypointGraphicsLayer.Graphics.Count > 1)
                RouteButton.IsEnabled = true;
            myDrawObject.IsEnabled = true;
        }

        private void RouteButton_Click(object sender, System.Windows.RoutedEventArgs e)
        {
            myDrawObject.IsEnabled = false;
            routing.Optimization = RouteOptimization.MinimizeTime;
            routing.TrafficUsage = TrafficUsage.None;
            routing.TravelMode = TravelMode.Driving;

            List<MapPoint> points = GraphicsToMapPoints();

            if (points.Count > 1)
            {

                routing.Route(GraphicsToMapPoints(), Route_Complete);
            }

            else
            {
                waypointGraphicsLayer.ClearGraphics();
                myDrawObject.IsEnabled = true;
            }

        }

        private List<MapPoint> GraphicsToMapPoints()
        {
            List<MapPoint> mapPoints = new List<MapPoint>();
            foreach (Graphic g in waypointGraphicsLayer.Graphics)
                mapPoints.Add(g.Geometry as MapPoint);
            return mapPoints;

        }

        private void Route_Complete(object sender, CalculateRouteCompletedEventArgs args)
        {
            myDrawObject.IsEnabled = true;
            routeResultsGraphicsLayer.ClearGraphics();
            waypointGraphicsLayer.ClearGraphics();

            StringBuilder directions = new StringBuilder();

            if (args.Error != null)
            {
                waypointGraphicsLayer.ClearGraphics();
                myDrawObject.IsEnabled = true;
            }

            else
            {
                ObservableCollection<RouteLeg> routeLegs = args.Result.Result.Legs;

                int numLegs = routeLegs.Count;
                int instructionCount = 0;
                for (int n = 0; n < numLegs; n++)
                {
                    if ((n % 2) == 0)
                    {
                        AddStopPoint(mercator.FromGeographic(new MapPoint(routeLegs[n].ActualStart.Longitude, routeLegs[n].ActualStart.Latitude)) as MapPoint);
                        AddStopPoint(mercator.FromGeographic(new MapPoint(routeLegs[n].ActualEnd.Longitude, routeLegs[n].ActualEnd.Latitude)) as MapPoint);
                    }
                    else if (n == (numLegs - 1))
                    {
                        AddStopPoint(mercator.FromGeographic(new MapPoint(routeLegs[n].ActualEnd.Longitude, routeLegs[n].ActualEnd.Latitude)) as MapPoint);
                    }

                    directions.Append(string.Format("--Leg #{0}--\n", n + 1));

                    foreach (ItineraryItem item in routeLegs[n].Itinerary)
                    {
                        instructionCount++;
                        directions.Append(string.Format("{0}. {1}\n", instructionCount, item.Text));
                    }
                }

                Regex regex = new Regex("<[/a-zA-Z:]*>",
                    RegexOptions.IgnoreCase | RegexOptions.Multiline);

                DirectionsContentTextBlock.Text = regex.Replace(directions.ToString(), string.Empty);
                DirectionsGrid.Visibility = Visibility.Visible;

                RoutePath routePath = args.Result.Result.RoutePath;

                Polyline line = new Polyline();
                line.Paths.Add(new PointCollection());

                foreach (ESRI.ArcGIS.Client.Bing.RouteService.Location location in routePath.Points)
                    line.Paths[0].Add(mercator.FromGeographic(new MapPoint(location.Longitude, location.Latitude)) as MapPoint);

                Graphic graphic = new Graphic()
                {
                    Geometry = line,
                    Symbol = LayoutRoot.Resources["RoutePathSymbol"] as Symbol
                };
                routeResultsGraphicsLayer.Graphics.Add(graphic);
            }
        }
        private void AddStopPoint(MapPoint mapPoint)
        {
            Graphic graphic = new Graphic()
            {
                Geometry = mapPoint,
                Symbol = LayoutRoot.Resources["ResultStopSymbol"] as Symbol
            };
            graphic.Attributes.Add("StopNumber", waypointGraphicsLayer.Graphics.Count + 1);
            waypointGraphicsLayer.Graphics.Add(graphic);
        }

        private void ClearRouteButton_Click(object sender, System.Windows.RoutedEventArgs e)
        {
            waypointGraphicsLayer.ClearGraphics();
            routeResultsGraphicsLayer.ClearGraphics();
            DirectionsContentTextBlock.Text = "";
            DirectionsGrid.Visibility = System.Windows.Visibility.Collapsed;
        }

        [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.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Windows
Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Bing
Imports ESRI.ArcGIS.Client.Bing.RouteService
Imports ESRI.ArcGIS.Client.Geometry
Imports ESRI.ArcGIS.Client.Symbols
Imports System.Net
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Json
Imports System.Diagnostics

Namespace ArcGISWPFSDK
    Partial Public Class BingRouting
        Inherits UserControl
        Private myDrawObject As Draw
        Private waypointGraphicsLayer As GraphicsLayer
        Private routeResultsGraphicsLayer As GraphicsLayer
        Private routing As ESRI.ArcGIS.Client.Bing.Routing
        Private Shared mercator As New ESRI.ArcGIS.Client.Projection.WebMercator()

        Public Sub New()
            InitializeComponent()
        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.Insert(0, tileLayer__1)

                                                                ' Add your Bing Maps key in the constructor for the Routing class. Use http://www.bingmapsportal.com to generate a key.  
                                                                routing = New ESRI.ArcGIS.Client.Bing.Routing(BingKeyTextBox.Text)
                                                                routing.ServerType = ServerType.Production

                                                                myDrawObject = New Draw(MyMap) With { _
                                                                 .DrawMode = DrawMode.Point, _
                                                                 .IsEnabled = True _
                                                                }

                                                                AddHandler myDrawObject.DrawComplete, AddressOf MyDrawObject_DrawComplete
                                                                waypointGraphicsLayer = TryCast(MyMap.Layers("WaypointGraphicsLayer"), GraphicsLayer)
                                                                routeResultsGraphicsLayer = TryCast(MyMap.Layers("RouteResultsGraphicsLayer"), GraphicsLayer)

                                                                Dim initialExtent As New ESRI.ArcGIS.Client.Geometry.Envelope(TryCast(mercator.FromGeographic(New ESRI.ArcGIS.Client.Geometry.MapPoint(-130, 20)), MapPoint), TryCast(mercator.FromGeographic(New ESRI.ArcGIS.Client.Geometry.MapPoint(-65, 55)), MapPoint))

                                                                initialExtent.SpatialReference = New SpatialReference(102100)

                                                                MyMap.Extent = initialExtent

                                                                BingKeyGrid.Visibility = System.Windows.Visibility.Collapsed
                                                                RouteGrid.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

        Private Sub MyDrawObject_DrawComplete(sender As Object, args As ESRI.ArcGIS.Client.DrawEventArgs)
            RouteButton.IsEnabled = True
            myDrawObject.IsEnabled = False

            Dim waypointGraphic As New Graphic() With { _
             .Geometry = If(MyMap.WrapAroundIsActive, Geometry.NormalizeCentralMeridian(args.Geometry), args.Geometry), _
             .Symbol = TryCast(LayoutRoot.Resources("UserStopSymbol"), Symbol) _
            }

            waypointGraphic.Attributes.Add("StopNumber", waypointGraphicsLayer.Graphics.Count + 1)
            waypointGraphicsLayer.Graphics.Add(waypointGraphic)

            If waypointGraphicsLayer.Graphics.Count > 1 Then
                RouteButton.IsEnabled = True
            End If
            myDrawObject.IsEnabled = True
        End Sub

        Private Sub RouteButton_Click(sender As Object, e As System.Windows.RoutedEventArgs)
            myDrawObject.IsEnabled = False
            routing.Optimization = RouteOptimization.MinimizeTime
            routing.TrafficUsage = TrafficUsage.None
            routing.TravelMode = TravelMode.Driving

            Dim points As List(Of MapPoint) = GraphicsToMapPoints()

            If points.Count > 1 Then

                routing.Route(GraphicsToMapPoints(), AddressOf Route_Complete)
            Else

                waypointGraphicsLayer.ClearGraphics()
                myDrawObject.IsEnabled = True
            End If

        End Sub

        Private Function GraphicsToMapPoints() As List(Of MapPoint)
            Dim mapPoints As New List(Of MapPoint)()
            For Each g As Graphic In waypointGraphicsLayer.Graphics
                mapPoints.Add(TryCast(g.Geometry, MapPoint))
            Next
            Return mapPoints

        End Function

        Private Sub Route_Complete(sender As Object, args As CalculateRouteCompletedEventArgs)
            myDrawObject.IsEnabled = True
            routeResultsGraphicsLayer.ClearGraphics()
            waypointGraphicsLayer.ClearGraphics()

            Dim directions As New StringBuilder()

            If args.[Error] IsNot Nothing Then
                waypointGraphicsLayer.ClearGraphics()
                myDrawObject.IsEnabled = True
            Else

                Dim routeLegs As ObservableCollection(Of RouteLeg) = args.Result.Result.Legs

                Dim numLegs As Integer = routeLegs.Count
                Dim instructionCount As Integer = 0
                For n As Integer = 0 To numLegs - 1
                    If (n Mod 2) = 0 Then
                        AddStopPoint(TryCast(mercator.FromGeographic(New MapPoint(routeLegs(n).ActualStart.Longitude, routeLegs(n).ActualStart.Latitude)), MapPoint))
                        AddStopPoint(TryCast(mercator.FromGeographic(New MapPoint(routeLegs(n).ActualEnd.Longitude, routeLegs(n).ActualEnd.Latitude)), MapPoint))
                    ElseIf n = (numLegs - 1) Then
                        AddStopPoint(TryCast(mercator.FromGeographic(New MapPoint(routeLegs(n).ActualEnd.Longitude, routeLegs(n).ActualEnd.Latitude)), MapPoint))
                    End If

                    directions.Append(String.Format("--Leg #{0}--" & vbLf, n + 1))

                    For Each item As ItineraryItem In routeLegs(n).Itinerary
                        instructionCount += 1
                        directions.Append(String.Format("{0}. {1}" & vbLf, instructionCount, item.Text))
                    Next
                Next

                Dim regex As New Regex("<[/a-zA-Z:]*>", RegexOptions.IgnoreCase Or RegexOptions.Multiline)

                DirectionsContentTextBlock.Text = regex.Replace(directions.ToString(), String.Empty)
                DirectionsGrid.Visibility = Visibility.Visible

                Dim routePath As RoutePath = args.Result.Result.RoutePath

                Dim line As New Polyline()
                line.Paths.Add(New PointCollection())

                For Each location As ESRI.ArcGIS.Client.Bing.RouteService.Location In routePath.Points
                    line.Paths(0).Add(TryCast(mercator.FromGeographic(New MapPoint(location.Longitude, location.Latitude)), MapPoint))
                Next

                Dim graphic As New Graphic() With { _
                 .Geometry = line, _
                 .Symbol = TryCast(LayoutRoot.Resources("RoutePathSymbol"), Symbol) _
                }
                routeResultsGraphicsLayer.Graphics.Add(graphic)
            End If
        End Sub
        Private Sub AddStopPoint(mapPoint As MapPoint)
            Dim graphic As New Graphic() With { _
             .Geometry = mapPoint, _
             .Symbol = TryCast(LayoutRoot.Resources("ResultStopSymbol"), Symbol) _
            }
            graphic.Attributes.Add("StopNumber", waypointGraphicsLayer.Graphics.Count + 1)
            waypointGraphicsLayer.Graphics.Add(graphic)
        End Sub

        Private Sub ClearRouteButton_Click(sender As Object, e As System.Windows.RoutedEventArgs)
            waypointGraphicsLayer.ClearGraphics()
            routeResultsGraphicsLayer.ClearGraphics()
            DirectionsContentTextBlock.Text = ""
            DirectionsGrid.Visibility = System.Windows.Visibility.Collapsed
        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