كود من خلاله يتم وضع علامة على موقع الاحداثيات ولكن هذه الاحداثيات تم وضعها يدوياً وليست من البرناج
احتاج اغير موقع الاعلامة واظهار الاحداثيات على التكست بوكس
احتاج اغير موقع الاعلامة واظهار الاحداثيات على التكست بوكس
كود :
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.Lng
