منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تغيير اللون الى لون غير معروف 43:43:43
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
استخدم هذا الكود
كود :
       Dim SP_ As String() = Split("35.583038,8.667192", ",")
       MsgBox(SP_(0))
       MsgBox(SP_(1))

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

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

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


عند تشغيل البرنامج يبقي زر Search... 
غير مفعل حتى اكتمال تحميل الصفحة داخل
WebBrowser

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

عن طريق تحديد GroupBox2
وجعل قيمة Size 0;0

وتصغير حجم اطار الفورم 
بحيث يبقى الشكل عبارة عن زر البحث وجلب الاحداثيات
الامر يرجع لك اذا كنت تريد اخفاء الموقع...

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


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


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


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

تحياتى لك
وتمنياتى لك التوفيق
والله إنك معلم <3 <3
الصفحات : 1 2