WinForms Maps - Use the Azure Maps Route Service to Calculate Routes between GeoPoints on a Map Surface

C#
using System;
using System.Collections.Generic;
using System.Collections.ObjectModel;
using System.Drawing;
using System.Linq;
using System.Windows.Forms;
using DevExpress.XtraMap;

namespace AzureRouting {
    public partial class Form1 : Form {
        const string azureKey = "your key";
        ObservableCollection<GeoPoint> geoPoints = new ObservableCollection<GeoPoint>();
        MapItemStorage itemData;
        InformationLayer routeInfoLayer;
        AzureRouteDataProvider azureRoute;

        public Form1() {
            InitializeComponent();
            mapControl.Layers.AddRange(
                new LayerBase[] {
                    new ImageLayer() {
                        DataProvider = new AzureMapDataProvider() {
                            AzureKey = azureKey,
                            Tileset = AzureTileset.Imagery,
                        },
                    },
                    new ImageLayer() {
                        DataProvider = new AzureMapDataProvider() {
                            AzureKey = azureKey,
                            Tileset = AzureTileset.BaseHybridRoad,
                        },
                    },
                    routeInfoLayer = new InformationLayer() {
                        DataProvider = azureRoute = new AzureRouteDataProvider() {
                            AzureKey = azureKey,
                        },
                    },
                    new VectorItemsLayer() {
                        Data = itemData = new MapItemStorage(),
                    }
                }
            );
            routeInfoLayer.ItemStyle.StrokeWidth = 2;
            routeInfoLayer.ItemStyle.Stroke = Color.DeepSkyBlue;
            routeInfoLayer.Error += RouteInfoLayer_Error;
            waypointsListBoxControl.DataSource = geoPoints;
            mapControl.Zoom(6);
            mapControl.SetCenterPoint(new GeoPoint(40.714627, -74.002863), false);
            mapControl.EnableRotation = false;
        }
        private void RouteInfoLayer_Error(object sender, MapErrorEventArgs e) {
            throw new System.NotImplementedException();
        }
        private void mapControl_Click(object sender, System.EventArgs e) {
            MouseEventArgs mouseEventArgs = (MouseEventArgs)e;
            if(mouseEventArgs.Button == MouseButtons.Right) {
                GeoPoint mousePoint = mapControl.ScreenPointToCoordPoint(mouseEventArgs.Location) as GeoPoint;
                geoPoints.Add(mousePoint);
                itemData.Items.Add(new MapPushpin() {
                    Location = mousePoint,
                });
            }
        }
        private void calculateRouteButton_Click(object sender, System.EventArgs e) {
            if (geoPoints.Count <= 1) {
                MessageBox.Show("Specify at least two Waypoints to calculate a route.");
                return;
            }
            azureRoute.CalculateRoute(geoPoints.Select(point => new RouteWaypoint("", point)).ToList(), new AzureRouteOptions() {
                TravelMode = GetTravelMode(),
                AvoidTypes = GetAvoidTypes()
            });
            geoPoints.Clear();
            itemData.Items.Clear();
        }
        AzureTravelMode GetTravelMode() {
            return (AzureTravelMode)Enum.Parse(typeof(AzureTravelMode), (string)travelModeComboBox.SelectedItem);
        }
        AzureRouteAvoidType GetAvoidTypes() {
            var avoidTypes = AzureRouteAvoidType.None;
            foreach (string item in avoidTypesCheckedListBox.CheckedItems) {
                var avoidType = (AzureRouteAvoidType)Enum.Parse(typeof(AzureRouteAvoidType), item);
                avoidTypes |= avoidType;
            }
            return avoidTypes;
        }
    }
}

Visual Basic
Imports System
Imports System.Collections.ObjectModel
Imports System.Drawing
Imports System.Linq
Imports System.Windows.Forms
Imports DevExpress.XtraMap

Namespace AzureRouting

    Public Partial Class Form1
        Inherits Form

        Const azureKey As String = "your key"
        Private geoPoints As ObservableCollection(Of GeoPoint) = New ObservableCollection(Of GeoPoint)()
        Private itemData As MapItemStorage
        Private azureRoute As AzureRouteDataProvider

        Public Sub New()
            InitializeComponent()
            Dim imageLayer As New ImageLayer()
            imageLayer.DataProvider = New AzureMapDataProvider() With {
            .AzureKey = azureKey,
            .Tileset = AzureTileset.Imagery
            }
            Dim imageLayer1 As New ImageLayer()
            imageLayer.DataProvider = New AzureMapDataProvider() With {
            .AzureKey = azureKey,
            .Tileset = AzureTileset.BaseHybridRoad
            }
            Dim routeInfoLayer As New InformationLayer()
            azureRoute = New AzureRouteDataProvider() With {.AzureKey = azureKey}
            routeInfoLayer.DataProvider = azureRoute
            itemData = New MapItemStorage()
            Dim vectorItemsLayer As New VectorItemsLayer() With {.Data = itemData}
        
            mapControl.Layers.AddRange(New LayerBase() {imageLayer, imageLayer1, routeInfoLayer, vectorItemsLayer})
            routeInfoLayer.ItemStyle.StrokeWidth = 2
            routeInfoLayer.ItemStyle.Stroke = Color.DeepSkyBlue
            AddHandler routeInfoLayer.Error, AddressOf RouteInfoLayer_Error
            waypointsListBoxControl.DataSource = geoPoints
            mapControl.Zoom(6)
            mapControl.SetCenterPoint(New GeoPoint(40.714627, -74.002863), False)
            mapControl.EnableRotation = False
        End Sub

        Private Sub RouteInfoLayer_Error(ByVal sender As Object, ByVal e As MapErrorEventArgs)
            Throw New NotImplementedException()
        End Sub

        Private Sub mapControl_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim mouseEventArgs As MouseEventArgs = CType(e, MouseEventArgs)
            If mouseEventArgs.Button = MouseButtons.Right Then
                Dim mousePoint As GeoPoint = TryCast(mapControl.ScreenPointToCoordPoint(mouseEventArgs.Location), GeoPoint)
                geoPoints.Add(mousePoint)
                itemData.Items.Add(New MapPushpin() With {.Location = mousePoint})
            End If
        End Sub

        Private Sub calculateRouteButton_Click(ByVal sender As Object, ByVal e As EventArgs)
            If geoPoints.Count <= 1 Then
                MessageBox.Show("Specify at least two Waypoints to calculate a route.")
                Return
            End If

            azureRoute.CalculateRoute(geoPoints.[Select](Function(point) New RouteWaypoint("", point)).ToList(), New AzureRouteOptions() With {.TravelMode = GetTravelMode(), .AvoidTypes = GetAvoidTypes()})
            geoPoints.Clear()
            itemData.Items.Clear()
        End Sub

        Private Function GetTravelMode() As AzureTravelMode
            Return CType([Enum].Parse(GetType(AzureTravelMode), CStr(travelModeComboBox.SelectedItem)), AzureTravelMode)
        End Function

        Private Function GetAvoidTypes() As AzureRouteAvoidType
            Dim avoidTypes = AzureRouteAvoidType.None
            For Each item As String In avoidTypesCheckedListBox.CheckedItems
                Dim avoidType = CType([Enum].Parse(GetType(AzureRouteAvoidType), item), AzureRouteAvoidType)
                avoidTypes = avoidTypes Or avoidType
            Next

            Return avoidTypes
        End Function
    End Class
End Namespace