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

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

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


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 2.24 م ب / التحميلات : 23)
الرد
تم الشكر بواسطة: حريف برمجة
#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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماسبب عدم تنفيذ الكود عند استخدام قارئ الباركود جيولوجي مبتدئ 4 131 24-07-21, 08:07 AM
آخر رد: جيولوجي مبتدئ
  الانتقال إلى سجل محدد في الداتا قرايد فيو بدون استخدام select معتز حسن 3 87 24-07-21, 07:54 AM
آخر رد: جيولوجي مبتدئ
  كيفية استخدام البروكسي فى الفيجوال بيسك proxy mediafourgi 5 614 02-07-21, 11:01 AM
آخر رد: asemshahen5
  كيفية استخدام مكتبة الباركود aftfm 0 233 06-06-21, 02:33 PM
آخر رد: aftfm
  [VB.NET] تحويل pdf الى صورة بدون استخدام الاكروبات بأستخدام adobe reader العادى فقط AhmedNagib 0 230 25-05-21, 12:38 AM
آخر رد: AhmedNagib
  [سؤال] كيفيه استخدام بكره التمرير في الماوس حسن الجلب 2 296 28-03-21, 12:49 AM
آخر رد: حسن الجلب
  استخدام زر enter Lathe1 2 367 27-02-21, 02:04 AM
آخر رد: Lathe1
  [VB.NET] كيف يمكن استخدام function الموجوده بالاكسيل داخل الفيجوال بيسك دوت نت popritch 1 432 12-02-21, 02:02 AM
آخر رد: أبو عبدالله الحلواني
  [سؤال] عن إمكانية استخدام قاعدة بيانات أكسس من سيرفر خارجي ADAM12 0 322 17-01-21, 06:19 PM
آخر رد: ADAM12
  [VB.NET] استخدام عدد 200 threads او 200 تايمر بشكل مختصر INFLaaTy.cR 4 563 30-11-20, 06:45 PM
آخر رد: trakktour

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


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