无法在地图中追踪路由| gmap.net | vb.net

发布于 2025-01-25 18:32:47 字数 965 浏览 1 评论 0 原文

我面临的问题无法使用我选择的任何地图提供商跟踪路线，我必须做错了什么……

使用Google Maps，我可以设置标记并创建poligons，但是当我创建一个路线我获得状态“已拒绝请求”已经尝试使用API键并使用代码将URL从HTTP替换为HTTPS，但我仍然被拒绝了...同样，当我尝试使用不同的路由提供商MP MP需要几秒钟的时间来处理，但返回时空变量

代码...

        GMapW.MapProvider = GoogleMapProvider.Instance
        GMapW.Position = New PointLatLng(40.654331, -73.917067)
        Dim RP As RoutingProvider = DirectCast(GMapW.MapProvider, RoutingProvider)
        Dim P1 As New PointLatLng(40.657161, -73.921079)
        Dim P2 As New PointLatLng(40.65587, -73.915188)
        Dim MP As MapRoute = RP.GetRoute(P1, P2, True, False, Convert.ToInt32(GMapW.Zoom))
        Dim R As New GMap.NET.WindowsForms.GMapRoute(MP.Points, "Route")
        Dim SB As New SolidBrush(Color.FromArgb(125, 0, 255, 0))
        R.Stroke = New Pen(SB, 6)
        Dim mOverlayRoutes = New GMapOverlay("Routes")
        mOverlayRoutes.Routes.Add(R)
        GMapW.Overlays.Add(mOverlayRoutes)

这是我正在使用的任何提示的

原文

I'm facing a issue where i'm unable to trace routes using any map provider I've chosen, I must be doing something wrong......

Using Google maps I can set markers and create poligons but when I create a route I get status "Request Denied" already tried using API keys and using code to replace URL's from http to https but i still get request denied... Also when i try using a diferent route provider MP needs a few seconds to process but returns empty variable

This is the code I'm using

        GMapW.MapProvider = GoogleMapProvider.Instance
        GMapW.Position = New PointLatLng(40.654331, -73.917067)
        Dim RP As RoutingProvider = DirectCast(GMapW.MapProvider, RoutingProvider)
        Dim P1 As New PointLatLng(40.657161, -73.921079)
        Dim P2 As New PointLatLng(40.65587, -73.915188)
        Dim MP As MapRoute = RP.GetRoute(P1, P2, True, False, Convert.ToInt32(GMapW.Zoom))
        Dim R As New GMap.NET.WindowsForms.GMapRoute(MP.Points, "Route")
        Dim SB As New SolidBrush(Color.FromArgb(125, 0, 255, 0))
        R.Stroke = New Pen(SB, 6)
        Dim mOverlayRoutes = New GMapOverlay("Routes")
        mOverlayRoutes.Routes.Add(R)
        GMapW.Overlays.Add(mOverlayRoutes)

Any tips apreciated...

分享到QQ

分享到微博