RouteIsochroneCalculationResult.IsochroneResult Property

Returns isochrone calculation results as isochrone polygon points.

Namespace: DevExpress.XtraMap

Assembly: DevExpress.XtraMap.v24.1.dll

NuGet Package: DevExpress.Win.Map

Declaration

C#

public BingRouteIsochroneResult IsochroneResult { get; }

VB.NET

Public ReadOnly Property IsochroneResult As BingRouteIsochroneResult

Property Value

Type	Description
BingRouteIsochroneResult	An object that stores isochrone calculation results.

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