GMap.NET Control Route berechnen
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von progThis.
-
-
-
-
@progThis
Der Code ist nicht VB. Du musst den konvertieren.
Converter
Notfalls frag im Forum: greatmaps.codeplex.com/
Zudem: Was geht nicht? Du musst das immer erläutern.
Und mach bitte nicht wegen allem nen Thread auf und streng dich selber ein wenig an. -
-
You’ll notice that the map provider (Google, in this case) provides the GetRoute method that we need to create a MapRoute instance. You could use a different mapping provider (BingMapProvider, for instance) to create the route, and use it with yet another provider for the actual map images. After all, it all boils down to latitude/longitude coordinates.
-
Ich bekomme noch immer den Fehler:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim start As New PointLatLng(-25.974134, 32.593042)
- Dim [end] As New PointLatLng(-25.959048, 32.592827)
- Dim route As MapRoute = GMap.NET.MapProviders.BingMapProvider.Instance.GetRoute(start, [end], False, False, 15) 'Da soll ein Fehler drin sein
- Dim r As New GMapRoute(route.Points, "My route")
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „progThis“ ()
-
-
-
-
Der komplette Code:
VB.NET-Quellcode
- Imports GMap.NET.MapProviders
- Imports GMap.NET.MapProviders.BingMapProvider
- Imports GMap.NET
- Imports GMap.NET.MapRoute
- Imports GMap.NET.WindowsForms.Markers
- Imports GMap.NET.WindowsForms.ToolTips
- Imports System.IO
- Imports System.Runtime.Serialization
- Imports GMap.NET.WindowsForms
- Imports GMap.NET.CacheProviders
- Imports GMap.NET.GMaps
- Imports GMap.NET.WindowsForms.GMapOverlay
- Imports GMap.NET.WindowsForms.GMapControl
- Imports GMap.NET.CacheProviders.MsSQLPureImageCache
- Public Class Route_berechnen
- Private Sub Route_berechnen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- GMapControl1.MapProvider = GMapProviders.BingMap
- GMapControl1.SetCurrentPositionByKeywords("Deutschland")
- GMapControl1.MinZoom = 3
- GMapControl1.MaxZoom = 17
- GMapControl1.Zoom = 5
- GMapControl1.Manager.Mode = AccessMode.ServerAndCache
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim start As New String(TextBox1.Text)
- Dim [end] As New String(TextBox2.Text)
- Dim route As MapRoute = GMap.NET.MapProviders.BingMapProvider.Instance.GetRoute(start, [end], False, False, 15)
- Dim r As New GMapRoute(route.Points, "My route")
- Dim routesOverlay As GMapOverlay
- routesOverlay.Routes.Add(r)
- GMapControl1.Overlays.Add(routesOverlay)
- r.Stroke.Width = 2
- r.Stroke.Color = Color.SeaGreen
- End Sub
- End Class
-
Jap:
VB.NET-Quellcode
- Imports GMap.NET.MapProviders
- Imports GMap.NET.MapProviders.BingMapProvider
- Imports GMap.NET
- Imports GMap.NET.MapRoute
- Imports GMap.NET.WindowsForms.Markers
- Imports GMap.NET.WindowsForms.ToolTips
- Imports System.IO
- Imports System.Runtime.Serialization
- Imports GMap.NET.WindowsForms
- Imports GMap.NET.CacheProviders
- Imports GMap.NET.GMaps
- Imports GMap.NET.WindowsForms.GMapOverlay
- Imports GMap.NET.WindowsForms.GMapControl
- Imports GMap.NET.CacheProviders.MsSQLPureImageCache
- Public Class Route_berechnen
- Private Sub Route_berechnen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- GMapControl1.MapProvider = GMapProviders.BingMap
- GMapControl1.SetCurrentPositionByKeywords("Deutschland")
- GMapControl1.MinZoom = 3
- GMapControl1.MaxZoom = 17
- GMapControl1.Zoom = 5
- GMapControl1.Manager.Mode = AccessMode.ServerAndCache
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim start As New String(TextBox1.Text)
- Dim [end] As New String(TextBox2.Text)
- Dim route As MapRoute = GMap.NET.MapProviders.GoogleMapProvider.Instance.GetRoute(start, [end], False, False, 15)
- Dim r As New GMapRoute(route.Points, "My route")
- Dim routesOverlay As GMapOverlay
- routesOverlay.Routes.Add(r)
- GMapControl1.Overlays.Add(routesOverlay)
- r.Stroke.Width = 2
- r.Stroke.Color = Color.SeaGreen
- End Sub
- End Class
-
-
Hallo,
Ich bin nicht ganz im Thema aber scheinbar unterstützt der BingNetProvieder "getRoute" nicht. Versuch mal "GetRouteBetweenPoints" zusammen mit dem googleMapProvieder
Importieren des GoogleProvieders nicht vergessen:
Info: der BingProvieder scheint "GetRouteBetweenPoints" ebenfalls nicht zu unterstützen... Konnte jedenfalls nichts vernünftiges finden.
Eine Frage, bekommst du nicht ein Problem mit einer NullReferenceException in Zeile 32
viele Grüße -
Es funktioniert :00000
Nur das Problem in Zeile 32 hast recht
Da ist dann auch eine neue Frage Wie kann ich das beheben hab ja alles befolgt ????
Mein jetziger Code:
VB.NET-Quellcode
- Imports GMap.NET.MapProviders
- Imports GMap.NET.MapProviders.BingMapProvider
- Imports GMap.NET
- Imports GMap.NET.MapRoute
- Imports GMap.NET.WindowsForms.Markers
- Imports GMap.NET.WindowsForms.ToolTips
- Imports System.IO
- Imports System.Runtime.Serialization
- Imports GMap.NET.WindowsForms
- Imports GMap.NET.CacheProviders
- Imports GMap.NET.GMaps
- Imports GMap.NET.WindowsForms.GMapOverlay
- Imports GMap.NET.MapProviders.GoogleMapProvider
- Imports GMap.NET.WindowsForms.GMapControl
- Imports GMap.NET.CacheProviders.MsSQLPureImageCache
- Imports GMap.NET.Internals
- Imports GMap.NET.metadataType
- Imports GMap.NET.Placemark
- Imports GMap.NET.WindowsForms.GMapRoute
- Public Class Route_berechnen
- Private Sub Route_berechnen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- GMapControl1.MapProvider = GMapProviders.GoogleMap
- GMapControl1.SetCurrentPositionByKeywords("Deutschland")
- GMapControl1.MinZoom = 3
- GMapControl1.MaxZoom = 17
- GMapControl1.Zoom = 5
- GMapControl1.Manager.Mode = AccessMode.ServerAndCache
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim start As New String(TextBox1.Text)
- Dim [end] As New String(TextBox2.Text)
- Dim route As MapRoute = GoogleMapProvider.Instance.GetRouteBetweenPoints(start, [end], False, False, 15)
- Dim r As New GMapRoute(route.Points, "My route")
- Dim routesOverlay As GMapOverlay
- routesOverlay.Routes.Add(r)
- GMapControl1.Overlays.Add(routesOverlay)
- r.Stroke.Width = 2
- r.Stroke.Color = Color.SeaGreen
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „progThis“ ()
-
Hallo,
versuch mal folgendes:
VB.NET-Quellcode
- 'muss als New deklariert werden da sonst zur Laufzeite eine NullReferenceExzeption hervorgerufen wird
- Dim routesOverlay As New GMapOverlay(GMapControl1, "OverLay1")
- 'Löscht die vorhandenen Overlays, ist jedoch KEIN muss!!!
- GMapControl1.Overlays.Clear()
- routesOverlay.Routes.Add(r)
- GMapControl1.Overlays.Add(routesOverlay)
Ich hoffe es hilft...
viele Grüße -
-
Benutzer online 1
1 Besucher
-
Ähnliche Themen
-
Tobi112112112 - - Sonstige Problemstellungen
-
vierkant - - Sonstige Problemstellungen
-
3 Benutzer haben hier geschrieben
- Gast (14)
- KosmicFilament (2)
- vb-checker (1)