[elgokr]

(04-07-18, 05:16 AM)dametucorazon كتب : واياك اخب الفاضل ممكن لو لدبك متسع من الوقت تلقي نظره هنا قمت بتحميل المشروع ويعمل بالفعل كيف ؟
https://www.codeproject.com/Tips/1230577...-in-VB-NET

بخصوص هذا الرابط

هو شرح للاداء خاصة الرابط التالى

http://www.independent-software.com/gmap...ap1-7.html

ستجد بالراط شكل الاداء داخل الـ VB.NET

ومع شرح مبسط لطريقية الاستخدام

كل ما عليك تحميل ملفات DLL من خلال الرابط التالى

https://archive.codeplex.com/?p=greatmaps

من ثم متابعة اضافتها كما فى الرابط السابق او كما الصور التالية

كلك يمين على reference واضغط على Add

بعك كده ما فى الصورة

لكن بدلاً من GMap.NET.Core

ستختار الملف GMap.NET.MapProviders

من الملفات المحملة

بعد الاضافة قم باضافة الكود التالى

اعلى اكود الفورم

كود :

Imports GMap.NET
Imports GMap.NET.MapProviders
Imports GMap.NET.WindowsForms

بعد كده استخدم الكود التالى فى Form1_Load

كود :

       Try

           tbZoom.Maximum = 18
           tbZoom.Minimum = 0
           tbZoom.TickFrequency = 2
           tbZoom.LargeChange = 2
           tbZoom.SmallChange = 1

           GMapProvider.WebProxy = Net.WebRequest.DefaultWebProxy
           GMapProvider.WebProxy.Credentials = System.Net.CredentialCache.DefaultNetworkCredentials

           If My.Computer.Network.Ping("www.google.com", 1000) = True Then
               gMap.Manager.Mode = AccessMode.ServerAndCache
               gMap.MapProvider = MapProviders.GoogleMapProvider.Instance

               With Me.gMap
                   .Position = New GMap.NET.PointLatLng(51.51, -0.14)
                   .SetPositionByKeywords("London")
                   .ZoomAndCenterMarkers(CType(vbNull, String))
                   .Zoom = 10
                   .ShowCenter = True
               End With
               gMap.Refresh()

           Else
               MessageBox.Show("There is no Internet Connection. _
                   This is needed to load the Maps from Google. Please connect to the Network!",
                   "Error loading Map Data!", MessageBoxButtons.OK)
               Exit Try
           End If

       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error loading data!", MessageBoxButtons.OK)
       End Try

مع العلم بان كلاً من

1- tbZoom = TrackBar
2- GMapProvider = إداء من ادوات التى ستظهر مع الاضافة ملفات DLL
3- gMap = إداء من ادوات التى ستظهر مع الاضافة ملفات DLL

مع الانتبهاء الى الارقام التالية

PHP كود :

51.51, -0.14 


وهى الاحداثيات للطول والعرض للموقع على الخريطة

PHP كود :

London 


هو اسم الموقع المشار اليه على الخريطة

وبكده تكون انهيت كل ما هو مطلوب

سامحنى لانى لم ارفق سورس للمثال

لان مساحة الملف المطلوب تحميله

تتجاوز الـ 300 ميجا 

وكل ما هو مطلوب ملفين من مجموعة الملفات الموجود

تحياتى لك

وتمنياتى لك التوفيق