Me.myMap.MapProvider = GMapProviders.GoogleMap
Me.myMap.DragButton = MouseButtons.Left
With myMap
.SetCurrentPositionByKeywords("USA")
.MapProvider = GMapProviders.GoogleMap
.Zoom = 20
.Manager.Mode = AccessMode.ServerAndCache
End With
myMap.Position = New GMap.NET.PointLatLng(21.397462, 39.774147)
Dim overlayOne As New GMap.NET.WindowsForms.GMapOverlay(myMap, "OverlayOne")
overlayOne.Markers.Add(New GMap.NET.WindowsForms.Markers.GMapMarkerGoogleGreen(New GMap.NET.PointLatLng(21.397462, 39.774147)))
myMap.Overlays.Add(overlayOne)
Me.txtLat.Text = myMap.Position.Lat
Me.txtLong.Text = myMap.Position.Lng
Me.lblLocation.Text = myMap.Position.Lat & ", " & myMap.Position.Lng
Me.lblLocation.Text = myMap.Position.Lat & ", " & myMap.Position.LngDim pos As PointLatLng = myMap.FromLocalToLatLng(e.X, e.Y)
Me.txtLat.Text = pos.Lat
Me.txtLong.Text = pos.Lng
Me.lblLocation.Text = pos.Lat & ", " & pos.Lng
Dim pos As PointLatLng = myMap.FromLocalToLatLng(e.X, e.Y)
Dim GreenMark As New GMap.NET.WindowsForms.Markers.GMapMarkerGoogleGreen(pos)
GreenMark.ToolTipText = "mark " & (myMap.Overlays.Count + 1) & vbNewLine & _
"Lat: " & pos.Lat & vbNewLine & _
"Lng: " & pos.Lng
Dim overlayOne As New GMap.NET.WindowsForms.GMapOverlay(myMap, "OverlayOne")
overlayOne.Markers.Add(GreenMark)
myMap.Overlays.Add(overlayOne)