تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام خرائط قوقل
#1
السلام عليكم ورحمة الله وبركاته

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

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


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 2.24 م ب / التحميلات : 20)
الرد
تم الشكر بواسطة: حريف برمجة
#2
كود من خلاله يتم وضع علامة على موقع الاحداثيات ولكن هذه الاحداثيات تم وضعها يدوياً وليست من البرناج
احتاج اغير موقع الاعلامة واظهار الاحداثيات على التكست بوكس



كود :
 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
الرد
#3
اذا اردت ظهور الاحداثيات مع حركه الماوس ضع هذا الكود في الحدث MouseMove للاداه
PHP كود :
Dim pos As PointLatLng myMap.FromLocalToLatLng(e.Xe.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.Xe.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
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم