BingRouteIsochroneDataProvider.IsochroneCalculated Event

Occurs after an isochrone is calculated.

Namespace: DevExpress.XtraMap

Assembly: DevExpress.XtraMap.v24.1.dll

NuGet Package: DevExpress.Win.Map

Declaration

C#

public event BingRouteIsochroneCalculatedEventHandler IsochroneCalculated

VB.NET

Public Event IsochroneCalculated As BingRouteIsochroneCalculatedEventHandler

Event Data

The IsochroneCalculated event's data class is BingRouteIsochroneCalculatedEventArgs. The following properties provide information specific to this event:

Property	Description
CalculationResult	Returns the result of an isochrone calculation (isoline polygon points and origin waypoint coordinates).
Cancelled	Gets a value indicating whether an asynchronous operation has been canceled. Inherited from AsyncCompletedEventArgs.
Error	Gets a value indicating which error occurred during an asynchronous operation. Inherited from AsyncCompletedEventArgs.
UserState	Gets the unique identifier for the asynchronous task. Inherited from AsyncCompletedEventArgs.

The event data class exposes the following methods:

Method	Description
RaiseExceptionIfNecessary()	Raises a user-supplied exception if an asynchronous operation failed. Inherited from AsyncCompletedEventArgs.

Remarks

The following code plots a polygon that shows an area accessible from the specified point:

C#

using DevExpress.XtraMap;
using System;
using System.Drawing;
using System.Windows.Forms;

    private void Form1_Load(object sender, EventArgs e) {
        ImageLayer imageLayer = new ImageLayer();
        mapControl1.Layers.Add(imageLayer);
        BingMapDataProvider provider = new BingMapDataProvider();
        provider.BingKey = "Insert your Bing key.";
        provider.Kind = BingMapKind.RoadLight;
        imageLayer.DataProvider = provider;       

        InformationLayer infoLayer = new InformationLayer();
        mapControl1.Layers.Add(infoLayer);

        BingRouteIsochroneDataProvider isochroneDataProvider = new BingRouteIsochroneDataProvider();
        isochroneDataProvider.BingKey = "Insert your Bing Maps key.";
        GeoPoint origin = new GeoPoint(36.1532403246368, -86.7701703811725);
        mapControl1.CenterPoint = origin;
        isochroneDataProvider.CalculateIsochroneByDistance(new RouteWaypoint("", origin), 10);
        isochroneDataProvider.GenerateLayerItems = false;
        isochroneDataProvider.IsochroneCalculated += IsochroneCalculated;
        infoLayer.DataProvider = isochroneDataProvider;

    }

    private void IsochroneCalculated(object sender, BingRouteIsochroneCalculatedEventArgs e) {
        foreach (var polygon in e.CalculationResult.IsochroneResult.Polygons) {
            MapPolyline item = new MapPolyline();
            foreach (var points in polygon.Coordinates)
                item.Points.Add(points);
            item.StrokeWidth = 4;
            item.Stroke = Color.Red;

            VectorItemsLayer vectorLayer = new VectorItemsLayer();
            mapControl1.Layers.Add(vectorLayer);
            MapItemStorage storage = new MapItemStorage();
            vectorLayer.Data = storage;
            storage.Items.Add(item);
        }
        mapControl1.ZoomToFitLayerItems();
    }

VB.NET

Imports DevExpress.XtraMap
Imports System.Windows.Forms

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
      Dim imageLayer As ImageLayer = New ImageLayer()
      mapControl1.Layers.Add(imageLayer)
      Dim provider As BingMapDataProvider = New BingMapDataProvider()
      provider.BingKey = "Insert your Bing key."
      provider.Kind = BingMapKind.RoadLight
      imageLayer.DataProvider = provider

      Dim infoLayer As InformationLayer = New InformationLayer()
      mapControl1.Layers.Add(infoLayer)
      Dim isochroneDataProvider As BingRouteIsochroneDataProvider = New BingRouteIsochroneDataProvider()
      isochroneDataProvider.BingKey = "Insert your Bing Maps key."
      Dim origin As GeoPoint = New GeoPoint(36.1532403246368, -86.7701703811725)
      mapControl1.CenterPoint = origin
      isochroneDataProvider.CalculateIsochroneByDistance(New RouteWaypoint("", origin), 10)
      isochroneDataProvider.GenerateLayerItems = False
      isochroneDataProvider.IsochroneCalculated += AddressOf IsochroneCalculated
      infoLayer.DataProvider = isochroneDataProvider

  Private Sub IsochroneCalculated(ByVal sender As Object, ByVal e As BingRouteIsochroneCalculatedEventArgs)
      For Each polygon In e.CalculationResult.IsochroneResult.Polygons
          Dim item As MapPolyline = New MapPolyline()

          For Each points In polygon.Coordinates
              item.Points.Add(points)
          Next

          item.StrokeWidth = 4
          item.Stroke = Color.Red
          Dim vectorLayer As VectorItemsLayer = New VectorItemsLayer()
          mapControl1.Layers.Add(vectorLayer)
          Dim storage As MapItemStorage = New MapItemStorage()
          vectorLayer.Data = storage
          storage.Items.Add(item)
      Next

      mapControl1.ZoomToFitLayerItems()
  End Sub