[elgokr]

استخدم هذا الكود

كود :

       Dim SP_ As String() = Split("35.583038,8.667192", ",")
       MsgBox(SP_(0))
       MsgBox(SP_(1))

تحياتى لك

[hichem1]

ما مشكلة عذا الكود ؟ :
TextBox2.Text = WebBrowser1.Document.GetElementById("location").InnerText
أريد من الtextbox2 أن يساوي هذه القيمة بالصورة بحيث أجلب الإحداثيات إليه
كنت أخطط لإستعمالل هذا الكود لكنه لا يعمل 
ملاحظة ال id صحيحة
الموقع : http://latitudelongitude.org/address-latlong

[elgokr]

اليك مثال مرفق بالرد السورد + البرنامج

مع صور لتوضيح المشروع المرفق

1- عند فتح البرنامج.

عند تشغيل البرنامج يبقي زر Search... 

غير مفعل حتى اكتمال تحميل الصفحة داخل

WebBrowser

ويمكنك الاستفادة من ذلك من خلال اخفاء 

WebBrowser

عن طريق تحديد GroupBox2

وجعل قيمة Size 0;0

وتصغير حجم اطار الفورم 

بحيث يبقى الشكل عبارة عن زر البحث وجلب الاحداثيات

الامر يرجع لك اذا كنت تريد اخفاء الموقع...

2- صورة عند كتابة اسم الدولة للبحث كمثال

3- صورة عند ضغط على زر Search...

4- صورة عند الضغط على زر Get Data... لجلب الاحداثيات

يمكنك تحميل المشروع من المرفقات

تحياتى لك

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

[hichem1]

والله إنك معلم <3 <3