[aftfm]

السلام عليكم ورحمة الله وبركاته

هذا مثال لاستخدام خرائط قوقل عن طريق GMap.net

احتاج بعض التعديلات عليه مثل اضافة موقع على الخريطة (وضع علامة) ومن ثم كتابة الاحداثي في lblLocation.text
امكانية التقريب بواسطة دبل كلك على المواس

[aftfm]

كود من خلاله يتم وضع علامة على موقع الاحداثيات ولكن هذه الاحداثيات تم وضعها يدوياً وليست من البرناج
احتاج اغير موقع الاعلامة واظهار الاحداثيات على التكست بوكس

كود :

 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

[بلدي]

اذا اردت ظهور الاحداثيات مع حركه الماوس ضع هذا الكود في الحدث MouseMove للاداه

PHP كود :

Dim 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 


لوضع علامه استخدم هذا الكود في الحدث  MouseClick للاداه

PHP كود :

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)