+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخدام خرائط قوقل (/showthread.php?tid=36095)
استخدام خرائط قوقل - aftfm - 13-08-20
السلام عليكم ورحمة الله وبركاته
هذا مثال لاستخدام خرائط قوقل عن طريق GMap.net
احتاج بعض التعديلات عليه مثل اضافة موقع على الخريطة (وضع علامة) ومن ثم كتابة الاحداثي في lblLocation.text
امكانية التقريب بواسطة دبل كلك على المواس
RE: استخدام خرائط قوقل - aftfm - 13-08-20
كود من خلاله يتم وضع علامة على موقع الاحداثيات ولكن هذه الاحداثيات تم وضعها يدوياً وليست من البرناج
احتاج اغير موقع الاعلامة واظهار الاحداثيات على التكست بوكس
كود :
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.LngRE: استخدام خرائط قوقل - بلدي - 13-08-20
اذا اردت ظهور الاحداثيات مع حركه الماوس ضع هذا الكود في الحدث 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)